Word 문서의 모든 텍스트 상자에서 글꼴과 글꼴 크기를 변경하려면 어떻게 해야 하나요?
이 문서는 현재 문서 또는 지정된 폴더 내 문서의 텍스트 상자에서 글꼴과 글꼴 크기를 변경하는 방법에 대해 설명합니다. 문서에 있는 VBA 방법을 시도해 보세요.
현재 문서의 텍스트 상자에서 글꼴과 글꼴 크기 변경하기
폴더 내 모든 문서의 텍스트 상자에서 글꼴과 글꼴 크기 변경하기
현재 문서의 텍스트 상자에서 글꼴과 글꼴 크기 변경하기
현재 문서에서 글꼴과 글꼴 크기를 변경할 텍스트 상자에 대해서는 아래 VBA 코드를 적용하여 문제를 해결하세요.
1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.
2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭하고, 다음 코드를 모듈 창에 복사합니다.
VBA 코드: 현재 문서의 모든 텍스트 상자에서 글꼴과 글꼴 크기 변경하기
Sub FormatTextsInTextBoxes()
'Updated by ExtendOffice 20181128
Dim I As Long
Dim xShape As Shape
Dim xDoc As Document
Set xDoc = ActiveDocument
On Error Resume Next
For Each xShape In xDoc.Shapes
xShape.Select
If xShape.GroupItems Is Nothing Then
With xShape.TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
GoTo LblExit
End If
For I = 1 To xShape.GroupItems.Count
With xShape.GroupItems(I).TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
Next
LblExit:
Next
End Sub
참고: 이 코드에서 “Arial”과 “20”은 제 경우에 지정된 글꼴과 글꼴 크기입니다. 필요에 따라 이를 변경할 수 있습니다.
3. F5 키를 눌러 코드를 실행합니다. 그러면 모든 텍스트 상자의 글꼴과 글꼴 크기가 지정된 글꼴과 크기로 변경됩니다. 스크린샷을 참조하세요:
폴더 내 모든 문서의 모든 텍스트 상자에서 글꼴과 글꼴 크기 변경하기
여러 Word 문서에서 텍스트 상자의 글꼴과 글꼴 크기를 대량으로 변경하려면 아래 VBA 코드를 적용해야 합니다.
1. 글꼴과 글꼴 크기를 변경할 텍스트 상자가 포함된 모든 대상 문서를 동일한 폴더에 모아주세요.
2. 열려 있는 Word 문서에서 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.
3. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭하고, 다음 코드를 모듈 창에 복사합니다.
VBA 코드: 여러 문서의 텍스트 상자에서 글꼴과 글꼴 크기 변경하기
Sub FormatTextsInTextBoxesInMultiDoc()
'Updated by ExtendOffice 20181128
Dim I As Long
Dim xShape As Shape
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xFileStr As String
On Error Resume Next
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show = -1 Then
xFolder = xDlg.SelectedItems(1) + "\"
xFileStr = Dir(xFolder & "*.doc", vbNormal)
While xFileStr <> ""
Documents.Open xFolder & xFileStr
For Each xShape In ActiveDocument.Shapes
xShape.Select
If xShape.GroupItems Is Nothing Then
With xShape.TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
GoTo LblExit
End If
For I = 1 To xShape.GroupItems.Count
With xShape.GroupItems(I).TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
Next
LblExit:
Next
ActiveDocument.Save
ActiveDocument.Close
xFileStr = Dir()
Wend
End If
End Sub
4. F5 키를 눌러 코드를 실행합니다. 열리는 찾아보기 창에서 글꼴과 글꼴 크기를 변경할 문서가 들어 있는 폴더를 선택하고 확인 버튼을 클릭합니다.
그러면 선택한 폴더 내 문서의 모든 텍스트 상자의 글꼴과 글꼴 크기가 지정된 글꼴과 크기로 변경됩니다.
최고의 오피스 생산성 도구
Kutools for Word - 100개 이상의 놀라운 기능으로 워드 경험을 한 단계 업그레이드하세요!
? Kutools AI 기능: AI 도우미 / 실시간 어시스턴트 / 슈퍼 폴리시 (형식 유지) / 슈퍼 번역 (형식 유지) / AI 수정 / AI 교정...
? 문서 마스터: 페이지 분할 / 문서 병합 / 다양한 형식으로 선택 영역 내보내기 (PDF/TXT/DOC/HTML...) / 일괄 PDF로 변환...
✏ 콘텐츠 편집: 여러 파일에서 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정 / 표 행과 열 전환 / 표를 텍스트로 변환...
? 손쉬운 정리: 여분의 공백 / 구역 나누기 / 텍스트 상자 / 하이퍼링크 제거 / 더 많은 제거 도구는 제거 그룹으로 이동...
➕ 창의적인 삽입: 천 단위 구분 기호 삽입 / 체크 박스 / 라디오 버튼 / QR 코드 / 바코드 / 여러 그림 / 삽입 그룹에서 더 알아보기...
? 정확한 선택: 특정 페이지 / 표 / 도형 / 제목 단락 / 더 많은 선택 기능으로 탐색 강화...
⭐ 주요 개선사항: 원하는 위치로 이동 / 반복되는 텍스트 자동 삽입 / 문서 창 간 전환 / 11가지 변환 도구...

최고의 오피스 생산성 도구
Kutools for Word - 100+ Word용 도구
- ? Kutools AI 기능: AI 도우미 / 실시간 어시스턴트 / 슈퍼 폴리시 / 슈퍼 번역 / AI 수정 / AI 교정
- ? 문서 마스터: 페이지 분할 / 문서 병합 / 일괄 PDF로 변환
- ✏ 콘텐츠 편집: 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정
- ? 손쉬운 정리: 여분의 공백 제거 / 구역 나누기 제거
- ➕ 창의적인 삽입: 천 단위 구분 기호 삽입 / 체크 박스 삽입 / QR 코드 생성