使用在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|