使用 Find in VBA word 并在下一段中粘贴图表

Question

我正在使用 word 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 将图表粘贴到文档的末尾，而不是将其粘贴到我正在搜索的单词 "Chart" 的末尾。如何在找到我的文本的行尾插入一个段落并将图表粘贴到那里？

我也试过书签方法，这样我的图表就会粘贴在文本后的下一段 'My Chart here'，但不知道如何将光标移动到我的文本末尾，然后添加段落那里。

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

文本 '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|

使用 Find in VBA word 并在下一段中粘贴图表

Use Find in VBA word and paste graph in next paragaraph

vba

ms-word

bookmarks