Delphi 2010: contenuti multilinea in tabella di Word

Question

Sto automatizzando alcuni la creazione di documenti con Delphi 2010.

Nel layout che ho, ho bisogno di inserire una riga di testo in una cella di Word tavolo (1, 1), per poi passare alla riga successiva, modificare le impostazioni di paragrafo, e inserire una riga orizzontale

posso installare la tavola e il primo contenuto linea, ma non può per la vita di me capire come spostare il cursore sulla seconda linea della cellula, o inserire la linea orizzontale

Quello che ho finora:

   tbl.Cell(1, 1).Range.Text := s;
   with tbl.Cell(1, 1).Range do
   begin
      Font.Name := '+Headings';
      Font.Size := 14;
      Font.Bold := -1;
      Font.AllCaps := -1;
      ParagraphFormat.LineSpacingRule := wdLineSpaceAtLeast;
      ParagraphFormat.LineSpacing := 12;
      ParagraphFormat.SpaceAfter := 0;
      ParagraphFormat.SpaceBefore := 0;
   end;
   tbl.Cell(1, 1).Range.InsertParagraphAfter;

Non posso nemmeno creare una macro per la linea orizzontale (che deve essere e esatta dimensione e peso) come VBA in Word 2010 non registrerà da destra-clic ...

Answer 1

Quindi, il codice che ho bisogno di fare la nuova linea è la seguente

seltype := wdLine;
lineextend := False;
WordApp.Selection.EndKey(seltype, lineextend);
WordApp.Selection.TypeParagraph;

Il che invia un segnale di "Fine" per Word.

Per quanto riguarda la registrazione del nuovo Linea orizzontale, ho scoperto che in alcune situazioni il Menu contestuale chiave su una tastiera di Windows funziona ancora durante la registrazione delle macro, in cui Right Click non.