word宏批量转换html,word批量转换html宏.doc

word批量转换html宏

在word工具 宏 录制新宏 起名并记住名称—停止录制—在工具 宏 宏中找到刚才录制的那个—编辑(清空，并将下面代码放置到里面这时候宏的名称就变成了GetFileList)—然后保存关闭—工具 宏 找到GetFileList 运行

Sub GetFileList()

Dim strFolder As String

Dim varFileList As Variant

Dim FSO As Object, myFile As Object

Dim myResults As Variant

Dim l As Long

'显示打开文件夹对话框

With Application.FileDialog(msoFileDialogFolderPicker)

.Show

If .SelectedItems.Count = 0 Then Exit Sub '未选择文件夹

strFolder = .SelectedItems(1)

End With

'获取文件夹中的所有文件列表

varFileList = fcnGetFileList(strFolder)

If Not IsArray(varFileList) Then

MsgBox "未找到文件", vbInformation

Exit Sub

End If

'获取文件的详细信息，并放到数组中

ReDim myResults(0 To UBound(varFileList) + 1, 0 To 5)

myResults(0, 0) = "文件名"

myResults(0, 1) = "大小(字节)"

myResults(0, 2) = "创建时间"

myResults(0, 3) = "修改时间"

myResults(0, 4) = "访问时间"

myResults(0, 5) = "完整路径"

Set FSO = CreateObject("Scripting.FileSystemObject")

For l = 0 To UBound(varFileList)

Set myFile = FSO.GetFile(CStr(varFileList(l)))

myResults(l + 1, 0) = CStr(varFileList(l))

myResults(l + 1, 1) = myFile.Size

myResults(l + 1, 2) = myFile.DateCreated

myResults(l + 1, 3) = myFile.DateLastModified

myResults(l + 1, 4) = myFile.DateLastAccessed

myResults(l + 1, 5) = myFile.Path

path0 = myFile.Path

path0 = StrReverse(path0)

path1 = Split(path0, "\")

path0 = Replace(path0, path1(0), "")

path0 = StrReverse(path0)

tofilename = Replace(CStr(varFileList(l)), "doc", "html")

ChangeFileOpenDirectory path0

Documents.Open FileName:=CStr(varFileList(l)), ConfirmConversions:=False, ReadOnly:= _

False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _