Question

总体目标是在Excel中获取RTF格式的文本并将其转换为HTML。到目前为止，我无法让Excel以合理的方式做出回应，因此尝试使用Word。我可以在没有问题的情况下在Word中进行转换，因此希望通过将单元格复制到Excel中，粘贴到Word然后运行代码以将格式转换为我想要的方式来自动化该过程。

我遇到了一个问题，当我从Excel VBA粘贴到Word时，粘贴成功但跳转到End Sub。

Sub webtext(r As String)
    Range(r).Copy
    Dim wordApp As Word.Application
    Dim wordDoc As Word.Document
    Set wordApp = CreateObject("word.Application")
    Set wordDoc = wordApp.Documents.Add
    wordApp.Visible = True
    wordApp.Activate

    wordApp.Selection.PasteSpecial

    'Any code here is missed out
    z = MsgBox("tada") 'this will never trigger
    x=5 'this will never set
    With wordDoc
        'Operations on the text pasted would happen here
        'but vba never gets here.
    End With

'Code jumps to here
End Sub

我尝试过使用wordDoc和wordApp，以及粘贴和粘贴，但它总是有相同的结果。

有没有人对这里发生的事情有任何想法，或者如何阻止它在粘贴后总是结束。

编辑：我已对此进行了测试，并且它在Office 2010上运行。它在Office 2013上不起作用。

Answer 1

它对我来说很好，

但建议您尝试这些调整以查看是否有效（AppActivate是多余的）。

Sub StartIt()
Call webtext("a1:a10")
End Sub

主要

Sub webtext(r As String) Range(r).Copy Dim wordApp As Word.Application Dim wordDoc As Word.Document Set wordApp = New Word.Application Set wordDoc = wordApp.Documents.Add wordApp.Visible = True With wordDoc .ActiveWindow.Selection.Paste End With End Sub

Answer 2

似乎有待解决。 VBA调试器在访问WordApp部分后无法理解发生了什么，因此代码出现以跳转到该部分的末尾。

此外，似乎任何单词更改都应该在With wordDoc部分内完成，因为在某些时候正确地命中代码可能有点奇怪（虽然从未弄清楚为什么第一次丢失消息框）

感谢@brettdj提供测试方面的帮助，并为了解我的错误而道歉。

从Excel到Word的VBA粘贴结束

2 个答案: