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 Sub4. F5키를 눌러 코드를 실행합니다。 열리는찾기창에서(글꼴과 글꼴 크기을 변경할 문서가 포함된 폴더) 폴더를 선택하고확인버튼을 클릭합니다。
그러면 선택한 폴더 내 문서의 모든 텍스트 상자의 글꼴과 글꼴 크기이 지정된 글꼴과 글꼴 크기로 변경됩니다。
최고의 오피스 생산성 도구
Kutools for Word- 300 개 이상의 놀라운 기능으로 Word 경험을 한층 업그레이드하세요！100놀라운 기능！
🤖KUTOOLS AI 기능:AI 도우미/실시간 어시스턴트/슈퍼 폴리시(형식 유지)/슈퍼 번역(형식 유지)/AI 수정/AI 교정...
📘문서 마스터리:페이지 분할/문서 병합/다양한 형식(PDF/TXT/DOC/HTML。。。)으로 선택 항목 내보내기/일괄 PDF 변환...
✏콘텐츠 편집:여러 파일에서 일괄 찾기 및 바꾸기/모든 그림 크기 조정/행과 열 표 전환/표를 텍스트로 변환...
🧹손쉬운 정리： 다음과 같은 요소들을 한 번에 제거하세요여분 공백/구역 나누기/텍스트 상자/하이퍼링크/ 더 많은 제거 도구는 다음 위치에서 확인하세요제거그룹。。。
➕창의적 삽입： 다음 요소 삽입천 단위 구분 기호/체크 박스/라디오 버튼/QR 코드/바코드/여러 그림/ 더 많은 기능은 다음 위치에서 확인하세요삽입그룹。。。
🔍정밀 선택： 다음 요소를 정확하게 선택하세요특정 페이지/표/도형/제목 단락/ 더 많은선택 기능으로탐색을 강화하세요기능...
⭐주요 강화 기능:임의 위치로 이동/반복 텍스트 자동 삽입/문서 간 전환 Windows/11 변환도구...
🌍40+개 언어 지원: Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 등 40+개 추가 언어를 지원합니다！
Office Tab- Office 에 탭 기반 인터페이스를 도입하여 작업을 훨씬 쉽게 만듭니다
- Word, Excel, PowerPoint, Publisher, Access, Visio 및 Project 에서 탭 기반 편집 및 읽기를 활성화합니다。
- 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 생성합니다。
- 매일 수백 번의 마우스 클릭을 줄여 생산성을 50%% 향상시킵니다！
✨ Kutools for Office – 한 번의 설치로 다섯 가지 강력한 도구를 사용하세요！
포함 구성Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint
📦 하나의 스위트로 모든 5 도구 확보 | 🔗 Microsoft Office 와 원활하게 통합 | ⚡ 저장 시간하고 즉시 생산성 향상