Question

我使用下面的代码创建一个word文档，并添加一个包含信息的表。如何使用delphi ole自动化将填充颜色更改为白色，背景1，更暗25％。

另外，如何将字体名称更改为新罗马字体，以及之前和之后的间距。

我尝试了wrdDoc.Tables.Item(1).Cell(1,1).Range.pagelayout.Paragraphs.spacing.before:=2.9;，但它不起作用，表示不支持methot pagelayout。

我正在使用delphi xe3和office 2013。

  WrdApp := CreateOLEObject('Word.Application');
  wrdDoc := wrdApp.Documents.Add();
  wrdDoc.Select;
  Wrddoc.SaveAs(ExtractFilePath(application.ExeName)+'Documents\temp.doc');

  wrdSelection := wrdApp.Selection;
  wrdDoc.Tables.Add(wrdSelection.Range,1,1);
  wrdDoc.Tables.Item(1).Columns.Item(1).SetWidth(300,wdAdjustNone);
  wrdDoc.Tables.Item(1).Borders.Item(wdBorderLeft).LineStyle:=wdLineStyleSingle;
  wrdDoc.Tables.Item(1).Borders.Item(wdBorderRight).LineStyle:=wdLineStyleSingle;
  wrdDoc.Tables.Item(1).Borders.Item(wdBorderTop).LineStyle:=wdLineStyleSingle;
  wrdDoc.Tables.Item(1).Borders.Item(wdBorderBottom).LineStyle:=wdLineStyleSingle;
  wrdDoc.Tables.Item(1).Cell(1,1).Range.Paragraphs.Alignment := wdAlignParagraphcenter;
  wrdDoc.Tables.Item(1).Cell(1,1).Range.InsertAfter(text);

非常感谢

如何使用delphi更改MS Word中表的填充颜色

0 个答案: