메인 컨텐츠로 가기

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 for Word의 모든 기능을 탐색하려면 여기를 클릭하십시오..

📘 문서 숙달: 페이지 분할  /  문서 병합  /  다양한 형식으로 선택 항목 내보내기(PDF/TXT/DOC/XLSX)  /  PDF로 일괄 변환  /  페이지를 이미지로 내보내기  /  한 번에 여러 파일 인쇄 ...

컨텐츠 편집: 일괄 찾기 및 바꾸기 여러 파일에 걸쳐   /  모든 사진 크기 조정   /  테이블 행과 열 바꾸기  /  표를 텍스트로 변환 ...

🧹 손쉬운 청소쓸어 버리다 추가 공간  /  섹션 나누기  /   모든 헤더  /  텍스트 상자  /  하이퍼 링크  /  더 많은 제거 도구를 보려면 그룹 제거로 이동하세요.

광고 삽입물: 끼워 넣다 천 단위 구분 기호  /  확인란  /  라디오 버튼  /  QR 코드  /  바코드  /  대각선 표  /  방정식 캡션  /  이미지 캡션  /  테이블 캡션  /  여러 장의 사진  /  삽입 그룹에서 더 많은 것을 알아보세요

🔍 정밀한 선택: 특정 페이지를 정확히 찾아보세요  /  테이블  /  모양  /  제목 단락  /  선택 그룹을 사용하여 쉽게 탐색하세요.

스타 강화: 어떤 위치로든 빠르게 이동  /  반복되는 텍스트 자동 삽입  /  문서 창 간을 원활하게 전환합니다.  /  11 변환 도구 ...

Kutools로 Word 작업을 변환하세요. 👉 지금 30일 평가판으로 다운로드하세요 🚀.

 
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is an awesome post.Really very informative and creative contents. These concept is a good way to enhance the knowledge.I like it and help me to development very well.Thank you for this brief explanation and very nice information.Well, got a good knowledge.

Java Training in Chennai
Java Training in Coimbatore
Java Training in Bangalore
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations