Excel 选定标题1的所有实例VBA怎么写

Word操作可以做到，但是想试试代码能不能完成
录制以下，然后改写如下：
不知道代码哪里有问题，执行没反应。。。

• Sub 选定标题1()
  

• With ActiveDocument.Content.Find
  

• .ClearFormatting
  

• .Style = ActiveDocument.Styles("标题 1")
  

• .Text = "*"
  

• .Forward = True
  

• .Wrap = wdFindContinue
  

• .Format = True
  

• .Execute
  

• End With
  

• 'Selection.Expand Unit:=wdParagraph
  

• End Sub