This is my code to adjust the alignment:
Code: Select all
uses WordXp;
var wordDoc:TWordDocument;
begin
..............
wordDoc.Select; //Select all
wordDoc.Application.Selection.ParagraphFormat.BaseLineAlignment := 1; //set valign absMiddle
wordDoc.Application.Selection.SetRange(0,0);//Deselect
end;