1. 如何用delphi操作word
一. 定义word应用程序,文档对象,比如:
wordApp: OleVariant;
wordDoc: OleVariant;
二. 打开word文档
wordApp := CreateOleObject('Word.Application');
wordDoc := WordApp.Documents.Open(FileName:=filename,
ReadOnly:= false, Revert:=True, Visible:= True);
WordApp.Visible := false;
三.表格插入数据
WordDoc.Tables.Item(TbIndex).cell(cellrow,cellcol).Range.InsertAfter(conStr);
四.在指定行写数据
WordDoc.Paragraphs.Item(16).Range.InsertAfter('abcd');
五.指定字符位置插入数据
MyRange: OleVariant;
MyRange := wordDoc.Range(Start:=0,End:=10);
MyRange.InsertAfter('abcd'+#13);
六.文件保存
wordDoc.SaveAs(filename);
七.连接word(联系:二打开文档)
//测试当前是否运行了word
try
v := getactiveoleobject(word.application);
except
//未运行则运行之
v := createoleobject(word.basic);
end; r /> try
//连接到word
wordapp.connect;
except
beep;
messagedlg(不能生成文档,请确认是否安装了word 2000!, mterror, [mbok], 0);
abort;
end;
//
2. 在delphi中如何操作word?
var MsWord:Variant;begin msWord:=CreateOleObject('Word.Application'); msWord.Documents.Open('C:\aaa.doc',false); msWord.Visible:=0; // 是否显示 Word 文件编辑器;1:显示; msWord.ActiveDocument.Range(0,0); // 开端插入地位; msWord.ActiveDocument.Range.InsertAfter('aaaa'); // 插入字符; msWord.ActiveDocument.Range.InsertParagraphAfter; msWord.ActiveDocument.Range.Font.Name:='Arial'; msWord.ActiveDocument.Range.Font.Size:=24;end;procedure TForm1.Button1Click(Sender: TObject);。
3. 请问delphi怎么操作word
var Template,NewTemplate,ItemIndex:OleVariant;begin try try wordapplication1.Connect; except showmessage('word not install'); abort; end; WordApplication1.Visible := true; Template := EmptyParam; NewTemplate := False; ItemIndex := 1; WordApplication1.Documents.Add(Template, NewTemplate); WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex)); WordDocument1.Range.InsertAfter('sssssssssssssssss'+#13); except on E: Exception do begin ShowMessage(E.Message); WordApplication1.Disconnect; end; end; 查看原帖>>。
4. 在DELPHI 中使用 word 文档
这个问题难不住我~
1.首先你可以使用ole 调用word ,
将word内容在delphi界面显示出来。
2.然后利用word本身的‘宏’命令。
选择‘录制新宏’。
3.在宏录制状态下做你想做的操作(将字段插入word中你想要的任何地方)。操作完毕后选择停止录制。
4.打开刚刚录制的‘宏’。选择编辑,把VBA命令转换为delphi代码。
(其实你应该去大富翁看看,那里有很多答案)
5. 请问delphi怎么操作word
var Template,NewTemplate,ItemIndex:OleVariant;begin try try wordapplication1.Connect; except showmessage('word not install'); abort; end; WordApplication1.Visible := true; Template := EmptyParam; NewTemplate := False; ItemIndex := 1; WordApplication1.Documents.Add(Template, NewTemplate); WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex)); WordDocument1.Range.InsertAfter('sssssssssssssssss'+#13); except on E: Exception do begin ShowMessage(E.Message); WordApplication1.Disconnect; end; end;。
转载请注明出处51数据库 » delphiword页脚