下面是VB写的一段代码
Dim objT As Object, objDoc As Object
Set objT = CreateObject("Word.Application")
objT.Visible = True
objT.Activate
objT.documents.Add Template:=LOCALPATH + "\newprint2.dot"
Set objDoc = objT.documents(objT.documents.Count)
objDoc.AcceptAllRevisions
Dim objSelection As Object
Set objSelection = objT.selection
objSelection.Find.ClearFormatting
objSelection.Find.Execute "[程序在此处自动插入正文]", False, True
objSelection.InsertFile fileName:="c:\test.doc"
objDoc.Variables("标题").Value ="通知"
我用delphi转化成
Var
VarWord: Variant;// 创建 WORD时所用
VarDoc:Variant; ;
begin
try
// 1. 建立 OleObject,连接 word
VarWord:=CreateOleObject('word.Application');
// 2. 建立 Word的新文件
VarWord.Visible :=True;
VarWord.Activate ;
VarDoc:=VarWord.documents.Add('c:\oatemp\newprint2.dot');
VarWord.selection.find.clearformatting;
VarWord.selection.find.execute('[程序在此处自动插入正文]', False, True);
VarWord.selection.Insertfile('c:\test.doc');
VarDoc.variables('标题').value:='通知';//****************
前面的运行都正常,而且功能都能实现,可是为什么到了***************这行就不行了,提示什么Variables不是方法的错误.
Dim objT As Object, objDoc As Object
Set objT = CreateObject("Word.Application")
objT.Visible = True
objT.Activate
objT.documents.Add Template:=LOCALPATH + "\newprint2.dot"
Set objDoc = objT.documents(objT.documents.Count)
objDoc.AcceptAllRevisions
Dim objSelection As Object
Set objSelection = objT.selection
objSelection.Find.ClearFormatting
objSelection.Find.Execute "[程序在此处自动插入正文]", False, True
objSelection.InsertFile fileName:="c:\test.doc"
objDoc.Variables("标题").Value ="通知"
我用delphi转化成
Var
VarWord: Variant;// 创建 WORD时所用
VarDoc:Variant; ;
begin
try
// 1. 建立 OleObject,连接 word
VarWord:=CreateOleObject('word.Application');
// 2. 建立 Word的新文件
VarWord.Visible :=True;
VarWord.Activate ;
VarDoc:=VarWord.documents.Add('c:\oatemp\newprint2.dot');
VarWord.selection.find.clearformatting;
VarWord.selection.find.execute('[程序在此处自动插入正文]', False, True);
VarWord.selection.Insertfile('c:\test.doc');
VarDoc.variables('标题').value:='通知';//****************
前面的运行都正常,而且功能都能实现,可是为什么到了***************这行就不行了,提示什么Variables不是方法的错误.
解决方案 »
- 非常简单的一个问题,关于读取文本文件
- 我安装控件时,说bpl文件不能建立,如何解决
- 如何在dxDBGrid中实现多表头?
- 要一次打印很长的东西,可不可以不让它换页,连续的打印下去?(在线等待,问题解决马上给分)
- 在button的click事件中能不能调用edit的keypress事件,我做不了,
- 如何获得http://xxx.xxx.xxx.com/xxx.jpg文件并显示?
- 关于directX的一个小问题。
- 如何写SQL语句
- 请问Delphi哪个函数跟vb里 app.PrevInstance功能相同?
- 菜鸟提问!多多送分!(不断加分中)
- 日期问题,急
- 我在一个MDI主窗体上面放一个一定大小的PANEL,要求所有的MDI子窗体只能在这个PANEL上面活动,如何实现?
// 1. 建立 OleObject,连接 word
VarWord:=CreateOleObject('word.Application');
// 2. 建立 Word的新文件
VarWord.Visible :=True;
VarWord.Activate ;
VarDoc:=VarWord.documents.Add('c:\oatemp\newprint2.dot');
VarWord.selection.find.clearformatting;
VarWord.selection.find.execute('[程序在此处自动插入正文]', False, True);
VarWord.selection.Insertfile('c:\test.doc');
VarDoc.variables.Item('标题').value:='通知';//****************