unit
      ComObj, lclproc;

var
      varWdApp: oleVariant;      // Reserviert Speicher für die Programmsteuerung
      varDokument: oleVariant;   // Reserviert Speicher für die Steuerung des Worddokuments

begin
      ...
      try
        varWdApp := CreateOleObject('Word.Application'); // erstellt das Wordobjekt
      except
        WriteLn('MS Word kann nicht gestartet werden.'); // Fehlerbehandlung
      end;
      ...
    end;

begin
      ...
      ShowMessage(varWdApp.Version);
      ...
    end;

begin
      ...
      varWdApp.Quit;
      varWdApp := Unassigned;
      ...
    end;

begin
      ...
      varWdApp.Visible := False;  // macht Word unsichtbar
      varWdApp.Visible := True;   // macht Word sichtbar
      ...
    end;

begin
      ...
      varWdApp.ScreenUpdating := False; // schaltet bei einem sichtbaren Word das Flackern des Bildschirms aus
                                        // und erhöht die Verarbeitungsgeschwindigkeit.
      varWdApp.ScreenUpdating := True;  // schaltet die Bildschirmaktualisierung wieder ein.
      ...
    end;

begin
      ...
      if varWdApp.System.Country <> wdGermany then ...  // prüft, ob die Wordinstallation nicht Deutsch ist.
      ...
    end;

begin
      ...
      varDokument := varWdApp.Documents.Add; // fügt ein neues 'leeres' Worddokument hinzu
      ...
    end;

begin
      ...
      varDokument :=  varWdApp.Documents.Open(FileName, EmptyParam, EmptyParam,
                          EmptyParam, EmptyParam, EmptyParam,
                          EmptyParam, EmptyParam, EmptyParam,
                          EmptyParam);
      ...
    end;

begin
      ...
      varDokument := varWdApp.Documents.Open(UTF8ToUTF16('D:\Üben.doc')); // Öffnet ein Worddokument mit Umlauten usw. im Namen
      ...
    end;

begin
      ...
      varDokument := varWdApp.Documents.Open(strPfad);        // öffnet ein Worddokument mit Hilfe einer Variablen
                                                              // (Pfad: maximal 255 Zeichen, Alphanumerisch)
      varDokument := varWdApp.Documents.Open('D:\Test.doc');  // öffnet ein Worddokument mit festem Pfad hinzu
      ...
    end;

begin
      ...
      varDokument.Activate;  //aktiviert das Worddokument
      ...
    end;

begin
      ...
      varWdApp.Selection.EndKey(wdStory);       // Cursor bewegt sich zum Ende des Dokumentes
      varWdApp.Selection.HomeKey(wdStory);      // Cursor bewegt sich zum Anfang des Dokumentes
      varWdApp.Selection.MoveRight(wdWord);     // Cursor am Anfang des nächsten Wortes
      varWdApp.Selection.MoveLeft(wdCharacter); // Cursor wird um ein Zeichen nach Links versetzt
      varWdApp.Selection.Delete(wdCharacter);   // Löscht ein Zeichen rechts vom Cursor
      varWdApp.Selection.MoveDown(wdParagraph); // Cursor bewegt sich zum Anfang des nächsten Abschnitts
      ...
    end;

begin
      ...
      varWdApp.Selection.TypeText(UTF8Decode('Neuer Text'));
      varWdApp.Selection.TypeText(UTF8Decode('Zusätzlicher Text')); // Benötigt die Unit lclproc für die korrekte
                                                                    // Umwandlung der Umlaute
    
      varWdApp.Selection.InsertAfter('Test');       // fügt im Worddokument nach der Cursorposition diesen Text ein
                                                    // die Cursorpsition befindet sich bei einem frisch geöffneten Worddokument
                                                    // immer am Anfang des Dokuments
    
      ...
    end;

begin
      ...
      varDokument.SaveAs('D:\Test.doc'); // Speichert das Worddokument unter einem neuen Namen
      varDokument.Save;                  // Speichert das Worddokument unter seinem aktuellen Namen
      ...
    end;

begin
      ...
      varDokument.SaveAs(UTF8ToUTF16('D:\Üben.doc')); // Speichert das Worddokument (mit Umlauten usw. im Namen)
                                                      // unter einem neuen Namen ab
      ...
    end;

