Word에서 여러 상용구 항목을 일괄 추가 또는 삭제하는 방법

워드 솔루션 2025 년 9 월 28 일

이 p에서ost, Word에서 여러 상용구 항목을 일괄 추가하거나 삭제하는 방법을 보여드리게 되어 기쁩니다.

자주 사용하는 텍스트의 경우 상용구 갤러리에 추가할 수 있습니다. 따라서 다음에 이 모든 텍스트를 다시 수동으로 입력할 필요가 없습니다. 대신 다음을 찾을 수 있습니다. tar텍스트 항목을 가져오고 클릭하십시오. 그러면 커서가 있는 위치에 삽입됩니다.

이제 주제에서 알 수 있듯이 귀중한 시간을 절약하기 위해 여러 상용구 항목을 일괄 추가하거나 삭제하는 방법을 보여드리고자 합니다.

여러 상용구 항목 일괄 추가

먼저 2개의 열로 구성된 테이블을 만들어야 합니다. 상용구 항목 이름을 첫 번째 열에 넣습니다. 그리고 항목 내용을 두 번째 열에 넣으십시오. 데모는 다음과 같습니다.
그런 다음 "Alt+ F11"을 눌러 VBA 편집기를 엽니다.
그런 다음 "일반"프로젝트를 클릭합니다.
그런 다음 메뉴 표시줄에서 "삽입" 탭을 클릭하고 "모듈"을 선택합니다.
이제 새 모듈을 두 번 클릭하여 엽니다.
다음 코드를 붙여 넣으십시오.

Sub BatchAddAutoTextEntries()
  Dim objTable As Table
  Dim objEntry As Cell
  Dim objEntryRange As Range
  Dim objEntryNameRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objEntry In objTable.Columns(2).Cells 
    Set objEntryNameRange = objTable.Cell(nRowNumber, 1).Range
    objEntryNameRange.MoveEnd Unit:=wdCharacter, Count:=-1 
    Set objEntryRange = objEntry.Range
    objEntryRange.MoveEnd Unit:=wdCharacter, Count:=-1
    objEntryRange.Select 
    NormalTemplate.AutoTextEntries.Add Name:=objEntryNameRange.Text, _
                                             Range:=Selection.Range
    nRowNumber = nRowNumber + 1
  Next objEntry
  MsgBox "All entries in the table are added to the gallery."
End Sub

마지막으로 "실행"을 클릭하거나 "F5"를 누르십시오.

완료되면 다음과 같은 메시지 상자를 받게 됩니다.

현재 및 이미 열려 있는 모든 문서에서 추가된 항목을 볼 수 없습니다. 효과를 보려면 새 문서를 열어야 합니다. 그런 다음 "삽입" 탭에서 "빠른 부품"을 클릭하여 결과를 확인할 수 있습니다. 다음으로 "상용구"를 선택하면 테이블의 모든 항목이 갤러리에 추가되는 것을 볼 수 있습니다.

여러 상용구 항목 일괄 삭제

다음 내용에서는 여러 상용구 항목을 일괄 삭제하는 방법을 보여줍니다.

먼저 하나의 열로 구성된 테이블을 만듭니다. 그리고 각 항목 이름을 하나의 셀에 입력하십시오.
그런 다음 위의 2단계부터 7단계까지 반복합니다. 그러나 매크로를 다음으로 대체해야 합니다.

Sub BatchDeleteAutoTextEntries()
  Dim objTable As Table
  Dim objEntry As Cell
  Dim objEntryNameRange As Range
  Dim objEntryRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objEntry In objTable.Columns(1).Cells
    Set objEntryNameRange = objTable.Cell(nRowNumber, 1).Range
    objEntryNameRange.MoveEnd Unit:=wdCharacter, Count:=-1
    On Error Resume Next
    NormalTemplate.AutoTextEntries.Item(objEntryNameRange.Text).Delete
    nRowNumber = nRowNumber + 1
  Next objEntry
  MsgBox "All entries in the table are deleted from the gallery."
End Sub

마찬가지로 나중에 열리는 새 문서에도 적용됩니다.

데이터 손실이 발생할 때 냉각 상태 유지

컴퓨터 사용이 증가함에 따라 데이터 손실도 매년 증가하고 있습니다. 데이터 손실로 인해 경력이 위태로울 수 있습니다. 다시는 만나고 싶지 않을 정도로 답답한 경험입니다. 그렇다면 여기에서 다음의 중요성이 나옵니다. 문서 수정. 항상 수리 도구를 미리 보관해야 합니다.

저자 소개 :

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