1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

NormalTemplate.AutoTextEntries("Erstellt von, Seite, Datum").Insert Where _
        :=Selection.Range, RichText:=True

If Selection.HeaderFooter.IsHeader = True Then
   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If

NormalTemplate.AutoTextEntries("Seite X von Y").Insert Where:=Selection. _
Range, RichText:=True

Selection.TypeText Text:="                          GftSollIst"					

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:

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;					

1:
2:
3:

    WordApplication1.Selection.Borders.Item(wdBorderBottom).LineStyle :=wdLineStyleDouble;
    WordApplication1.Selection.Borders.Item(wdBorderBottom).LineWidth :=wdLineWidth050pt;
    WordApplication1.Selection.Borders.Item(wdBorderBottom).Color     :=wdColorRed;					

1:
2:
3:

formfeld:=myword.ActiveDocument.FormFields.Add(myword.Selection.Range,wdFieldFormTextInput);
formfeld.Name:='ueberschrift';
formfeld.Range.Text:=name;					

1:
2:
3:
4:
5:

var _field : TOleEnum;
...

_field := wdFieldFormTextInput;
myword.ActiveDocument.FormFields.Add(myword.Selection.Range,_field);					

1:
2:

myword.ActiveDocument.FormFields.Item(formfeld.name).Range.Text:=name;
myword.ActiveDocument.Formfields.Item('Text1').Result := name;					

1:
2:
3:
4:

myword.Selection.TypeText(name);
myword.Selection.ParagraphFormat.Alignment:= wdalignparagraphleft;
myword.Selection.TypeText('Evaluierung GFT Sol[l]Ist');
myword.Selection.ParagraphFormat.Alignment:= wdalignparagraphright;					

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

Var: _type,_Text,_PreserveFormatting:olevariant;
...
    WordApplication1.Selection.TypeText('Seite ');
    _Type:=wdFieldEmpty;
    _Text:='PAGE';
    _PreserveFormatting:=true;
    WordApplication1.Selection.Fields.Add(WordApplication1.Selection.Range,_type,_Text,_PreserveFormatting);
    WordApplication1.Selection.TypeText(' von ');
    _Text:='NUMPAGES';
    WordApplication1.Selection.Fields.Add(WordApplication1.Selection.Range,_type,_Text,_PreserveFormatting);					

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

    WordApplication1.Selection.TypeParagraph;
    WordApplication1.Selection.TypeText('Links'+chr(vk_tab)+'Rechts');
    _Alignment:= wdAlignTabRight;
    _Leader   := wdTabLeaderSpaces;
    WordApplication1.Selection.ParagraphFormat.TabStops.Add(
         WordApplication1.CentimetersToPoints(15.87),
         _Alignment,
         _Leader);					

1:
2:
3:
4:

var _field : Olevariant  
...  
_field := wdFieldFormTextInput;  
myword.ActiveDocument.FormFields.Add(myword.Selection.Range,_field);					

1:
2:
3:
4:

var _field : Olevariant  
...  
_field := wdFieldFormTextInput;  
myword.ActiveDocument.FormFields.Add(myword.Selection.Range,_field);					

1:
2:
3:
4:
5:

Var _Formfield:Formfield;
...
    _field := wdFieldFormTextInput;
    _Formfield:=WordApplication1.ActiveDocument.FormFields.Add(WordApplication1.Selection.Range,_field);
    _Formfield.Name := 'TestName';					

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

   myword.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader;
   myword.Selection.TypeText(dateiname);
   myword.Selection.TypeText(chr(vk_tab)+chr(vk_tab));
   myword.Selection.Font.Bold := wdtoggle;
   myword.Selection.Font.Name:='Verdana';
   _alignment := wdaligntabcenter;
   _Leader := wdtableaderspaces;
   //myword.Selection.ParagraphFormat.TabStops.Add(myword.CentimetersToPoints(10),_Alignment,_Leader);
   myword.Selection.TypeText('Evaluierung GFT Sol[l]Ist');