uses comobj; 
 
const 
  Wort = 2; 
  Zeile = 5; 
  Zeichen = 1; 
  Dokument = 6; 
  markieren = 1; 
 
var 
  Word1: OleVariant; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  Word1 := CreateOleObject('Word.Application'); 
  Word1.Documents.Open('c:\test.doc'); 
  Word1.visible := true; 
 
// --- Sieben Buchstaben nach rechts ohne markieren --- 
  Word1.Selection.MoveRight(Zeichen, 7); 
 
// --- Vier Buchstaben nach links mit markieren --- 
  Word1.Selection.MoveLeft(Zeichen, 4, markieren); 
 
// --- An den Zeilenanfang ohne markieren --- 
  Word1.Selection.HomeKey(Zeile); 
 
// --- An das Zeilenende mit markieren --- 
  Word1.Selection.EndKey(Zeile, markieren); 
 
// --- Nächste Zeile auch noch markieren --- 
  Word1.Selection.MoveDown(Zeile, 1, markieren); 
 
// --- An den Zeilenanfang der nächsten Zeile ohne markieren--- 
  Word1.Selection.MoveDown(Zeile, 1); 
  Word1.Selection.HomeKey(Zeile); 
 
// --- Zwei Wörter nach rechts mit markieren --- 
  Word1.Selection.MoveRight(Wort, 2, markieren); 
 
// --- An den Dokumentenanfang ohne markieren --- 
  Word1.Selection.HomeKey(Dokument); 
 
// --- An das Dokumentenende mit markieren --- 
  Word1.Selection.EndKey(Dokument, markieren); 
 
// --- Markierung der letzten Zeile aufheben --- 
// --- (markieren + markieren = nicht markiert) 
  Word1.Selection.MoveUp(Zeile, 1, markieren);

end;