Danke ralf_b für dein Feedback! Ich suche das erste Mal Hilfe im Forum, daher sehe es mir bitte nach.

Es handelt sich um ein Buch und ich möchte gerne das auf Seite ein 1 im 1. Abschnitt der Titel über eine Inputbox eingetragen werden kann. Ob es über ein Textfeld, Formularfeld oder sonst wie eingebunden ist, spielt für mich keine Rolle. Anschließend soll der Titel dann im 4. Abschnitt in der Kopfzeile automatisch eingefügt werden.

Folgenden Code habe ich bisher:


'Zum Dokumentenanfang gehen

Selection.HomeKey Unit:=wdStory, Extend:=wdMove

'Standard Formatvorlage

Selection.Style = ActiveDocument.Styles("Standard")

'Titelseite einfügen

    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.Font.Bold = True
    Selection.Font.Size = 16
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
Selection.FormFields.Add Range:=Selection.Range, Type:= _
        wdFieldFormTextInput
    Selection.PreviousField.Select
    With Selection.FormFields(1)
        .Name = "CTRLBullet"
        .EntryMacro = ""
        .ExitMacro = ""
        .Enabled = False
        .OwnHelp = True
        .HelpText = "Dies ist ein Platzhalter."
        .OwnStatus = False
        .StatusText = ""
        With .TextInput
            .EditType Type:=wdRegularText, Default:="[" & ChrW(9679) & "]", _
                Format:=""
            .Width = 0
        End With
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=3
    
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.Font.Bold = False
    Selection.Font.Size = 16
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.TypeText Text:="Untertitel"
    Selection.TypeParagraph
    Selection.TypeParagraph

'Abschnittsumbruch einfügen

Selection.InsertBreak Type:=wdSectionBreakNextPage


....


'Kopfzeile einfügen

With ActiveDocument.Sections(4)
 ActiveWindow.View.SeekView = wdSeekCurrentPageHeader
 
 Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
        LinkToPrevious
    
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End With


With ActiveDocument.Sections(4)
 ActiveWindow.View.SeekView = wdSeekCurrentPageHeader
 
 With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "REF CTRLBullet ", PreserveFormatting:=False
    
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End With