HTML 파일을 워드로 변환하는 방법

<code>Sub ConvertHTMLtoWord()
    Dim strHTMLFile As String
    Dim strWordFile As String
    Dim objIE As Object
    Dim objDoc As Object

    ' 询问用户选择要转换的 HTML 文件
    strHTMLFile = Application.GetOpenFilename("HTML 文件 (*.html),*.html")
    If strHTMLFile = "" Then Exit Sub

    ' 指定转换后 Word 文档的名称和路径
    strWordFile = "C:\Users\YourUserName\Desktop\Output.docx"

    ' 创建一个 Internet Explorer 对象
    Set objIE = CreateObject("InternetExplorer.Application")

    ' 加载 HTML 文件到 Internet Explorer
    objIE.Navigate strHTMLFile

    ' 等待页面加载完成
    Do While objIE.Busy
        DoEvents
    Loop

    ' 获取 HTML 文档对象
    Set objDoc = objIE.Document

    ' 复制 HTML 内容到剪贴板
    objDoc.ExecCommand "SelectAll", False, Nothing
    objDoc.ExecCommand "Copy", False, Nothing

    ' 在 Word 中创建新文档并粘贴 HTML 内容
    Set appWord = CreateObject("Word.Application")
    appWord.Visible = True
    Set objWord = appWord.Documents.Add
    objWord.Range.PasteAndFormat Type:=wdFormatOriginalFormatting

    ' 保存 Word 文档
    objWord.SaveAs2 strWordFile

    ' 清理
    objIE.Quit
    Set objIE = Nothing
    Set objDoc = Nothing
    Set objWord = Nothing
    Set appWord = Nothing
End Sub</code>