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 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 đề 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
• 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

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

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 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,774 Được thích 9,768 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

K Biến động giữa 2 cột khi pivot table

• khzaof
• Hôm qua, lúc 23:45
• Pivot table

Trả lời 0 Đọc 13 Hôm qua, lúc 23:45 khzaof K L

• Question

Dùng vòng lặp để lọc dữ liệu sang sheet khác nhưng tìm dòng cuối không được

• lvh1064
• Thứ năm lúc 18:45
• Lập Trình với Excel

Trả lời 10 Đọc 252 Hôm qua, lúc 23:22 ptm0412 B

• Question

Windows Form Làm thế nào để định vị cột và dòng nhập dữ liệu

• binhtv69
• Hôm qua, lúc 09:01
• Lập Trình với Excel

Trả lời 13 Đọc 149 Hôm qua, lúc 23:07 ptm0412

• Question

Cắt file PDF bằng Excel

• thaibao13d3bk
• 18/8/20
• Lập Trình với Excel

Trả lời 6 Đọc 2K Hôm qua, lúc 23:03 noname1710 Viết hoa toàn bài viết: HỎI CÁCH SỬ DỤNG CÔNG THỨC KHI BỊ CHÊ MẤT Ô LIỀN KỀ

• VUONGTNQN
• Hôm qua, lúc 22:26
• I. Nội dung bài viết

Trả lời 0 Đọc 31 Hôm qua, lúc 22:26 VUONGTNQN Bài tập excel tính thành tiền có đk

• bùi võ anh thư
• Hôm qua, lúc 00:15
• Hỏi đáp những vấn đề khác

Trả lời 10 Đọc 166 Hôm qua, lúc 20:55 ptm0412 làm bảng quản lý nhân viên sắp phải gia hạn hợp đồng

• LINHJP
• Hôm qua, lúc 13:30
• Định dạng, trình bày, in ấn bảng tính

Trả lời 2 Đọc 64 Hôm qua, lúc 20:00 HUONGHCKT H Addin mở rộng cho xây dựng

• • 

• dangvandang
• 28/10/23
• Các Add-ins cho excel

2 Trả lời 23 Đọc 2K Hôm qua, lúc 19:13 dangvandang

• 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

11 12 13 Trả lời 258 Đọc 14K Hôm qua, lúc 19:07 huhumalu H

• Question

Xin giúp đỡ về cách định vị cột, dòng theo điều kiện

• ngdhan
• Hôm qua, lúc 10:14
• Lập Trình với Excel

Trả lời 7 Đọc 97 Hôm qua, lúc 17:06 HUONGHCKT H N Giúp sửa mã code

• Nguyễn Diêu Hiền
• 14/11/24
• Những vấn đề chung

2 Trả lời 22 Đọc 609 Hôm qua, lúc 16:21 Nguyễn Diêu Hiền N Q Bài toán về VBA - Tự động chuyển dữ liệu

• QL.GDHV2
• Hôm qua, lúc 15:44
• Hỏi đáp những vấn đề khác

Trả lời 3 Đọc 80 Hôm qua, lúc 16:20 BuiQuangThuan B

• Question

Nhờ viết Code lấy dữ liệu tờ khai hải quan vào bảng tổng hợp

• Tienvinh191
• 4/4/24
• Lập Trình với Excel

2 Trả lời 28 Đọc 2K Hôm qua, lúc 15:59 kampria_328 K T Cách thiết lập font chữ cố định cho bảng tính (không bị thay đổi khi mở ở máy tính khác)

• TRANTHEJP
• Hôm qua, lúc 14:46
• Định dạng, trình bày, in ấn bảng tính

Trả lời 0 Đọc 39 Hôm qua, lúc 14:46 TRANTHEJP T V

• Question

Giúp Code VBA lưu ảnh từ 1 link về Excel sao cho nhanh nhất

• Văn Toàn 1996
• Thứ năm lúc 15:49
• Lập Trình với Excel

Trả lời 7 Đọc 140 Hôm qua, lúc 13:32 befaint D Xin chỉ giáo code VBA copy file csv , thay đổi tỉ giá và lưu file csv mới

• daoduy88
• Thứ năm lúc 12:01
• VBA trong Excel – Cải thiện và tăng tốc

Trả lời 10 Đọc 168 Hôm qua, lúc 13:08 HUONGHCKT H K Link ảnh từ thư mục tự động vào excel sử dụng VBA

• khactien.delta
• Thứ năm lúc 16:22
• Hàm và công thức Excel

Trả lời 3 Đọc 93 Hôm qua, lúc 12:28 Hoàng Tuấn 868 H

• Question

Hỗ trợ khắc phục lỗi Copy cùng 1 bảng tính sang nhiều vị trí trên Word bị lỗi Clipboard

• Toanke063
• Hôm qua, lúc 12:11
• Lập Trình với Excel

Trả lời 0 Đọc 30 Hôm qua, lúc 12:11 Toanke063 Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro

• • 
  • 
  • 

• huuthang_bd
• 2/6/22
• Các Add-ins cho excel

2 Trả lời 23 Đọc 8K Hôm qua, lúc 11:56 Dr4 File Excel lỗi ''The file could not be accessed. Try one of the following:.."

• 20050911
• Thứ hai lúc 09:07
• Những vấn đề chung

Trả lời 11 Đọc 838 Hôm qua, lúc 11:30 bibuzz90 B Xem thêm… Chia sẻ: Facebook X (Twitter) 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

• Hoàng Tuấn 868 150
• ptm0412 61
• VetMini 44
• ongke0711 34
• Tuấn Bụng Bự 31
• befaint 30
• bebo021999 29
• hoangtuaotrang_hp_vn 25
• BuiQuangThuan 25
• SA_DQ 24
• HeSanbi 24
• HUONGHCKT 24
• huuthang_bd 18
• huhumalu 17
• Nguyễn Diêu Hiền 15
• CHAOQUAY 14
• cantl 14
• DeTong 14
• Manhhung90 13
• batista911 13

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

• Hoàng Tuấn 868 122
• VetMini 62
• HeSanbi 58
• HUONGHCKT 50
• ptm0412 44
• BuiQuangThuan 39
• ongke0711 39
• befaint 36
• HieuCD 34
• huuthang_bd 31
• bebo021999 27
• SA_DQ 27
• hoangtuaotrang_hp_vn 25
• Phuocam 19
• huhumalu 15
• CHAOQUAY 12
• PhanTuHuong 12
• phuongnam366377 12
• Duy Tùng 9x 10
• Nhattanktnn 10

• Trang chủ
• Diễn đàn
• MS Word và Các phần mềm soạn thảo văn bả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