使用在VBA中查找單詞並在下一個paragaraph中粘貼圖形

Question

我在單詞VBA中使用查找選項，並且希望在下一個段落中找到我的文本時粘貼圖形。

Set myRange = ActiveDocument.Content 
With myRange.Find 
     .Text = "Chart" 
     .Forward = True 
     .Wrap = wdFindStop 
     .MatchWildcards = False 
     bFound = .Execute 
End With 
If bFound Then 
     Set ChartObj = wb1.ChartObjects("Chart 1") 
     ChartObj.Chart.ChartArea.Copy 
     .Words.Last.Paste 
End If 

的.words.Last.Paste粘貼在文檔末尾的圖表，而不是在「表」字，我感到seraching結束粘貼的。如何在行尾查找我的文本並粘貼圖表？

我也嘗試了書籤方法，這樣我的圖形就會粘貼到文本'My Chart here'後面的下一段，但不知道如何將光標移動到我的文本末尾，然後在那裏添加段落。

.Bookmarks('chart').Range.Text = 'My Chart here' 

文本「我在這裏表」已超過1個字符，但是當我用我下面的代碼只拿到1的答案。我在這裏錯過了什麼？

Msgbox .Bookmarks('chart').Range.Characters.Count 

Answer 1

.Words是Range對象的屬性，所以你需要使用myRange.Words.Last.Paste

---

Sub test() 
    Set myRange = ActiveDocument.Content 
    With myRange.Find 
     .Text = "Insert" 
     .Forward = True 
     .Wrap = wdFindStop 
     .MatchWildcards = False 
     bFound = .Execute 
    End With 
    If bFound Then 
     Set ChartObj = wb1.ChartObjects("Chart 1") 
     ChartObj.Chart.ChartArea.Copy 
     myRange.Words.Last.Paste 
    End If 
End Sub|