Texmarken in Word abfüllen und Word auch anzeigen

[Micharius]

Hallo zusammen
Vermutlich ein ganz einfaches Ding, aber ich mit meinen bescheidenen VBA Kenntnissen bringe es nicht hin.

Dieser funktionierende Code öffnet eine Vorlage und füllt die gemachten Textmarken im Dokument aus:

Code [Auswählen] Erweitern

Private Sub Befehl5_Click()
Dim wdApp As Object, wdDoc As Object
Set wdApp = CreateObject("word.application")

With wdApp
   .Visible = True
   Set wdDoc = .Documents.Add("C:\Vorlagen\Word\Brief.dotx")
End With

With wdDoc
   .Bookmarks("Adresse").Range = Me!Text0
   .Bookmarks("Anrede").Range = Me!Text2
    End With
End Sub

Word bleibt aber danach im Hintergrund, und der Benutzer merkt gar nicht, dass da was passiert ist. Kann ich einen Zusatz machen, dass Word auch automatisch angezeigt wird?

Vielen Dank im voraus für einen Input,

Grüsse

Micharius

[Beaker s.a.]

Hallo Micharius,
Kenne mich mit dem Thema zwar nicht aus, würde aber nach einer
Methode "SetFocus" o.ä. des Objektes "wdApp" suchen. Vielleicht
reicht "Visible" nicht aus.
gruss ekkehard

[compinaut]

Hallo,
an einer anderen Stelle im Netz habe ich es gefunden. Hat mich selbst interessiert. Finde den Code nämlich selbst auch sehr spannend.

Es muss nur die Zeile

wdApp.Activate

angefügt werden.

Gruß
compinaut

[Beaker s.a.]

Man gut, dass ich

o.ä.

geschrieben habe. 

[Micharius]

@Compinaut
G-E-N-I-A-L 
Es klappt!
Vielen Dank - habe selber natürlich auch gesucht, aber nichts gefunden, dass mich weitergebracht hätte...
Micharius