delphiword页脚

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页脚