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:
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
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
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
Man gut, dass ich
Zitato.ä.
geschrieben habe. ;D
@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