AW: Zellwert in Word schreiben
24.11.2021 11:35:41
UweD
Hallo
ich hab mal was ähnliches gemacht.
In Word werden Bookmarks an den Stellen gesetzt.
Die werden dann durch deinen Wert ersetzt.
Das Drucken müsstest du noch einbauen.
Sub Word_TM()
Dim objWDApp As Object, objDocx As Object, BMark As String, BText As String
Dim WPfad As String, WDatei As String
WPfad = "E:\Excel\Temp\" 'Pfad der WordDatei mit \ am Ende
WDatei = "Test.docx" 'Name der Worddatei
BMark = "Marke1" 'Name der Textmarke
BText = "Das ist der gewünschte Text"
'*** Flackern unterbinden
Application.ScreenUpdating = False
'*** Word-Anwendung sichtbar starten
Set objWDApp = CreateObject("Word.Application")
objWDApp.Visible = True
'*** Datei öffnen
Set objDocx = objWDApp.Documents.Open(WPfad & WDatei)
With objDocx
'*** prüfen, ob Textmarken existieren, dann im Worddokument einfügen/ersetzen
If .Bookmarks.Exists(BMark) Then
.Bookmarks(BMark).Range.Text = BText
End If
'Speichern
'.SaveAs (WPfad & :...usw...)
End With
'*** Word schließen
'objWDApp.Quit 'bei Bedarf
End Sub
LG UweD