Brevfletning fra VB5 til Word

Hello bigs

Denne funktion skulle kunne bringe dig godt igang

Function BrevFletMedWord(Optional strFilnavn As String = "") As Boolean
Dim objWord As Word.Application
Dim bWordWasOpen As Boolean
    On Error Resume Next
    bWordWasOpen = True
    Set objWord = GetObject(, "Word.Application")
    Err.Clear
    On Error GoTo err_open
    If objWord Is Nothing Then
        bWordWasOpen = False
        Set objWord = GetObject("", "Word.Application")
    End If
    If strFilnavn = "" Then
        objWord.Documents.Add
    Else
        objWord.Documents.Open strFilnavn
    End If
    objWord.ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    objWord.ActiveDocument.MailMerge.OpenDataSource Name:="C:\FLETFIL.XLS", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="Hele regnearket", SQLStatement:="" _
        , SQLStatement1:=""
    objWord.ActiveDocument.MailMerge.EditMainDocument
    BrevFletMedWord = True
    Exit Function
err_open:
    BrevFletMedWord = False
End Function