Vba I'；我不知道如何正确运行这个宏

我需要获取使用智能引号创建的现有word文件，我必须打开每个文档并替换引号，然后保存并关闭。我编写了宏，它使用word上的recorder函数可以完美地工作

现在我看到有人编写宏，可以在文件夹中的每个文件上循环运行宏，但我不知道实际从何处运行宏

Sub Macro1()
'
' Macro1 Macro
'
'
    ActiveDocument.Convert
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = """"
        .Replacement.Text = """"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "'"
        .Replacement.Text = "'"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ChangeFileOpenDirectory _
        "\\EXPRESS-SERVER\MTMQuote\Quote Archive\Quote Archive (Out Dated)\Expert Quotes\120001-130000 (2013-)\125001-126000 (2015)\Updated\"
    ActiveDocument.SaveAs2 FileName:= _
        (ActiveDocument.Name) _
        , FileFormat:=wdFormatDocumentDefault, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False, CompatibilityMode:=15
    ActiveDocument.Close
    Application.Quit
End Sub

我怎么一遍又一遍地重复这个？我桌面上名为“MTMUPDATES”的文件夹中大约有1000个文件使用以下方法：

（但不要把它们都命名为同一个名称，让你用什么来命名文档都算上什么）

Sub replacer（）
Dim MyDialog As FileDialog，GetStr（1到1000）As String'1000 files是应用此代码的最大值
出错时继续下一步
设置MyDialog=Application.FileDialog（msoFileDialogFilePicker）
使用MyDialog
.过滤器
.Filters.Add“所有WORD文件”，“***”，1
.AllowMultiSelect=True
i=1
如果.Show=-1，则
对于每个stiSelectedItem。SelectedItems
GetStr（i）=stiSelectedItem
i=i+1
下一个
i=i-1
如果结束
Application.ScreenUpdating=False
对于j=1到i，步骤1
设置Doc=Documents.Open（文件名：=GetStr（j），可见：=True）
Windows（GetStr（j））。激活
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
选择。查找
.Text=“””找到什么
.Replacement.Text=“””替换为
.Forward=True
.Wrap=wdFindAsk
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=True
.MatchWildcards=False
.MatchSoundsLike=False
.MatchAllWordForms=False
以
Selection.Find.Execute Replace:=wdReplaceAll
应用程序。运行宏名：=“NEWMACROS”
docname=InputBox（“输入文件名”、“docname”）'将其替换为某种命名设备，或者使用下一种设备
newname=docname&“.doc”
ActiveDocument.SaveAs文件名：=新名称
“ActiveDocument.Save”如果您只想保存文档，请使用此选项。删除前面的撇号，删除前面的小表达式或在前面加撇号
活动窗口，关闭
下一个
Application.ScreenUpdating=True
以
MsgBox“操作结束，请查看”，VBS信息
端接头