Word 문서의 모든 텍스트 상자에서 텍스트 형식을 일괄 변경하는 3 가지 방법

워드 솔루션 2025 년 9 월 28 일

이 기사에서는 Word 문서의 모든 텍스트 상자에서 텍스트 형식을 일괄 변경하는 3 가지 방법을 보여 드리고자합니다.

텍스트 상자는 종종 문서 외부에 표시됩니다. 문서 텍스트의 서식을 지정하는 동안 텍스트 상자의 텍스트를 잊을 수 없습니다. 그러나 문서에 텍스트 상자가 흩어져 있으면 내부의 모든 텍스트를 한 번에 모두 선택하기가 어려울 수 있습니다. 따라서 서식 지정 목적에서 일괄 처리를 수행하는 몇 가지 트릭을 배우는 것이 시급합니다.

방법 1 : "고급 찾기"기능 활용

먼저 "홈"탭을 클릭하고 "편집"그룹에서 "찾기"명령 뒤에있는 화살표 버튼을 클릭합니다.
드롭 다운 목록에서 "고급 찾기"를 선택하여 "찾기 및 바꾸기"대화 상자를 엽니 다.
"찾을 내용"텍스트 상자에 커서를 놓고 "^?"를 입력합니다. 그곳에.
그런 다음 "찾기"버튼을 클릭하고 "메인 문서의 텍스트 상자"를 선택합니다.
이제 텍스트 상자의 모든 텍스트가 선택되어 있음을 볼 수 있습니다. "찾을 내용"상자에 입력 할 문자열을 잊은 경우 "추가"버튼을 클릭하여 상자에서 더 많은 옵션을 연 다음 "특수"를 클릭합니다. 다음으로 "모든 문자"를 선택합니다.
모든 텍스트를 선택한 상태에서 필요에 따라 서식을 지정하십시오.

방법 2 : 한 문서의 모든 텍스트 상자에서 텍스트 형식 일괄 변경

에tar끄고 Word에서 "Alt + F11"을 눌러 VBA 편집기를 트리거합니다.
다음으로“Normal”을 클릭하십시오.
그런 다음 "삽입"탭을 클릭하고 "모듈"을 선택합니다.
새 모듈을 두 번 클릭하고 여기에 다음 매크로를 붙여 넣습니다.

Sub FormatTextsInTextBoxes()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objShape In .Shapes
      If objShape.Type = msoTextBox Then
        objShape.TextFrame.TextRange.Font.Name = "Arial"
        objShape.TextFrame.TextRange.Font.Size = "16"
      End If
    Next
  End With
End Sub

마지막으로 "실행"을 클릭합니다.

이 매크로는 "Arial"글꼴의 모든 텍스트 상자 텍스트를 16pt로 설정합니다. 필요에 따라 이러한 설정을 변경할 수 있습니다.

방법 3 : 여러 문서의 모든 텍스트 상자에서 텍스트 형식 일괄 변경

이제 일괄 처리에 대해 이야기하고 있으므로 여러 파일에서 수행 할 필요성을 제거 할 수 없습니다.

첫째, 모든 준비 tar동일한 디렉토리에서 문서를 가져옵니다.
다음으로 방법 2 에서처럼 매크로를 설치하고 실행합니다. 이번에는 해당 코드를 다음 코드로 바꿉니다.

Sub FormatTextsInTextBoxesInMultiDoc()
  Dim strFile As String
  Dim strFolder As String
  Dim objDoc As Document
 
  '  Initialization
  strFolder = InputBox("Enter folder path here: ")
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    Set objDoc = ActiveDocument
 
    With objDoc
      For Each objShape In .Shapes
        If objShape.Type = msoTextBox Then
          objShape.TextFrame.TextRange.Font.Name = "Arial"
          objShape.TextFrame.TextRange.Font.Size = "16"
        End If
      Next
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

매크로를 실행하는 동안 다음과 같은 입력 상자가 표시됩니다.
텍스트 상자에 폴더 주소를 입력하고 "확인"을 클릭합니다. 경로 문자열 끝에 "\"를 추가하는 것을 잊지 마십시오. 그런 다음 Word가 작업을 수행하기를 기다리십시오.

할 수있을 때 충분히 준비하십시오

파일이 손상되는 것을 생각하기조차 어렵습니다. 그러나 우리는 솔직히 상대적으로 높은 가능성을 결코 간과 할 수 없습니다. 어쨌든, 예방 조치를 취하는 것이 번거롭지 않습니다. 문서 수정 도구입니다.

저자 소개 :

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