Tìm Và Định Dạng Font Chữ Trong Word | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• MS Word và Các phần mềm soạn thảo văn bản

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Tìm và Định Dạng Font chữ trong word (1 người xem)

• Thread starter Thread starter thanhvien_moi
• Ngày gửi Ngày gửi 16/6/21

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) T

thanhvien_moi

Thành viên mới

Tham gia 16/6/21 Bài viết 2 Được thích 0 chào các anh chị. em có 1 vấn đề nhờ sự trợ giúp của các anh chị. Trong 1 file word em muốn viết 1 đoạn code để tìm 1 từ bất kỳ sau đó thay đổi font chữ của nó. Em có ghi macro bằng cách tìm kiếm và thay thế trong word, nó ra code nhưng em không thấy code chỗ nào đổi font hết. Xin cảm ơn các anh chị nhiều

File đính kèm

• hoi.docx hoi.docx 13.7 KB · Đọc: 2

B

batman1

Thành viên gạo cội

Tham gia 8/9/14 Bài viết 5,776 Được thích 9,819 Thêm Module và dán code sau. Chạy sub test để thử nghiệm Mã: Sao chép. Option Explicit Sub tim(ByVal findText As String, ByVal fontname As String) Dim rng As Range Set rng = ThisDocument.Range With rng .Find.ClearFormatting .Find.Replacement.ClearFormatting .Find.Replacement.Font.Name = fontname .Find.Text = findText .Find.Execute Replace:=wdReplaceAll End With End Sub Sub test() tim "anh", "Wingdings 2" End Sub T

thanhvien_moi

Thành viên mới

Tham gia 16/6/21 Bài viết 2 Được thích 0

batman1 đã viết: Thêm Module và dán code sau. Chạy sub test để thử nghiệm Mã: Sao chép. Option Explicit Sub tim(ByVal findText As String, ByVal fontname As String) Dim rng As Range Set rng = ThisDocument.Range With rng .Find.ClearFormatting .Find.Replacement.ClearFormatting .Find.Replacement.Font.Name = fontname .Find.Text = findText .Find.Execute Replace:=wdReplaceAll End With End Sub Sub test() tim "anh", "Wingdings 2" End Sub Nhấp chuột vào đây để mở rộng...

dạ anh em chạy code của anh nó nó không ra, nhưng em nhìn code anh + áp dụng ghi macro thì em được code này. Nó chạy đúng yêu cầu của em Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện (1 người xem)

• dieppk.nb92
• Chủ nhật lúc 01:22
• Hàm và công thức Excel

Trả lời 20 Đọc 484 23 phút trước Phan Thế Hiệp Nếu diễn đàn GPE đóng cửa? (2 người xem)

• • 
  • 

• PhanTuHuong
• Chủ nhật lúc 23:46
• Thư giãn

Trả lời 19 Đọc 654 58 phút trước Tigon-ETC Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 44 Đọc 21K Hôm nay lúc 10:19 Maika8008 L nhờ hoàn thiện file dò xổ số (3 người xem)

• levovantoan
• Hôm qua, lúc 23:25
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 3 Đọc 58 Hôm nay lúc 10:18 Hoàng Tuấn 868 H H hướng dẫn xóa dòng, cột file excel (4 người xem)

• hoangvucntt
• Hôm nay lúc 10:16
• Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 0 Đọc 10 Hôm nay lúc 10:16 hoangvucntt H K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ...

• kaoehtkid
• Thứ hai lúc 19:04
• Những vấn đề chung

Trả lời 13 Đọc 282 Hôm qua, lúc 19:07 ongke0711 Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự (2 người xem)

• • 

• HeSanbi
• 13/12/25
• Xử lý chuỗi ký tự

Trả lời 2 Đọc 232 Hôm qua, lúc 17:38 HeSanbi Tính định mức sản phẩm

• • 

• Nguyenkhang2404
• 24/7/25
• Hàm và công thức Excel

Trả lời 11 Đọc 921 Hôm qua, lúc 14:27 nguyenanhtruong2409 N T Lọc dự liệu với hai điều kiện

• tiny1010
• 16/3/10
• Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 18 Đọc 7K Hôm qua, lúc 14:11 nguyenanhtruong2409 N N Tổng hợp 2 sheet khác nhau (có 1 cột dữ liệu trùng) trong goole sheet

• Na7979
• Hôm qua, lúc 14:01
• Google Sheets

Trả lời 0 Đọc 19 Hôm qua, lúc 14:01 Na7979 N D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA (1 người xem)

• • 

• duongnhuxuyen
• 12/12/25
• Lập Trình với Excel

Trả lời 17 Đọc 407 Hôm qua, lúc 12:04 ptm0412 P Lỗi hàm VBA phải add-in sau mỗi lần mở file (1 người xem)

• phamdinh.huy.aladin@gmail
• Thứ hai lúc 10:18
• Hàm và công thức Excel

Trả lời 7 Đọc 231 Hôm qua, lúc 08:11 minhnghia123 M M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA

• • 

• Mr_Siro
• Thứ tư lúc 10:57
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 149 Thứ năm lúc 13:23 Mr_Siro M P Tìm giá trị tồn kho đầu ngày

• ptthuongtn
• Thứ tư lúc 15:15
• Hàm và công thức Excel

Trả lời 3 Đọc 155 Thứ năm lúc 11:22 Duy Tùng 9x Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu

• skygatevn
• Thứ tư lúc 11:59
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 3 Đọc 112 Thứ tư lúc 13:52 skygatevn Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

• • 

• PhanTuHuong
• 10/12/25
• Câu lạc bộ hoạt động xã hội

Trả lời 5 Đọc 333 Thứ tư lúc 12:43 GPE-Trợ Lý CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025

• • 

• GPE-Trợ Lý
• 24/11/25
• Câu lạc bộ hoạt động xã hội

Trả lời 12 Đọc 931 Thứ tư lúc 07:38 PhanTuHuong

• Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại)

• • 
  • 

• HeSanbi
• 30/5/20
• Lập Trình với Excel

Trả lời 92 Đọc 27K Thứ ba lúc 19:57 Maika8008

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

4 5 6 Trả lời 580 Đọc 83K Thứ ba lúc 08:39 pycckuu410 E

• Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10 (2 người xem)

• • 

• eagle12
• 8/12/25
• Lập Trình với Excel

Trả lời 24 Đọc 638 Thứ hai lúc 16:19 eagle12 E Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• Maika8008 38
• thanthanhan 23
• dungpham01 19
• ongke0711 19
• eagle12 16
• ptm0412 16
• nguyenanhtruong2409 16
• Phan Thế Hiệp 15
• HUONGHCKT 12
• vic_it 11
• nhhnam 10
• pycckuu410 10
• dieppk.nb92 10
• Vũ Hải Sơn 9
• HeSanbi 9
• Gà Con yêu VBA 8
• bsbnhh 7
• duongnhuxuyen 7
• Hana2610 6
• kaoehtkid 6

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 66
• Maika8008 31
• thanthanhan 20
• ongke0711 17
• ptm0412 16
• HeSanbi 14
• dungpham01 11
• HUONGHCKT 9
• eagle12 9
• Cúc Hr 8
• dieppk.nb92 6
• Mr.hieudoanxd 5
• befaint 5
• SA_DQ 5
• pycckuu410 5
• Phuocam 4
• nguyenanhtruong2409 4
• Hoàng Tuấn 868 4
• nhhnam 2
• Gà Con yêu VBA 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• MS Word và Các phần mềm soạn thảo văn bản

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom