关于 word 中插入的 问题 有一些不理解 请教大家 在线等(100分)

W

w_wbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #1

NewTemplate := DocFileNameWithPath;
NoneTemplate := EmptyParam;
dataform.WordApplication1.Connect;
dataform.WordApplication1.Visible:=true;
MyDoc:=dataform.WordApplication1.Documents.Add(NewTemplate,NoneTemplate);

MyDoc.BookMarks.Item('SBND_1').Select;
dataform.WordApplication1.Selection.Text := SB_Year;

MyDoc.BookMarks.Item('XMBH').Select;
dataform.WordApplication1.Selection.Text := dataform.Query2.fieldbyname('BH').asstring

其中的 newtemplat mydoc 怎么定义啊 路径的格式 什么样的 ！！

 

W

w_wbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #2

小弟 急啊 求各位大哥了！！

 

W

w_wbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #3

哪位神仙 能写的 个详细的方法啊


小弟鞠躬了！！！！：）

 

天

天与地

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #4

给点源程序，是按照.dot文件新建doc文件。
WordApplication1.Visible := False;
WordApplication1.Documents.Add(TempPlate, newtemplate); //按照指定的模板，新建一个Word文件。
WordDocument1.ConnectTo(WordApplication1.Documents.Item(itemindex));

 

W

w_wbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #5

我写的 也是某位大哥 以前发的


因为没有看明白，所以问问！

 

天

天与地

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #6

你想实现什么？
不是按照dot文件生成doc文件吗？

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #7

DocFileNameWithPath这应该是个字符串，内容就是要打开的文档，
文档里事先定义好了两个书签：'SBND_1'和'XMBH'
这段小程序所做的工作就是打开一个文档，并用数据库里相应的值替换这两个书签。

 

W

w_wbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #8

对阿

我就是想 在word加书签的地方 填写东西
但是上一段代码中（以前的贴字里）的，有一些个变量 不知道应该怎么定义

例如 newTemplate mydoc 等 应该是 olevariant 类型么？

 

R

realLearning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #9

newtemplate : olevariant;

mydoc可以是wordxxx.WordDocument

 

W

w_wbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #10

抓紧试验

大家都有分 谢谢！！！！

 

W

w_wbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #11

那位大哥 能给小弟一个具体的例子么

我所有的家产都变卖给你 55555

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-27

• #12

打开一个新工程，在USES中添加varriants单元，在你的FORM中放入一个SERVER页上的WordApplication

然后修改你的FORM的NAME为dataform， 再放个按钮

新建一个WORD文档，随便写点什么，然后找两个位置，用WORD的“插入/书签”命令定义两个书签'SBND_1'，'XMBH'，保存，用它的全路径名代替下面的

在按钮的CLICK事件中写如下代码
var
NewTemplate,NoneTemplate：OleVariant;
MyDoc:TWordDocument;
begin
NewTemplate := 'replace by your Doc File Path';//用你的DOC文件路径替换
NoneTemplate := EmptyParam;
dataform.WordApplication1.Connect;
dataform.WordApplication1.Visible:=true;
MyDoc:=dataform.WordApplication1.Documents.Add(NewTemplate,NoneTemplate);

MyDoc.BookMarks.Item('SBND_1').Select;
dataform.WordApplication1.Selection.Text := 'ok';

MyDoc.BookMarks.Item('XMBH').Select;
dataform.WordApplication1.Selection.Text :='write something';
end;