Word Serienbrief

  • Word

    Word Serienbrief

    Hallo,

    ich habe leider folgendes Problem beim aufrufen von Word (2003)
    bzw. beim Starten der Serienbrief Funktion.

    Folgenden Code verwende ich, Word wird zwar geöffnet und das
    richtige Dokument angezeigt, aber sonst passiert nichts.

    Visual Basic-Quellcode

    1. Dim Filename As String
    5. Filename = "c:\temp\test.doc"
    9. On Error Resume Next
    11. Dim objWord As Object
    13. Dim ObjDoc As Object
    15. objWord = GetObject(, "Word.Application")
    17. If Err.Number <> 0 Then
    19. Err.Clear()
    21. objWord = CreateObject("Word.Application")
    23. End If
    27. objWord.Documents.Open(Filename:=Filename)
    29. ObjDoc = objWord.ActiveDocument
    33. objWord.WindoState = 1
    35. objWord.Visible = True
    37. objWord.activate()
    41. With ObjDoc.MailMerge
    43. .Destination = .wdSendToPrinter
    45. .SuppressBlankLines = True
    47. With .DataSource
    49. .FirstRecord = .wdDefaultFirstRecord
    51. .LastRecord = .wdDefaultLastRecord
    53. End With
    55. .Execute(Pause:=False)
    57. End With


    Ich hoffe ihr könnt mir helfen.

    Danke.


    Gruß
    André