Hallo Ihr Lieben,
ich tüftle nun seit Tagen an folgendem Problem:
Ich möchte gerne ein Makro in meinem Word anlegen, der mir aus einer bestimmten Mustervorlage die Kopf- und Fußzeile (erste Seite anders) exakt so in den jeweiligen offenen Dokument, dass ich gerade bearbeite, einfügt (sind immer verschiedene neue Dokumente, in dem diese K&F-Zeilen eingefügt werden sollen).
Ich habe schon einiges probiert. Manchmal klappt nur die Fußzeile zu kopieren, dann findet er manchmal die Quellen nicht mehr... Ich bin völlig verzweifelt...
Sub Makro1()
'
' Makro1 Makro
'
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
Set DocAlt = ActiveDocument
Set DocNeu = Documents.Open("C:\Quelle_Dokument_Kopf_Fuss.docx")
ActiveWindow.View.SeekView = wdSeekCurrentPageHeader
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Copy
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.TypeBackspace
Selection.WholeStory
Selection.Copy
Selection.Copy
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.TypeBackspace
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.WholeStory
Selection.Copy
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.TypeBackspace
Selection.WholeStory
Selection.Copy
Selection.Copy
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.TypeBackspace
End Sub
Ich würde mich so, so, so, so, so, so, so sehr über Hilfe freuen, wenn jemand eine Idee hat, wie man dieses Makro funktionstüchtig macht...
Schon mal vielen Dank und liebe Grüße
M.