const
      // Möglichkeiten wären u.a.
      // https://docs.microsoft.com/de-de/office/vba/api/word.wdsaveformat
      wdFormatDocument97 = 0;  // .doc format
      wdFormatRTF = 6;
      wdFormatHTML = 8;
      wdFormatXML = 11;
      wdFormatDocumentDefault = 16;  // .docx format
      wdFormatPDF = 17;
      wdFormatOpenDocumentText = 23;
    var
      FileFormat: OleVariant;    // Wichtig: das muss als OleVariant deklariert sein!
    begin
      FileFormat := wdFormatRTF;
      ADocument.SaveAs(FileName, FileFormat);
      ...

begin
      ...
      varDokument.Close;         // Schliesst das Worddokument
      varDokument := Unassigned; // Gibt den Speicher für die Programmsteuerung frei
      ...
    end;

begin
      ...
      varDokument.BuiltInDocumentProperties['Title'].Value := 'Testdokument';                 // fügt den Dokumententitel ein
      varDokument.BuiltInDocumentProperties['Subject'].Value := 'Testdokumente';              // fügt das Thema ein
      varDokument.BuiltInDocumentProperties['Author'].Value := 'Testuser';                    // fügt den Ersteller ein
      varDokument.BuiltInDocumentProperties['Manager'].Value := 'Testmanager';                // fügt den verantwortlichen Manager ein
      varDokument.BuiltInDocumentProperties['Company'].Value := 'Testfirma';                  // fügt die Firma ein
      varDokument.BuiltInDocumentProperties['Category'].Value := 'Automatisationsbeispiele';  // fügt die Kategorie ein
      varDokument.BuiltInDocumentProperties['Comments'].Value := 'Erstes Muster';             // fügt einen Kommentar ein
      ...
    end;

begin
      ...
      varWdApp.Selection.ParagraphFormat.Alignment := wdAlignParagraphright;  // Ausrichtung am rechten Dokumentrand
      varWdApp.Selection.ParagraphFormat.Alignment := wdAlignParagraphLeft;   // Ausrichtung am linken Dokumentrand
      varWdApp.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter; // Ausrichtung in der Dokumentmitte
      ...
    end;

