我用WORD宏录制了一段程序,如何在VB中调试??

Question

Sub Macro1()
'
' Macro1 Macro
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "PET 聚对苯二甲酸乙二醇酯"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
End Sub在word任意位置,运行VBA,即可到要找的位置,这段程序如何完善,可以在VB中点击相应的button,打开word即可到这个位置???----PET 聚对苯二甲酸乙二醇酯  -----　典型应用范围:汽车工业（结构器件如反光镜盒，电气部件如车头灯反光镜等），电器元件（马达壳体、电气联结器、继电器、开关、微波炉内部器件等）。工业应用（泵壳体、手工器械等）。  
注塑模工艺条件:  

Answer 1

下面这种方法可以通过，是否还有更好的办法？？Private Sub Form_Load()
Dim WordApp As New Word.Application
Dim LocateName As String
LocateName = "PET 聚对苯二甲酸乙二醇酯"
LocateName = "1 ABS的性能"    With WordApp
        .Visible = True
        .Activate
        .Documents.Open (App.Path & "\1.doc")
        '.Selection.Find.ClearFormatting
        
    '项目名称
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = LocateName
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    
End WithEnd Sub加外请教各位大侠，
Dim WordApp As New Word.Application如何改,可以不受word版本的限制？？？？

Answer 2

做软件用到的office 工具应该用低版本的。
因为高版本兼容低版本。