Delphi-word插件-记录剪贴板样式表将要复制多种样式，是否改用正文样式问题修改

最新推荐文章于 2023-08-30 09:31:23 发布

小熊猫-YMX

最新推荐文章于 2023-08-30 09:31:23 发布

阅读量1.9k

点赞数 1

分类专栏： Delphi 文章标签： Delphi

本文链接：https://blog.csdn.net/yycly/article/details/100560141

版权

本文介绍如何通过Delphi利用Word COM接口读取每一页内容，并在另一Word文档中插入，涉及样式表和正文样式的问题。

摘要由CSDN通过智能技术生成

对word操作，采用word COM 方式：
读取word 每一页内容，然后插入到另一个word 并保存下来

procedure TForm1.btn1Click(Sender: TObject);
const
  wdFormatOriginalFormatting = $00000010;
    wdFormatSurroundingFormattingWithEmphasis = $00000014;
var
  wordApp, aDoc,aDoc2,oSection,myStartRange,myEndRange,aDoc3: OleVariant;
  i,j,pages,start,iend:Integer;
  stemp:string;
begin
  try
    wordApp := CreateOleObject('Word.Application');
    aDoc := wordApp.Documents.Add();
    aDoc2 :=  wordApp.Documents.open('C:\Users\Administrator\Desktop\word转换待研究问题\第四章 合同条款及格式.doc');
    //aDoc.Activate;

    aDoc.Activate;
    pages := aDoc2.ComputeStatistics(2, False);
//    ShowMessage(IntToStr(pages));

//    ShowMessage(IntToStr(aDoc.Sections.count));
//    myEndRange := aDoc.Range();
    wordApp.Selection.InsertFile('C:\Users\Administrator\Desktop\word转换待研究问题\123.doc','',true,False,False);
    for I := 0 to pages - 1 do
    beg