從Excel到Word的VBA粘貼結束分

總體目標是在Excel中採用RTF格式的文本並將其轉換爲HTML。到目前爲止，我一直無法讓Excel以合理的方式做出迴應，所以使用Word進行嘗試。我能夠在沒有問題的Word中進行轉換，因此希望通過將單元格複製出Excel，粘貼到Word中，然後運行代碼將格式轉換爲我想要的方式來自動執行該過程。從Excel到Word的VBA粘貼結束分

我遇到了一個問題，當我從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中它不會在辦公室工作的2013年

來源

2014-02-27 Andy

您在Excel中運行'webtext'，正確嗎？當代碼*跳轉到'End Sub'時，你的任務是否完成？我不得不承認我很難在這裏理解你的問題 – 2014-02-27 11:21:05

我已經添加了幾個「測試」點來說明問題發生的位置以及它的影響（即：粘貼後我無法再運行任何代碼）。粘貼本身是成功的。 – Andy

似乎得到解決。 VBA調試器無法理解命中WordApp部分後發生了什麼，因此代碼出現可跳轉到該部分的末尾。

此外，似乎應該在With wordDoc部分內完成任何單詞更改，因爲在有時（或從未弄清楚爲什麼第一次缺少消息框時爲什麼有時會在代碼間正確打代碼）可能有點奇怪。

感謝@brettdj對測試的幫助以及對我的理解錯誤的道歉。

來源

2014-03-03 11:18:14 Andy

它好工作對我來說是

但是建議你嘗試這些調整，看看這個作品（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

來源

2014-02-27 11:24:46 brettdj

我的調用函數是相同的： '子重量（）呼叫webtext（「B4」）結束Sub' 我加入的ActiveWindow代碼，它仍然躍升至結束子。我也嘗試將它添加到'With wordDoc'部分，並在成功粘貼後直接跳出它。 – Andy

您是否使用Office 2013？我剛剛在2010年嘗試了這一點，它使我認爲這可能是2013年的事情。 – Andy

我嘗試了xl2010和xl2013的代碼 – brettdj

從Excel到Word的VBA粘貼結束分

回答

相關問題