바닥 글 텍스트에 "찾기/바꾸기"상자 추가하기

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

두 개의 별도 입력란을 사용하거나 vba 편집기에서 "사용자 양식 추가"버튼을 사용하여 사용자 양식을 만들 수 있습니다. 이 링크 밖으로

확인 : Video Tutorial