如何使用delphi自动化在MSWOrd中的表格单元格中选择文本？

Question

我很难理解 Word Automation 中的选择。 简而言之，我想在生成的 Word 文档中的某处有一个表格，并且我需要对特定单元格内的文本进行对齐。我如何做到这一点？

我使用 ComObj 方法：

  var
   MsWord: Variant;
  ...
  try
    MsWord := GetActiveOleObject('Word.Application');
  except
    try
      MsWord := CreateOleObject('Word.Application');
      MsWord.Visible := True;
    except
      Exception.Create('Error');
    end;
  end;

我如何告诉 Word 文本（单元格）在哪里以便以后能够对齐它？ 我使用此代码向单元格添加文本：

Function AddTextToTableCell(Table:integer;Row, Column:integer;text:string):boolean;
begin
  AddTextToTableCell:=true;
  try
    MsWord.ActiveDocument.Tables.Item(Table).Columns.Item(Column).Cells.Item(Row).Range.Text:=text;
  except
    AddTextToTableCell:=false;
  end;
End;

我可以修改它以设置单元格内文本的对齐方式吗？假设我想将位于行：1 和列：3 的单元格居中对齐。我的单元格有多行（可变）文本。我想水平和垂直居中。

我在 Google 上搜索了其他自动化代码，这一行应该可以解决问题，除了它在 delphi 中没有...（似乎 VB 等价物可以使用它）：

MSWORD.ActiveDocument.Tables.Item(Table).Cell(Row,Column).Range.Paragraphs.Alignment := wdAlignParagraphCenter;

如果我使用

MSWORD.ActiveDocument.Tables.Item(Table).Range.ParagraphFormat.Alignment := wdAlignParagraphCenter

然后表格中的所有单元格都对齐到水平中心。我只想要一个特定的单元格，我也希望它垂直居中

请帮忙。

谢谢

Answer 1

我不确定我是否误解了您的问题，但如果不是，那是由于缺少一个简单的步骤造成的。以下内容对我有用（D7），如果看起来有点啰嗦，我深表歉意，但我开始遇到和你一样的问题：

procedure TForm1.Button1Click(Sender: TObject);
var
  MSWord,
  Document,
  Table,
  Selection,
  Range,
  Cell : OleVariant;
  Rows,
  Columns,
  ARow,
  AColumn : Integer;
  RowIndex,
  ColIndex : Integer;
  S : String;
begin
  try
    MsWord := GetActiveOleObject('Word.Application');
  except
    try
      MsWord := CreateOleObject('Word.Application');
      MsWord.Visible := True;
    except
      Exception.Create('Error');
    end;
  end;
  Rows := 3;
  Columns := 4;
  Document := MSWord.Documents.Add;
  Table := MSWord.ActiveDocument.Tables.Add( Range:= MSWord.Selection.Range, NumRows:= Rows, NumColumns:= Columns, DefaultTableBehavior:= wdWord9TableBehavior, AutoFitBehavior:= wdAutoFitFixed);

  for ARow := 1 to Rows do begin
    for AColumn := 1 to Columns do begin
      Cell := Table.Cell(ARow, AColumn);
      RowIndex := Cell.RowIndex;
      ColIndex := Cell.ColumnIndex;
      Caption := IntToStr(RowIndex) + '/' + IntToStr(ColIndex);
      Range := Cell.Range;
      Range.Select;
      S := Format('Row: %d, col: %d', [RowIndex, ColIndex]);
      MSWord.Selection.Range := Range;
      MSWord.Selection.TypeText(Text := S);
    end;
  end;

  Cell := Table.Cell(2, 2);
  Range := Cell.Range;
  Range.Select;
  Range.ParagraphFormat.Alignment := wdAlignParagraphCenter;
end;

关键是“range.select”。如果你把它们注释掉，你会发现所有的文本都在 1,1 单元格中。

Answer 2

我假设您已经编写了一些复杂的代码，并且不想重写您的代码。但是，我确实想建议您在enter link description here 上查看 TMS 软件。它们有非常丰富的表格组件。