Cookie giúp chúng tôi cung cấp dịch vụ của chúng tôi. Bằng cách sử dụng dịch vụ của chúng tôi, bạn đồng ý sử dụng cookie.
Mẹo: Các ngôn ngữ khác được Dịch bởi Google. Bạn có thể ghé thăm English phiên bản của liên kết này.
Đăng nhập
x
or
x
x
Ghi danh
x

or

Làm cách nào để thay đổi phông chữ và kích thước phông chữ trong tất cả các hộp văn bản trong tài liệu Word?

Bài viết này nói về việc thay đổi phông chữ và kích thước phông chữ trong hộp văn bản trong tài liệu hiện tại hoặc tài liệu trong một thư mục được chỉ định. Hãy thử phương pháp VBA trong bài viết.

Thay đổi phông chữ và kích thước phông chữ trong hộp văn bản trong tài liệu hiện tại

Thay đổi phông chữ và kích thước phông chữ trong hộp văn bản của tất cả các tài liệu trong một thư mục


Thay đổi phông chữ và kích thước phông chữ trong hộp văn bản trong tài liệu hiện tại

Đối với các hộp văn bản, bạn sẽ thay đổi phông chữ và kích thước phông chữ trong tài liệu hiện tại, vui lòng áp dụng mã VBA dưới đây để giải quyết vấn đề.

1. Nhấn nút Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đunvà sau đó sao chép mã sau vào cửa sổ Mô-đun.

Mã VBA: Thay đổi phông chữ và kích thước phông chữ trong tất cả các hộp văn bản trong tài liệu hiện tại

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

chú thích: Trong đoạn mã, "Arial"Và"20Đây là phông chữ được chỉ định và kích thước phông chữ trong trường hợp của tôi. Bạn có thể thay đổi chúng dựa trên nhu cầu của riêng bạn.

3. Nhấn nút F5 chìa khóa để chạy mã. Sau đó, tất cả các phông chữ và kích thước phông chữ trong các hộp văn bản được thay đổi thành phông chữ và kích thước phông chữ được chỉ định. Xem ảnh chụp màn hình:


Thay đổi phông chữ và kích thước phông chữ trong tất cả các hộp văn bản của tất cả các tài liệu trong một thư mục

Để thay đổi hàng loạt phông chữ và kích thước phông chữ của hộp văn bản trong nhiều tài liệu Word, bạn cần áp dụng mã VBA bên dưới.

XUẤT KHẨU. Vui lòng thu thập tất cả các tài liệu đích chứa các hộp văn bản, bạn sẽ thay đổi phông chữ và kích thước phông chữ trong cùng một thư mục.

XUẤT KHẨU. Trong tài liệu Word đang mở, nhấn nút Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

3. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đunvà sau đó sao chép mã sau vào cửa sổ Mô-đun.

Mã VBA: Thay đổi phông chữ và kích thước phông chữ trong hộp văn bản của nhiều tài liệu

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. Nhấn nút F5 phím để chạy mã. Trong phần mở đầu Duyệt cửa sổ, chọn thư mục (chứa tài liệu bạn sẽ thay đổi phông chữ và kích thước phông chữ trong hộp văn bản) và nhấp vào OK nút.

Sau đó, tất cả các phông chữ và kích thước phông chữ của các hộp văn bản trong thư mục đã chọn sẽ được thay đổi thành phông chữ và kích thước phông chữ được chỉ định.



Kutools cho Word

Hơn 100 chức năng nâng cao cho Word 2003, 2007, 2010, 2013, 2016 và 2019

shot-kutools-700-225-kte

Các tính năng khác | Tải xuống miễn phí | Chỉ có $ 39.00 cho hàng trăm chức năng

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.