Bỏ qua nội dung chính

Làm thế 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 các hộp văn bản trong tài liệu hiện tại hoặc các tài liệu trong một thư mục được chỉ định. Vui lòng 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 các 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 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 phông chữ và kích thước phông chữ trong các 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ô-đun, và 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 mã, “Arial"Và"20”Là phông chữ và kích thước phông chữ được chỉ định 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 phím để chạy mã. Sau đó, tất cả phông chữ và kích thước phông chữ của văn bản 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à cỡ 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.

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

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

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

Công cụ năng suất văn phòng tốt nhất

Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!

Đi sâu vào các tính năng nổi bật bên dưới hoặc nhấp vào đây để khám phá toàn bộ sức mạnh của Kutools for Word.

📘 Làm chủ tài liệu: Chia trang  /  Hợp nhất tài liệu  /  Lựa chọn xuất ở nhiều định dạng khác nhau (PDF/TXT/DOC/XLSX)  /  Chuyển đổi hàng loạt sang PDF  /  Xuất trang dưới dạng hình ảnh  /  In nhiều tập tin cùng một lúc hữu ích. Cảm ơn !

Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp   /  Thay đổi kích thước tất cả hình ảnh   /  Hoán đổi hàng và cột của bảng  /  Chuyển bảng thành văn bản hữu ích. Cảm ơn !

🧹 Dễ dàng làm sạchQuét đi Không gian bổ sung  /  Phần ngắt  /   Tất cả các tiêu đề  /  Hộp văn bản  /  Các siêu liên kết  /  Để biết thêm các công cụ xóa, hãy truy cập Nhóm Xóa của chúng tôi

Phụ trang quảng cáo: Chèn Ngàn dấu phân cách  /  Hộp kiểm tra  /  Nút radio  /  Mã QR  /  Mã vạch  /  Bảng đường chéo  /  Chú thích phương trình  /  Hình ảnh Caption  /  Bảng chú thích  /  Nhiều Hình Ảnh  /  Khám phá thêm trong Nhóm Chèn của chúng tôi

???? Lựa chọn chính xác: Xác định các trang cụ thể  /  bảng  /  hình dạng  /  đoạn văn tiêu đề  /  Điều hướng dễ dàng bằng cách sử dụng Nhóm Chọn của chúng tôi

Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào  /  tự động chèn văn bản lặp đi lặp lại  /  chuyển đổi liền mạch giữa các cửa sổ tài liệu  /  11 công cụ chuyển đổi hữu ích. Cảm ơn !

Chuyển đổi các tác vụ Word của bạn với Kutools. 👉 Tải xuống dùng thử 30 ngày ngay 🚀.

 
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