有两种方法:
1.在Delphi中使用导入的Word类型库文件自己对Word进行Ole操作
2.在VBA中使用宏,代码如下:
ActiveDocument.SaveAs FileName:="test.mht", FileFormat:=wdFormatWebArchive _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
其中的"test.mht"换为你自己的文件名
两者原理相同,看看Word的TLB文件(Delphi5以上的source目录下有)就行了,在Word的VBA帮助里面也有详细的。