선택 범위 내에서 대체할 PowerPoint 매크로
하고 싶은 일
PowerPoint에서 전체 텍스트가 아닌 선택 범위 내에서 텍스트를 검색하고 검색 결과를 지정된 텍스트로 바꾸고 싶습니다.
매크로를 만드는 방법
우선은 아래와 같은 유저 폼을 만든다.
사용자 양식에 다음과 같은 코드를 포함합니다.
UserForm1.frm
Option Explicit
Private MyRng As TextRange
Private Found As TextRange
'「置換」ボタンを押したとき
Private Sub btnRep_Click()
On Error GoTo ErrMessage
Set MyRng = ActiveWindow.Selection.TextRange
Set Found = MyRng.Replace(SearchText.text, RepText.text)
Found.Select
Exit Sub
ErrMessage:
MsgBox "検索を行う範囲を選択してください"
End Sub
'「次を置換」ボタンを押したとき
Private Sub btnRepNext_Click()
On Error GoTo ErrMessage
With Found
Set Found = MyRng.Replace(SearchText.text, RepText.text, .Start + .length - 1)
If Not (Found Is Nothing) Then
Found.Select
Else
MsgBox "見つかりません"
End If
End With
Exit Sub
ErrMessage:
MsgBox "検索を行う範囲を選択してください"
End Sub
'「すべて置換」ボタンを押したとき
Private Sub btnRepAll_Click()
On Error GoTo ErrMessage
Set MyRng = ActiveWindow.Selection.TextRange
Set Found = MyRng.Replace(SearchText.text, RepText.text)
Do While Not (Found Is Nothing)
With Found
Set Found = MyRng.Replace(SearchText.text, RepText.text, .Start + .length - 1)
End With
Loop
Set MyRng = Nothing
Set Found = Nothing
Exit Sub
ErrMessage:
MsgBox "検索を行う範囲を選択してください"
End Sub
표준 모듈에서 호출할 수 있도록 한다.
Module1.bas
Option Explicit
Public Sub Sample()
UserForm1.Show vbModeless
End Sub
이제 선택 범위에서 지정된 텍스트를 바꿀 수 있습니다.
사용법
참고
Reference
이 문제에 관하여(선택 범위 내에서 대체할 PowerPoint 매크로), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/Umaremin/items/cece14b5cdb5eb7a2eab텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념 (Collection and Share based on the CC Protocol.)