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à cỡ chữ trong 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. Hãy thử các 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 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 SubChú 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 Sub4. 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ú ý!
🤖 Tính năng AI của Kutools: Tạo nội dung / Viết lại văn bản / Hỏi đáp tài liệu / Nhận câu trả lời nhanh / Dịch tài liệu / Tài liệu tiếng Ba Lan (Định dạng bảo tồn)...
📘 Làm chủ tài liệu: Chia trang / Hợp nhất tài liệu / Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...) / Chuyển đổi hàng loạt sang PDF...
✏ 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...
🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung / Phần ngắt / 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 đi tới Hủy bỏ tập đoàn...
➕ 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 / Nhiều Hình Ảnh / Khám phá thêm trong Chèn tập đoàn...
???? Lựa chọn chính xác: Xác định Các trang cụ thể / Bàn / Hình dạng / Đoạn tiêu đề / Tăng cường điều hướng với chi tiết Chọn Tính năng, đặc điểm...
⭐ Cải tiến sao: Điều hướng đến bất kỳ vị trí nào / Tự động chèn văn bản lặp lại / Chuyển đổi giữa các cửa sổ tài liệu / 11 Chuyển đổi CÔNG CỤ ...
Công cụ năng suất văn phòng tốt nhất
Kutools cho Word - Hơn 100 công cụ cho Word
- 🤖 Tính năng AI của Kutools: Tạo ra, Rewrite, Tóm tắt, Dịch Các tài liệu / Nhận câu trả lời nhanh / Tài liệu tiếng Ba Lan (Định dạng bảo tồn)
- 📘 Làm chủ tài liệu: Chia trang / Hợp nhất tài liệu / Chuyển đổi hàng loạt sang PDF
- ✏ Chỉnh sửa nội dung: Tìm và thay thế hàng loạt / Thay đổi kích thước tất cả hình ảnh
- 🧹 Dễ dàng làm sạch: Xóa các dấu cách bổ sung / Xóa dấu ngắt phần
- ➕ Phụ trang quảng cáo: Chèn ngàn dấu phân cách / Chèn hộp kiểm / Tạo mã QR