Hallo,
ich habe folgenden Code:
Sub Fußzeile_ersetzen_aus_Zwischenspeicher()
strPath = "C:\Dokumente und Einstellungen\juerrebe\Desktop\Bewerber\"
strExt = "*.dot"
Dim strFile As String
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
Documents.Open Filename:=strPath & strFile
ActiveWindow.View.Type = wdPrintView
ActiveWindow.View.SeekView = wdSeekCurrentPageFooter
Selection.WholeStory
Selection.PasteAndFormat (wdFormatOriginalFormatting)
ActiveDocument.Close
strFile = Dir()
Loop
End If
End Sub
Dieser ersetzt mir die Fußzeile in allen Dokumenten des gewählten Ordners durch die Fußzeile, die ich gerade im Zwischenspeicher habe.
Das funktioniert auch ganz gut.
Ich möchte allerdings, dass nur dort Fußzeilen eingesetzt werden, wo auch eine Fußzeile vorhanden ist.
Außerdem soll die Vorlage automatisch gespeichert werden, ohne dass ich immer bestätigen muss.
Vielleicht hat ja jemand eine idee?
Gruß Benjamin