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

对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