Note: The other languages of the website are Google-translated. Back to English

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, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...
코멘트 (1)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 멋진 게시물입니다. 정말 매우 유익하고 창의적인 내용입니다. 이 개념은 지식을 향상시키는 좋은 방법입니다.나는 그것을 좋아하고 발전에 아주 잘 도움이 됩니다.이 간단한 설명과 아주 좋은 정보를 주셔서 감사합니다.글쎄, 좋은 지식을 얻었습니다.

첸나이에서의 자바 교육
코임바토르에서 자바 교육
방갈로르에서 자바 교육
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치