☰

문서 파일에서 "찾기 및 바꾸기"를 일괄 처리하는 방법은 무엇입니까?

tag-icon • tag-icon microsoft-word script automation
문서 파일에서 "찾기 및 바꾸기"를 일괄 처리하는 방법은 무엇입니까?

다음 구조의 .doc 파일이 여러 개 있습니다.

[useless text #1]
[useful text]
[useless text #2]

쓸모없는 텍스트 블록은 파일 전체에서 동일합니다.

유용한 텍스트의 서식, 그림 및 하이퍼링크를 손상시키지 않고 이러한 쓸모 없는 블록을 어떻게 일괄 삭제합니까?

답변1

수동 삭제 작업에서 VBA 매크로를 기록한 다음 처리해야 하는 각 문서에서 해당 매크로를 (수동으로) 실행할 수 있습니다. Word에서 VBA 매크로를 기록하는 방법을 알고 있습니까? 텍스트 블록이 항상 동일한 텍스트로 시작하고 끝나는 경우 상대적으로 쉬우며 작업의 일부 또는 대부분을 줄일 수 있습니다.

답변2

1 단계:"Alt-F11"을 눌러 Microsoft Visual Basic for Application 창을 엽니다.

2 단계:삽입 탭에서 모듈을 클릭하고 다음 VBA 코드를 복사하여 모듈 창에 붙여넣습니다.

3단계:그런 다음 클릭달리다(F5) 버튼을 눌러 VBA를 적용합니다.

VBA: 여러 문서에서 동일한 콘텐츠를 한 번에 검색하고 바꾸기

Sub CommandButton1_Click()
Dim MyDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
On Error Resume Next
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) 
With MyDialog 
.Filters.Clear 
.Filters.Add "All WORD File ", "*.docx", 1 
.AllowMultiSelect = True
i = 1 
If .Show = -1 Then
For Each stiSelectedItem In .SelectedItems 
GetStr(i) = stiSelectedItem
i = i + 1 
Next
i = i - 1 
End If 
Application.ScreenUpdating = False
For j = 1 To i Step 1
Set Doc = Documents.Open(FileName:=GetStr(j), Visible:=True)
Windows(GetStr(j)).Activate
Selection.Find.ClearFormatting 
Selection.Find.Replacement.ClearFormatting
With Selection.Find 
.Text = "search" 'Find What 
.Replacement.Text = "find" 'Replace With 
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Application.Run macroname:="NEWMACROS"
ActiveDocument.Save
ActiveWindow.Close
Next
Application.ScreenUpdating = True
End With
MsgBox "operation end, please view", vbInformation
End Sub

메모:Text = "search", replacement.Text = "find"를 변경하여 검색할 내용과 대체 적용할 내용을 지정할 수 있습니다.

.Text = "search" 'Find What 
.Replacement.Text = "find" 'Replace With

크레딧: extoffice

답변3

저는 토목 공학 분야에서 일하면서 많은 양의 프로젝트 문서를 한 번에 여러 번 변경해야 하는 경우 항상 이 문제를 겪었습니다. 이와 같은(또는 유사한) 프로그램을 사용하면 이 문제가 해결되었습니다.

https://www.etsy.com/listing/1468077519/smart-replace-pro-automated-find-replace

내 것은 디렉토리에 있는 모든 MS Word 및 Excel 파일을 열었고 많은 변수를 한 번에 일괄적으로 찾거나 대체했습니다. 이것은 Powerpoint도 할 수 있는 것처럼 보입니다.

답변4

온라인 도구가 있습니다https://batch-edit.com이는 정확히 이 사용 사례에 무료로 사용할 수 있습니다. 정규식을 생성하고 모든 문서 파일에서 일치하는 텍스트를 동시에 빈 텍스트로 바꿀 수 있습니다.

면책조항: 저는 이 도구의 작성자입니다.

관련 정보