添加＆＃34;查找/替换＆＃34;页脚文本框

Question

我一直在使用宏来查找/替换页脚中的文本。目前，我手动编辑宏来调整查找/替换文本。我想添加一个弹出框来询问我要搜索的文本以及要替换的内容。我自己尝试做这件事并没有成功。

以下是我目前使用的宏。有什么想法吗？

Sub FooterDates()
    Dim oSection As Word.Section
    Dim oRange As Word.Range
    Dim var

        For Each oSection In ActiveDocument.Sections()
            For var = 1 To 3
                Set oRange = oSection.Footers(var).Range
                oRange.Find.Execute FindText:="December 2015", _
                ReplaceWith:="February 2016", Replace:=wdReplaceAll
                Set oRange = Nothing
            Next
        Next
End Sub

Answer 1

您可以使用两个单独的输入框或使用＆＃34;添加用户表单＆＃34;创建您自己的用户表单。 vba编辑器中的按钮。

查看以下链接： Video Tutorial