if fuhe then
begin
//WordDoc2.Content.InsertAfter(WordDoc1.Paragraphs.item(i).Range.Text);
WordDoc1.Paragraphs.item(i).Range.copy;
WordDoc1.range.Paste;
end;
我的语句是这么写的,但是不行
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
WordApp:=CreateOleObject('Word.Application');
WordDoc1:=WordApp.Documents.Open('F:\Test1.doc');
WordDoc2:=WordApp.Documents.Add;
try
// WordApp.visible:=True;
for i:=1 to WordDoc1.Paragraphs.Count do
begin
WdRange:=WordDoc1.Range(WordDoc1.Paragraphs.item(i).Range.Start,
WordDoc1.Paragraphs.item(i).Range.Start+2);
if WdRange.Text = 'A1' then
WordDoc2.Content.InsertAfter(WordDoc1.Paragraphs.item(i).Range.Text);
//上一句只对文字进行操作,会丢失格式。如果要保留格式,用Copy和Paste方法。
end;
WordDoc2.SaveAs('F:\Test2.doc');
finally
WordApp.Quit;
WordApp:=Unassigned;
WordDoc1:=Unassigned;
WordDoc2:=Unassigned;
WdRange:=Unassigned;
end;
end;