每次插入表格时,前面的文字都被替换掉,不知怎么回事。
请高人指教,如何在表格的前一段先插一段文字,然后再插入表格?

解决方案 »

  1.   

    写完文字换行FWord.Selection.Typeparagraph;
    再写表格
      

  2.   

    写了一段你看下吧,希望对你有帮助
    procedure TForm1.Button1Click(Sender: TObject);
    var
    FWord :Variant; 
    FDoc :Variant;
    wdPar,wdRange:OleVariant;
    begin
      FWord := CreateOleObject('Word.Application');
      FWord.Visible := True;
      FDOC :=FWord.Documents.Add;
      FWord.Selection.TypeText(' 2222  ');
      FWord.Selection.paragraphs.Alignment := wdAlignParagraphCenter;
      FWord.Selection.Typeparagraph;
      wdPar:=FWord.ActiveDocument.Paragraphs.Add;
      wdRange:=wdPar.Range;
      wdRange := FWord.ActiveDocument.Content;
      wdRange.Collapse(wdCollapseEnd);
      FDOC.Tables.Add(wdRange,2,5);
      FDOC.Tables.Item(1).Cell(1,1).Range.Text:='333';
    end;