Hallo Community,
ich programmiere in Excel unter VBA ein Firmenprogramm mit dem man u.a. Rechnungen erstellen kann. Nun möchte ich den Rechnungsversand automatisieren und komme hier leider nicht weiter.
Word soll beim öffnen alle Felder automatisch aktualisieren:
If ActiveDocument.Fields.Count > 0 Then
Dim teil As Range
Application.ScreenUpdating = False
ActiveDocument.Repaginate
For Each teil In ActiveDocument.StoryRanges
teil.Fields.Update
While Not (teil.NextStoryRange Is Nothing)
Set teil = teil.NextStoryRange
teil.Fields.Update
Wend
Next
End If
Soweit sogut, das funktioniert auch einwandfrei.
Nun soll sich Word als pdf speichern.
Der Speicherpfad inkl. Speichername steht in einer Excelmappe in Zelle Daten!A1.
Hat jemand eine Lösung?
Ich bin Dankbar für jede Hilfe.
LG Krümel
|