Word 문서의 모든 텍스트 상자에서 글꼴 및 글꼴 크기를 변경하는 방법은 무엇입니까?
이 기사에서는 현재 문서의 텍스트 상자 또는 지정된 폴더의 문서에서 글꼴 및 글꼴 크기를 변경하는 방법에 대해 설명합니다. 기사에서 VBA 방법을 시도하십시오.
폴더에있는 모든 문서의 텍스트 상자에서 글꼴 및 글꼴 크기 변경
현재 문서의 텍스트 상자에서 글꼴 및 글꼴 크기 변경
텍스트 상자의 경우 현재 문서의 글꼴 및 글꼴 크기를 변경하려면 아래 VBA 코드를 적용하여 문제를 해결하십시오.
1. 누르세요 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.
2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈을 클릭 한 다음 모듈 창에 다음 코드를 복사합니다.
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
주의 사항: 코드에서 "굴림"및"20”는 제 경우에 지정된 글꼴 및 글꼴 크기입니다. 자신의 필요에 따라 변경할 수 있습니다.
3. 누르세요 F5 코드를 실행하는 키입니다. 그런 다음 텍스트 상자의 모든 텍스트 글꼴 및 글꼴 크기가 지정된 글꼴 및 글꼴 크기로 변경됩니다. 스크린 샷보기 :
폴더에있는 모든 문서의 모든 텍스트 상자에서 글꼴 및 글꼴 크기 변경
여러 Word 문서에서 텍스트 상자의 글꼴 및 글꼴 크기를 대량으로 변경하려면 아래 VBA 코드를 적용해야합니다.
1. 동일한 폴더에서 글꼴 및 글꼴 크기를 변경하는 텍스트 상자가 포함 된 모든 대상 문서를 수집하십시오.
2. 시작 Word 문서에서 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.
3. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈을 클릭 한 다음 모듈 창에 다음 코드를 복사합니다.
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 코드를 실행하는 키입니다. 오프닝에서 검색 창에서 폴더 (텍스트 상자에서 글꼴 및 글꼴 크기를 변경할 문서 포함)를 선택하고 OK 버튼을 클릭합니다.
그러면 선택한 폴더에있는 문서의 모든 텍스트 상자의 글꼴 및 글꼴 크기가 지정된 글꼴 및 글꼴 크기로 변경됩니다.
추천 단어 생산 도구
Word 용 Kutools-Word 용 100 개 이상의 고급 기능으로 50 % 시간 절약
- 복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 있습니다.
- 여러 폴더의 이미지를 한 번에 Word 문서에 삽입합니다.
- 폴더에있는 여러 Word 파일을 원하는 순서대로 하나로 병합하고 결합합니다.
- 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 분할합니다.
- Doc과 Docx, Docx와 PDF, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...