Question

我创建了一个宏来选择一个特定的形状，然后在他里面选择Text并查找一个特定的单词并进行更改但它一直向我显示selection.find的错误这是我的代码

wrdDoc.Shapes("Groupe 643").Select
wrdDoc.Shapes("Groupe 643").GroupItems("Text 
Box644").TextFrame.TextRange.Select
With Selection.Find
  .Text = "Frame FME"
  .Replacement.Text = Sheets("Generate").Range("B67")
 .Forward = True
 .ClearFormatting
 .Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll

任何建议提前谢谢

Answer 1

你根本不应该尝试使用Selection对象。相反，您可以获得形状中的Text并使用Replace函数对其进行修改。

With ActiveDocument.Shapes(1).TextFrame.TextRange
    Debug.Print .Text
    .Text = Replace(.Text, "text", "new text")
    Debug.Print .Text
End With

选择并修改Shape字内

1 个答案: