1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    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.TypeText Text:="blablabla"
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument					

1:

    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

procedure TForm1.Button1Click(Sender: TObject);  
Var _index,_Richtext:olevariant;  
begin  
  //eine Wordapplication auf die Form, alle einstellugen so lassen  
  WordApplication1.Connect;  
  try  
    //neues Dokument hinzufügen und zu diesem verbinden  
    WordDocument1.ConnectTo(WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam));  
    WordApplication1.Selection.TypeText('Hallo');  

 
    //Kopzeile anzeigen und Text einfügen  
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader;  
    _index := 'Erstellt von, Seite, Datum';  
    _Richtext:=true;  
    WordApplication1.NormalTemplate.AutoTextEntries.Item(_index).Insert(WordApplication1.Selection.range,_richtext);  

 
    //fußzeile anzeigen und Text einfügen  
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageFooter;  
    _index := 'Seite X von Y';  
    _Richtext:=true;  
    WordApplication1.NormalTemplate.AutoTextEntries.Item(_index).Insert(WordApplication1.Selection.range,_richtext);  
    //text zentrieren  
    WordApplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;  

 
    //wieder zurück zum Dokument  
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;  

 
    //"Enter" und nochmal was vom Text  
    WordApplication1.Selection.TypeParagraph;  
    WordApplication1.Selection.TypeText('blabla');  
    //worddocument close, save etc. -> Forensuche  
  finally  
    WordApplication1.Disconnect;  
  end;  
end;