Public Function Kopfzeile(ByRef Doc As Object, AenderungsID As String, Betrieb As String, BauE As String) As Object
Dim bmrange As Range
Set bmrange = Doc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Bookmarks("Aenderung").Range
bmrange = AenderungsID
ActiveDocument.Bookmarks.Add Name:="Aenderung", Range:=bmrange
Dim BetriebRa As Range
Set BetriebRa = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Bookmarks("Anlage").Range
BetriebRa = Betrieb
ActiveDocument.Bookmarks.Add Name:="Anlage", Range:=BetriebRa
Dim BauRa As Range
Set BauRa = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Bookmarks("Bau").Range
BauRa = Bau
ActiveDocument.Bookmarks.Add Name:="Bau", Range:=BauRa
Exit Function
ErrHandling:
MsgBox "The following error ocurred: " & Err.Description & vbCrLf & "Location: " & Err.Source
End Function
Der Aufruf der Funktion sieht folgendermaßen aus:
AppDoc = Kopfzeile(AppDoc, UserForm1.AenderungsIDE, UserForm1.BetriebE, UserForm1.BauE)