wdOpenFormatWebPages与wdFormatHTML在那里定义,要user什么(50分)

  • 主题发起人 主题发起人 whj2000
  • 开始时间 开始时间
W

whj2000

Unregistered / Unconfirmed
GUEST, unregistred user!
wdOpenFormatWebPages与wdFormatHTML(下面程序中加星号行)在那里定义,要user什么

procedure Html2TextClick(name:string);
var FileName,
ConfirmConversions,
ReadOnly,
AddToRecentFiles,
PasswordDocument,
PasswordTemplate,
Revert,
WritePasswordDocument,
WritePasswordTemplate,
Format,
Encoding,
Visible:OleVariant;

FileFormat,
LockComments,
Password,
WritePassword,
ReadOnlyRecommended,
EmbedTrueTypeFonts,
SaveNativePictureFormat,
SaveFormsData,
SaveAsAOCELetter:OleVariant;
WordApp: TWordApplication;
begin
ConfirmConversions:=false;
ReadOnly:=true;
AddToRecentFiles:=false;
Format:=wdOpenFormatWebPages; //***************
Visible:=false;
FileName:=name;
WordApp.Documents.Open(FileName,ConfirmConversions,ReadOnly,
AddToRecentFiles,PasswordDocument,PasswordTemplate,
Revert,WritePasswordDocument,WritePasswordTemplate,Format);

FileFormat:=wdFormatHTML; //***************
FileName:=name+'.txt';

WordApp.ActiveDocument.SaveAs(FileName,
FileFormat,
LockComments,
Password,
AddToRecentFiles,
WritePassword,
ReadOnlyRecommended,
EmbedTrueTypeFonts,
SaveNativePictureFormat,
SaveFormsData,
SaveAsAOCELetter);
end;
 
请问wdOpenFormatWebPages与wdFormatHTML 对应的值是多少,
在哪个Unit中有他们的定义!
 
你这两个东西不是delphi自带的,是别的控件里头的,全盘查找一下就知道
 

使用的是servers中的Word Application控件,
WordApp: TWordApplication;
WordApp.Documents.Open(FileName,ConfirmConversions,ReadOnly,
AddToRecentFiles,PasswordDocument,PasswordTemplate,
Revert,WritePasswordDocument,WritePasswordTemplate,Format);

其中的wdOpenFormatWebPages与wdFormatHTML缺省值不知道,请高手们指点!
 
请看MSDN或WORD的VB编辑器中视图菜单中对象察看器的帮助。
 
可在../delphi5/ocx/servers/word97.pas中查到 WdOpenFormat类型的定义。
type
WdSaveFormat = TOleEnum;
const
wdFormatDocument = $00000000;
wdFormatTemplate = $00000001;
wdFormatText = $00000002;
wdFormatTextLineBreaks = $00000003;
wdFormatDOSText = $00000004;
wdFormatDOSTextLineBreaks = $00000005;
wdFormatRTF = $00000006;
wdFormatUnicodeText = $00000007;

这是WordBasic帮助中的解释:
返回指定文件转换器的文件格式。可选下列 WdOpenFormat 常量之一:
wdOpenFormatAuto、 wdOpenFormatDocument、 wdOpenFormatRTF、
wdOpenFormatTemplate、 wdOpenFormatText 或 wdOpenFormatUnicodeText;
还可以是一个表示特定外部文件转换器的数字。Long 类型,只读。
 
接受答案了.
 
后退
顶部