delphi - 如何使用 Delphi MSWord 自动化对齐段落？

Question

我想将文本对齐到中心，但我不知道如何实现它。
这是我的代码:

  try
    MsWord := GetActiveOleObject('Word.Application');
  except
    try
      MsWord := CreateOleObject('Word.Application');
      MsWord.Visible := True;
    except
      Exception.Create('Error');
    end;
  end;
  MSWord.Documents.Add;
  MSWord.Selection.Font.Size := 22;
  MSWord.Selection.Font.Bold := true;
  MSWord.Selection.TypeText(#13#10);
  MSWord.Selection.TypeText('I want this to be center-aligned'); 
  ...
  MSWord.ActiveDocument.SaveAs('C:\doc2.doc');

请帮忙。

谢谢

Answer 1

这对我有用:

procedure TForm1.Button1Click(Sender: TObject);
var
  MSWord : OleVariant;
begin
  try
    MsWord := GetActiveOleObject('Word.Application');
  except
    try
      MsWord := CreateOleObject('Word.Application');
      MsWord.Visible := True;
    except
      Exception.Create('Error');
    end;
  end;
  MSWord.Documents.Add;
  MSWord.Selection.Font.Size := 22;
  MSWord.Selection.Font.Bold := true;
  MSWord.Selection.TypeText(#13#10);
  MSWord.Selection.TypeText('I want this to be center-aligned');
  MSWord.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
  MSWord.ActiveDocument.SaveAs('C:\doc2.doc');
end;

顺便说一句，自己找到答案的方法是进入 Word，开始录制宏，执行操作，停止录制，然后编辑宏以查看 Word 生成的代码。如果您使用后期绑定(bind)(通过 OleVariant 从 Delphi 访问 Word)，将其转换为 Delphi 通常相当简单，但如果您使用早期绑定(bind)，则可能会有点冗长，因为早期绑定(bind)需要指定所有参数，而后期绑定(bind)可让您将大部分内容排除在外。