office_tools 版 (精华区)

发信人: fiag (大饼), 信区: office_tools
标  题: word宏 htm2txt
发信站: 哈工大紫丁香 (Sat Nov  1 07:19:24 2003), 站内信件

简单的将htm文件另存为txt格式。

代码如下:

Sub htm2txt()
'
' htm2txt Macro
' 宏在 2003-11-1 由 fiag 创建
Dim filename As String
Dim filenamere As String
filename = ActiveDocument.Name
filenamere = Replace(filename, ".htm", ".txt")
ActiveDocument.SaveAs filename:=filenamere, FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=936, InsertLineBreaks:=False, AllowSubstitutions:=False, _
LineEnding:=wdCRLF
MsgBox filenamere + " saved"
End Sub

--
◢ ┏━━━━┓┏━━━┓ ┏━━━━┓ ┏━━━━┓ ◣
   ┃  ┏━━┛┗┓  ┏┛ ┃  ◢◣  ┃ ┃┏━┓¤┃   
   ┃  ┗━┓    ┃  ┃   ┃  ◥◤  ┃ ┃┃■┗┳┫   
   ┃  ┏━┛    ┃  ┃   ┃  ┏┓  ┃ ┃┗┓■┃┃   
   ┃  ┃      ┏┛  ┗┓ ┃  ┃┃  ┃ ┃  ┗━┛┃   
◥ ┗━┛      ┗━━━┛ ┗━┛┗━┛ ┗━━━━┛ ◤

※ 来源:．哈工大紫丁香 bbs.hit.edu.cn [FROM: 210.46.79.17]

※ 修改:．fiag 於 Nov  1 07:20:09 2003 修改本文．[FROM: 210.46.79.17]