使用 Find in VBA word 并在下一段中粘贴图表
Use Find in VBA word and paste graph in next paragaraph
我正在使用 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
.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|
我正在使用 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
.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|