WordAutomation/de

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.