从web到MS-Word格式化html

时间:2015-12-07 10:14:13

标签: html xml vba dom ms-word

我曾经多次问过这个问题和其他问题。从来没有得到答案。

有没有办法让格式化的webdata并将其放入微软词?

我根据这个答案得到了一些解决方案

HTML Text with tags to formatted text in an Excel cell

在我的情况下,我直接从网上获取数据。是否有任何直接的过程来获取格式化的HTML内容。

我的代码是:

If .Hyperlinks.Count > 0 Then
    HttpReq.Open "GET", .Hyperlinks(1).Address, False
    HttpReq.send
    oHtml.body.innerHTML = HttpReq.responseText
    StrTxt = oHtml.getElementsByClassName("class").Item.innerHTML
        With IE
            .Visible = True
            .navigate "about:blank"
            .Document.body.innerHTML = StrTxt
            .Document.execCommand "SelectAll"
            .Document.execCommand "Copy"
        End With
    Set rng = Tbl.Cell(i, 1).Range
        rng.Collapse wdCollapseStart
        rng.PasteAndFormat wdPasteDefault
    Set rng = nothing
End If

有没有更好的方法呢?

1 个答案:

答案 0 :(得分:1)

由于Word需要转换器将HTML引入Word文档,因此您基本上有三种选择:

  1. 使用剪贴板(复制,粘贴)
  2. 将HTML另存为文件,然后使用InsertFile
  3. 使用您的代码解析HTML并将其“翻译”为有效的Word对象模型命令。
  4. “更好”是一个意见问题,取决于你所说的“更好”。最简单的当然是你正在做的......