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 버튼을 클릭합니다.