begin
      ...
      varWdApp.Selection.TypeParagraph; // fügt einen Zeilenumbruch (Absatz) ein
      // Alternative
      varWdApp.Selection.InsertAfter(String(#13));  // fügt einen Zeilenumbruch im Worddokument ein
      varWdApp.Selection.InsertAfter(String(#10));  // fügt einen Zeilenumbruch im Worddokument ein
      ...
    end;

begin
      ...
      varWdApp.Selection.Font.Name   := 'Times New Roman'; // Schriftart
      varWdApp.Selection.Font.Size   := 12;                // Schriftgrösse
      varWdApp.Selection.Font.Bold   := True;              // Fettschrift
      varWdApp.Selection.Font.Italic := True;              // Kursivschrift
    
      varWdApp.Selection.Font.Name   := 'Arial';           // Schriftart
      varWdApp.Selection.Font.Size   := 11;                // Schriftgrösse
      varWdApp.Selection.Font.Bold   := False;             // keine Fettschrift
      varWdApp.Selection.Font.Italic := False;             // keine Kursivschrift
      ...
    end;

var
      varBookmark: oleVariant;   // Reserviert Speicher für die Steuerung der Bookmark

begin
      ...
      // Fügt an der Stelle einer Bookmark (Textmarke / Markierung) einen Text ein
      varBookmark := varDokument.Bookmarks.Item(2);  // Auswahl der zu ersetzenden Bookmark (Markierung) über den Index
                                                     // in diesem Fall ist es die erste Bookmark
      // Alternative
      varBookmark := varDokument.Bookmarks.Item('Test2');  // Auswahl der zu ersetzenden Bookmark (Markierung) über ihren Namen
      ...
    end;

begin
      ...
      varBookmark.Range.Text := UTF8ToUTF16('Testeintrag für die Bookmark'); // damit wird an der Position der
                                                                             // Bookmark der Text eingefügt.
      ...
    end;

begin
      ...
      // Löscht, die ausgewählte Bookmark und nicht den eingefügten Text
      varDokument.Bookmarks.Item(1).Delete;       // Löscht die Bookmark über einen Index
      // Alternative
      varDokument.Bookmarks.Item('Test1').Delete; // Löscht die Bookmark über ihren Namen
      ...
    end;

begin
      ...
      varBookmark := Unassigned;
      ...
    end;

begin
      ...
      if varDokument.Bookmarks.Exists('Text1') then ... ;  //Prüft, ob eine Bookmark vorhanden ist
      ...
    end;

var
      intAnz: Integer;
    begin
      ...
      intAnz := varDokument.Bookmarks.Count;
      ...
    end;

begin
      ...
      varWdApp.ActiveDocument.FormFields.Item('Text1').Result := 'Versuch'; // schreibt in ein Formularfeld
      varWdApp.ActiveDocument.FormFields.Item('Text1').Result := ''; // leert ein Formularfeld
      ...

var
      strText: String;
    begin
      ...
      strText := varWdApp.ActiveDocument.FormFields.Item('Text2').Result; // liest ein Formularfeld aus
      ...
    end;

var
      varTabelle: oleVariant;

begin
      ...
      varTabelle := varDokument.Tables.Add(varWdApp.Selection.Range, 5, 3);
      ...
    end;

begin
      ...
      varTabelle.Cell(1, 1).Range.Text := 'Januar';
      varTabelle.Cell(1, 2).Range.Text := 'Februar';
      varTabelle.Cell(1, 3).Range.Text := UTF8ToUTF16('März');
      ...
    end;

var
      intAnz: Integer;
    begin
      ...
      varDokument.Tables.Item(1).Cell(2, 2).Range.Text:='Hallo'; // fügt in einen Wert in eine Zelle ein
      varDokument.Tables.Item(1).Rows.Add();  // fügt am Ende der Tabelle eine Zeile an
      intAnz:=varDokument.Tables.Item(1).Rows.Count;  // ermittelt die Anzahl der Zeilen
      ...
    end;

begin
      ...
      varTabelle := Unassigned;
      ...
    end;

unit uWdConst;
    
    interface
    
    const
    // Klasse WdGoToItem
    wdGoToBookmark = -1;
    wdGoToComment = 6;
    wdGoToEndnote = 5;
    wdGoToEquation = 10;
    wdGoToField = 7;
    wdGoToFootnote = 4;
    wdGoToGrammaticalError = 14;
    wdGoToGraphic = 8;
    wdGoToHeading = 11;
    wdGoToLine = 3;
    wdGoToObject = 9;
    wdGoToPage = 1;
    wdGoToPercent = 12;
    wdGoToProofreadingError = 15;
    wdGoToSection = 0;
    wdGoToSpellingError = 13;
    wdGoToTable = 2;
    
    // Klasse wdParagraphAlignment
    wdAlignParagraphCenter = 1;
    wdAlignParagraphDistribute = 4;
    wdAlignParagraphJustify = 3;
    wdAlignParagraphJustifyHi = 7;
    wdAlignParagraphJustifyLow = 8;
    wdAlignParagraphJustifyMed = 5;
    wdAlignParagraphLeft = 0;
    wdAlignParagraphRight = 2;
    wdAlignParagraphThaiJustify = 9;
    
    //Klasse wdRowAlignment
    wdAlignRowCenter = 1;
    wdAlignRowLeft = 0;
    wdAlignRowRight = 2;
    
    // Klasse wdOpenFormat
    wdOpenFormatAllWord = 6;
    wdOpenFormatAuto = 0;
    wdOpenFormatDocument = 1;
    wdOpenFormatEncodedText = 5;
    wdOpenFormatRTF = 3;
    wdOpenFormatTemplate = 2;
    wdOpenFormatText = 4;
    wdOpenFormatUnicodeText = 5;
    wdOpenFormatWebPages = 7;
    wdOpenFormatXML = 8;
    
    // Klasse WdSaveOptions
    wdDoNotSaveChanges = 0;
    wdPromptToSaveChanges = -2;
    wdSaveChanges = -1;
    
    // Klasse WdCountry
    wdArgentina = 54;
    wdBrazil = 55;
    wdCanada = 2;
    wdChile = 56;
    wdChina = 86;
    wdDenmark = 45;
    wdFinland = 358;
    wdFrance = 33;
    wdGermany = 49;
    wdIceland = 345;
    wdItaly = 39;
    wdJapan = 81;
    wdKorea = 82;
    wdLatinAmerica = 3;
    wdMexico = 52;
    wdNetherlands = 31;
    wdNorway = 47;
    wdPeru = 51;
    wdSpain = 34;
    wdSweden = 46;
    wdTaiwan = 886;
    wdUK = 44;
    wdUS = 1;
    wdVenezuela = 58;
    
    // Klasse WdUnits
    wdCell = 12;
    wdCharacter = 1;
    wdCharacterFormatting = 13;
    wdColumn = 9;
    wdItem = 16;
    wdLine = 5;
    wdParagraph = 4;
    wdParagraphFormatting = 14;
    wdRow = 10;
    wdScreen = 7;
    wdSection = 8;
    wdSentence = 3;
    wdStory = 6;
    wdTable = 15;
    wdWindow = 11;
    wdWord = 2;
    
    implementation
    
    end.