Word에서 여러 자동 고침 항목을 일괄 추가 또는 삭제하는 방법

워드 솔루션 2025 년 9 월 28 일

이 기사에서는 Word에서 여러 자동 고침 항목을 일괄 추가하거나 삭제하는 방법을 소개합니다.

Word에는 자동 고침이라는 기본 제공 기능이 있습니다. 많은 사용자가 이미 익숙합니다. 사실, 우리 중 많은 사람들이 철자가 틀린 단어를 쉽게 수정하는 데 사용합니다. 필요한만큼의 항목을 가져올 수 있지만 하나씩 수행해야합니다. 일반적으로 우리는 그것을 참 아야 할 것입니다. 그러나 매크로에 관한 한 자동 수정 항목 목록을 만들고 클릭 한 번으로 모두 한 번 가져 오면 많은 시간을 절약 할 수 있습니다.

다음은이를 수행하는 방법을 보여주는 세부 사항입니다.

여러 자동 고침 항목 일괄 추가

첫 번째와 포름ost, Word에서 빈 문서를 열고 2 개의 열과 여러 행의 표를 삽입합니다.
표에서 첫 번째 열에 철자가 틀린 단어를 모두 입력하십시오.
그리고 두 번째 열에 올바른 단어를 모두 입력하십시오.
그런 다음 "Alt + F11"을 눌러 Word에서 VBA 편집기를 호출합니다.
그런 다음 "일반"및 "삽입"탭을 클릭합니다.
드롭 다운 메뉴에서 "모듈"을 선택합니다.
다음으로 as를 두 번 클릭하여 오른쪽에 새 모듈을 엽니 다.
이제 여기에 다음 코드를 붙여 넣으십시오.

Sub BatchAddAutoCorrectEntries()
  Dim objTable As Table
  Dim objOriginalWord As Cell
  Dim objOriginalWordRange As Range
  Dim objReplaceWordRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objOriginalWord In objTable.Columns(1).Cells 
    Set objOriginalWordRange = objOriginalWord.Range
    objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
    Set objReplaceWordRange = objTable.Cell(nRowNumber, 2).Range
    objReplaceWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
 
    AutoCorrect.Entries.Add Name:=objOriginalWordRange.Text, Value:=objReplaceWordRange.Text
 
    nRowNumber = nRowNumber + 1
  Next objOriginalWord
 
  Msgbox("All autocorrect items in the table1 are added.")
End Sub

마지막으로 "실행"을 클릭하거나 "F5"를 눌러 매크로를 실행합니다.

배송 시 요청 사항:

매크로를 실행하면 테이블의 모든 항목을 가져 왔음을 나타내는 결과 상자가 표시됩니다.
테이블 셀의 항목 뒤에 후행 공백이 없는지 확인하십시오. 그렇지 않으면 매크로가 실패합니다.

여러 자동 고침 항목 일괄 삭제

몇 초 안에 여러 자동 수정 항목을 일괄 삭제해야하는 반대의 필요성이 있습니다. 다행히 매크로를 사용하면이 작업이 쉬워집니다.

첫째, Word에서 비슷하게 새 문서를 만듭니다.
그런 다음 여러 행의 1 개 열에 표를 삽입합니다.
철자가 틀린 모든 단어를 표에서 제거해야합니다.
다음으로 위의 정확한 단계에 따라 매크로를 설치하고 실행하십시오.
그러나 매크로를 다음으로 바꿉니다.

Sub BatchDeleteAutoCorrectEntries()
  Dim objTable As Table
  Dim objOriginalWord As Cell
  Dim objOriginalWordRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objOriginalWord In objTable.Columns(1).Cells 
    Set objOriginalWordRange = objOriginalWord.Range
    objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
 
    On Error Resume Next 
    AutoCorrect.Entries.Item(objOriginalWordRange.Text).Delete
 
    nRowNumber = nRowNumber + 1
  Next objOriginalWord
 
  Msgbox("All autocorrect items in the table1 are deleted.")
End Sub

마찬가지로 다음과 같은 결과 상자가 있습니다.

문서 타락과 싸울 무기

하루 종일 보고서를 작성했다고 상상해보십시오. 그리고 갑자기 Word가 응답하지 않습니다. 그런 다음 몇 초 후 컴퓨터에서 보고서를 찾을 수 없습니다. 방금 사라진 것 같습니다! 얼마나 절망적일까요! 하지만 마음을 교차하고 행운을 빌기보다는 진짜 무기가 필요합니다. docx 복구.

저자 소개 :

Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 손상된 xls pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM