VBA从Excel粘贴到Word结尾子

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以及粘贴和pastespecial，但始终具有相同的结果。

是否有人对粘贴后发生的事情或如何阻止其始终结束有任何想法？

编辑：我已经对此进行了测试，并且它可以在Office 2010上工作。它不能在Office 2013上工作。

Answer 1

它对我来说很好

但是建议您尝试这些调整，看看是否AppActivate （ 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在测试和道歉方面所提供的帮助，以帮助我理解所发生的错误。