activex form->ole->word文档save问题 (200分)

C

chenjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #1

保存后内容为乱码
我是用CREATEFROM打开一个已存在的WORD文档

 

C

chenjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #2

谢谢大侠们了

 

T

Tense

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #3

存储的字段要注意为BLOB，全部使用相同的方式调用；

 

C

chenjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #4

请问tense：
可以不存到数据库
而直接用SAVE　AS到另一个WORD文档么(文件名可以由用户输入)？

 

C

cx139

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #5

应该可以，我以前干过，
把你的代码贴出来

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #6

ActiveDocument.SaveAs FileName:="Doc1.doc", FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
把这个宏转化成delphi，即可

 

C

chenjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #7

//打开文档
OleContainer1.CreateObjectFromFile(FileName, False);

//保存文档
with SaveDialog1 do
begin
SaveDialog1.FileName := ObjectFileName;
if (Length(FileName) = 0) or (Sender = SaveAs1) then
begin
if Execute then
begin
OleContainer1.SaveToFile(FileName);
ObjectFileName := FileName;
end
end
else
OleContainer1.SaveToFile(FileName);
end;