Skip to main content

Kutools for Office — 하나의 패키지. 다섯 가지 도구. 더 많은 일을 처리하세요.

Word 문서의 모든 텍스트 상자에서 글꼴과 글꼴 크기를 변경하려면 어떻게 해야 하나요?

Author Siluvia Last modified

이 문서는 현재 문서 또는 지정된 폴더 내 문서의 텍스트 상자에서 글꼴과 글꼴 크기를 변경하는 방법에 대해 설명합니다. 문서에 있는 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 키를 눌러 코드를 실행합니다. 그러면 모든 텍스트 상자의 글꼴과 글꼴 크기가 지정된 글꼴과 크기로 변경됩니다. 스크린샷을 참조하세요:

Font and font size in the text boxes are changed to the specified ones

폴더 내 모든 문서의 모든 텍스트 상자에서 글꼴과 글꼴 크기 변경하기

여러 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 Sub

4. F5 키를 눌러 코드를 실행합니다. 열리는 찾아보기 창에서 글꼴과 글꼴 크기를 변경할 문서가 들어 있는 폴더를 선택하고 확인 버튼을 클릭합니다.

Browse window

그러면 선택한 폴더 내 문서의 모든 텍스트 상자의 글꼴과 글꼴 크기가 지정된 글꼴과 크기로 변경됩니다.

최고의 오피스 생산성 도구

Kutools for Word - 100가지의 뛰어난 기능으로 Word 경험을 한 단계 높여보세요!

🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Super Polish (서식 유지) / Super Translate (서식 유지) / AI Redaction / AI Proofread...

📘 문서 마스터하기: 페이지 분할 / 문서 병합 / 다양한 형식(PDF/TXT/DOC/HTML 등)으로 선택 영역 솔루션 내보내기 / PDF로 일괄 변환...

✏ 텍스트 편집: 여러 파일에서 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정 / 표 행과 열 전환 / 표를 텍스트로 변환...

🧹 손쉬운 정리: 여분의 공백 / 구역 나누기 / 텍스트 상자 / 하이퍼링크를 깔끔하게 제거하세요. 더 많은 제거 도구는 '제거' 그룹에서 확인할 수 있습니다...

➕ 창의적 삽입: 천 단위 구분 기호 삽입 / 체크 박스 삽입 / 라디오 버튼 삽입 / QR 코드 / 바코드 / 여러 그림 삽입 / 더 많은 기능은 삽입 그룹에서 찾아보세요...

🔍 정밀 선택: 특정 페이지 / 표 / 도형 / 제목 단락을 정확히 선택하세요. 더 다양한 선택 기능으로 탐색을 더욱 향상하세요...

⭐ 특별 기능: 원하는 범위로 빠르게 탐색 / 반복 텍스트 자동 삽입 / 문서 창 간 토글 /11 가지 변환 도구...

🌍 40개 이상의 언어 지원: Kutools를 원하는 언어로 사용할 수 있습니다 – 영어, 스페인어, 독일어, 프랑스어, 중국어 등40개 이상의 언어를 지원합니다!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 이러한 기능을 사용해보고 싶으신가요? 지금 Kutools for Word를 다운로드하세요! 🚀
 

✨ Kutools for Office – 한 번의 설치로5가지 강력한 도구 제공!

Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint가 포함되어 있습니다

📦5가지 도구를 한 번에 이용 | 🔗 Microsoft Office와 무결점 통합 | ⚡ 즉시 저장 시간 절약 및 생산성 향상

최고의 오피스 생산성 도구

Kutools for Word - 100+ Word용 도구

무료 다운로드 즉시 구매 Kutools 자세히 알아보기