delphi “设置word 的字体”和 “保存 word” (50分)

langdx · 2003-03-29

var
FileName1:TFileName; //表示路径
VarWord,MyWorkbook:Variant; // 创建WORD时所用

{$R *.dfm}
.......
If OpenDialog1.Execute then
FileName1:=OpenDialog1.Filename; //获得文件名
VarWord:=CreateOleObject('Word.basic'); //连接刚才指定的的Word 文件
VarWord.FileOpen(FileName1); //打开文件
VarWord.fontSize(11);
.......
VarWord.Documents.SaveAs(FileName:=FileName1);
VarWord.Fileclose;//关闭文件

其中，如何设置设置word 的字体“五号”，而以下的写法都是错误的
VarWord.fontSize('五号');
VarWord.Documents.SaveAs(FileName:=FileName1);
//我是没有SaveDialog的，且想让它直接保存，不需要“另存为...”
注意，本人是用CreateOleObject('Word.basic')启动word，然后以Ole方式对Word进行控制。

平凡人 · 2003-04-04

保存关闭直接有Close(SaveChanges, OriginalFormat, RouteDocument)函数就可以了

原野飞侠 · 2003-04-05

字体
WordApplication1.ActiveDocument.ActiveWindow.Selection.Font.Size:=15

langdx · 2003-04-05

平凡人:
兄台，函数Close(SaveChanges, OriginalFormat, RouteDocument)中的参数有没有错误呀，好像我调试时不能通过！

平凡人 · 2003-04-08

var
savechanges,originalformat,routedocument

levariant;//这三个变量CLOSE过程用的。

savechanges:=wdSaveChanges;
originalformat:=wdWordDocument;
RouteDocument:=false;
varWord.Close(savechanges,originalformat,routedocument);

langdx · 2003-04-07

to 平凡人:
对不起，对于“保存word”问题你写得非常凌乱，我没能看懂，请你结合我的var,和部分程序代码，
重新写一遍吧！
谢谢！！

平凡人 · 2003-04-09

已经重写了

langdx · 2003-04-09

to 平凡人:
var
savechanges,originalformat,routedocument

levariant;//这三个变量CLOSE过程用的。

savechanges:=wdSaveChanges;
originalformat:=wdWordDocument;
RouteDocument:=false;
varWord.Close(savechanges,originalformat,routedocument);

编译器中显示：wdSaveChanges,wdWordDocument两个均是undeclare indentify
这是怎么会事呀？请你解释一下？

平凡人 · 2003-04-10

这两个常题量是WORD2000定义的，包含在WORD2000.PAS文件中，delphi6以上就有了，
如果你找不到也没关系，我帮你找了
wdSaveChanges用$FFFFFFFF代替
wdWordDocument用$00000000代替就可以了，

langdx · 2003-04-11

to 平凡人：
大侠，你先看看这个帖子吧，
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1720574
我的许多功能已经实现，在“Trace into”就是要出现错误，这个可能与word的保存有关，
你若解决了这个类似的问题，分数还要多（共450分），极有可能归你一人所有呀！
不管你是为了分数回答我的问题也好，还是为了你真情奉献也好，我在这里表示真心地感谢！
大侠，帮帮我吧，谢谢了！其实，我不是学计算机编程的，更不懂delphi,我是学临床医学的。
为了有一个小东东帮助学习英语，才花1个月自学了一点delphi，有说不出的苦，呜......呜，呜呜
帮帮我吧，求你了！

angela_yz · 2003-04-11

var strfname

levariant;//表示路径
worddoc:tworddocument;
begin
strfname:=extractfilepath(application.ExeName)//获得当前程序所在路径
worddoc.SaveAs(strFname);
end;

平凡人 · 2003-04-11

你让我看那个帖子子呀？
是不是ID：1609300
我去看看

langdx · 2003-04-11

to angela_yz:
大侠，请你按照我的var 和部分程序重新书写一下，好像你的也不正确。注意我是通过：
VarWord:=CreateOleObject('Word.basic'); 创建word的。
再写一次吧，我等着.......

langdx · 2003-05-08

接受答案！

delphi “设置word 的字体”和 “保存 word” (50分)

langdx

Unregistered / Unconfirmed

平凡人

Unregistered / Unconfirmed

原野飞侠

Unregistered / Unconfirmed

langdx

Unregistered / Unconfirmed

平凡人

Unregistered / Unconfirmed

langdx

Unregistered / Unconfirmed

平凡人

Unregistered / Unconfirmed

langdx

Unregistered / Unconfirmed

平凡人

Unregistered / Unconfirmed

langdx

Unregistered / Unconfirmed

angela_yz

Unregistered / Unconfirmed

平凡人

Unregistered / Unconfirmed

langdx

Unregistered / Unconfirmed

langdx

Unregistered / Unconfirmed

Similar threads