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 - Over로 단어 경험을 향상시키세요 100 놀라운 기능!
🤖 Kutools AI 도우미: AI로 글쓰기를 변화시키세요 - 콘텐츠 생성 / 텍스트 다시 쓰기 / 문서 요약 / 정보 문의 문서 기반, 모두 Word 내에서
📘 문서 숙달: 페이지 분할 / 문서 병합 / 다양한 형식으로 선택 항목 내보내기(PDF/TXT/DOC/HTML...) / PDF로 일괄 변환 / 페이지를 이미지로 내보내기 / 한 번에 여러 파일 인쇄...
✏ 컨텐츠 편집: 일괄 찾기 및 바꾸기 여러 파일에 걸쳐 / 모든 사진 크기 조정 / 테이블 행과 열 바꾸기 / 표를 텍스트로 변환...
🧹 손쉬운 청소: 쓸어버리다 추가 공간 / 섹션 나누기 / 모든 헤더 / 텍스트 상자 / 하이퍼 링크 / 더 많은 제거 도구를 보려면 다음 페이지를 방문하세요. 그룹 제거...
➕ 광고 삽입물: 삽입 천 단위 구분 기호 / 확인란 / 라디오 버튼 / QR 코드 / 바코드 / 대각선 표 / 방정식 캡션 / 이미지 캡션 / 테이블 캡션 / 여러 장의 사진 / 더 자세히 알아보세요. 그룹 삽입...
🔍 정밀한 선택: 핀포인트 특정 페이지 / 테이블 / 모양 / 제목 단락 / 탐색 기능 향상 배우기 기능 선택...
⭐ 스타 강화: 어떤 위치로든 빠르게 이동 / 반복되는 텍스트 자동 삽입 / 문서 창 간을 원활하게 전환합니다. / 11 변환 도구...