Sử dụng tính năng Use wildcards trong Replace của Word

Em có đoạn trong Word như sau:

* (SMS: 44/2011/ND-CP) - Ngày 14/06/2011, Chính phủ ban hành Nghị định 44/2011/NĐ-CP về việc sửa đổi, bổ sung Điều 3 Nghị định số 189/2007/NĐ-CP ngày 27/12/2007 của Chính phủ quy định chức năng, nhiệm vụ, quyền hạn và cơ cấu tổ chức của Bộ Công Thương.

Em dùng chức năng Replace của Word (Ctrl+H) em điền thông số như sau:
- Find What: ?(SMS: *)
- Replace With: để trống
- Đánh dấu mục: Use wildcards.

Được kết quả là

* 44/2011/ND-CP) - Ngày 14/06/2011, Chính phủ ban hành Nghị định 44/2011/NĐ-CP về việc sửa đổi, bổ sung Điều 3 Nghị định số 189/2007/NĐ-CP ngày 27/12/2007 của Chính phủ quy định chức năng, nhiệm vụ, quyền hạn và cơ cấu tổ chức của Bộ Công Thương.

Mặc dù em vẫn biết: ? là đại diện cho 1 ký tự và * đại diện cho nhiều ký tự nhưng em vẫn không thể giải thích được kết quả như trên, nhờ các anh/chị trên diễn đàn chỉ dùm, giúp em hiểu ra vấn đề ah.

---------------
Mục đích của em là tìm hiểu chức năng Use wildcards. để chọn toàn bộ các cụm chữ trong dấu ngoặc đơn để định dạng nhanh hơn (ví dụ định dạng nhanh chữ nghiêng cho toàn bộ các cụm từ  nằm trong ngoặc đơn của tài liệu).

fubi gửi lúc 13/3/2014 17:05

                               
Đăng nhập/Đăng ký mở rộng

Vận dụng chức năng này, chúng ta có thể vận dụng vào trường hợp sau:

* Trong word c ...

THAM CHIẾU ĐỂ HIỂU Ý NGHĨA CÁC KÝ TỰ ĐẠI DIỆN NHƯ SAU

Bảng các ký tự đại diện

                               
Đăng nhập/Đăng ký mở rộng

Để tìm một ký tự định nghĩa như một ký tự đại diện, bạn gõ dấu trước ký tự đó. Chẳng hạn gõ ? để tìm dấu hỏi. Bạn có thể sử dụng dấu ngặc đơn để nhóm các ký tự đại diện và đoạn text để chỉ ra thứ tự phép tính.
Ví dụ: gõ <(pre)*(ed)> để tìm “presorted” và “prevented”.
Bạn có thể sử dụng ký tự đại diện n để tìm kiếm một biểu thức và thay thế bằng một biểu thức được sắp xếp.
Ví dụ: gõ (Office) (Word) vào ô Find what và g 2 1 vào ô Replace with. Kết quả là chương trình sẽ tìm cụm từ Office Word và thay bằng Word Office.
Sưu tầm

Khi bạn sử dụng chức năng "wildcard" của word cần lưu ý:
- Bật chức năng này thì dùng được 2 ký tự * và ? với ý nghĩa:

+ "*": chuỗi có chiều dài bất kỳ mà bạn không biết trước. Nó không được hiểu là chính ký tự *  để tìm kiếm,
+ "?" 1 ký tự bất kỳ mà bạn không biết trước. Nó không được hiểu là chính ký tự ? để tìm kiếm,

* Đặc biệt  lưu ý
( ): Cặp ngoặc đơn thực tế không phải wildcard. Chúng có tác dụng chia cụm từ mẫu thành các chuỗi logic. Nó không được hiểu là chính ký tự ( hoặc ) để tìm kiếm.
==> Tức trong tìm kiếm sẽ không tìm ra dấu ( trong chuỗi bạn muốn đâu. Cụ thể hơn 2 ký tự: dấu ( và  dấu ) có cũng như không trên câu lệnh trên của bạn.

K tin bạn thử tìm ký tự dấu ngoặc mở (  hoặc dấu ngoặc đóng ): khi dùng chức năng "wildcard" chúng sẽ báo lỗi.

==> Chính vì vậy mong muốn của bạn sử dụng chức năng "wildcard" để tìm chỗi ký tự chứa trong ngoặc rồi định dạng theo ý muốn theo cách bạn nêu là không được đâu.

Còn cách khác mình nghiên cứu tý đã. Chắc cũng dễ thôi.

fubi gửi lúc 13/3/2014 14:34

                               
Đăng nhập/Đăng ký mở rộng

Khi bạn sử dụng chức năng "wildcard" của word cần lưu ý:

( ): Cặp ngoặc đơn thực tế  ...

Vâng, em đoán cái () nó có cái gì đặc biệt mà làm mãi không được.

Em chỉ không giải thích nổi tại sao chỉ thay đổi Find What là ?(SMS: *) -? kết quả là

* Ngày 14/06/2011, Chính phủ ban hành Nghị định 44/2011/NĐ-CP về việc sửa đổi, bổ sung Điều 3 Nghị định số 189/2007/NĐ-CP ngày 27/12/2007 của Chính phủ quy định chức năng, nhiệm vụ, quyền hạn và cơ cấu tổ chức của Bộ Công Thương

thì lập tức các chữ trong dấu ngoặc đơn bị xóa ngay (ý em nói nó hiểu được mình đang thao tác với vùng trong dấu ngoặc đơn).

Cảm ơn bạn đã nghĩ tốt về mình. Thật ra mình nghĩ CHƯA ai giỏi hơn ai đâu. Mà chỉ khác nhau là có chịu khó tìm tòi dung nạp kiến thức cho bản thân mình và chia sẻ cho mọi người hay không. Nhiều người rất giỏi nhưng vì bận quá nên họ chưa chia sẻ lộ diện mà thôi.
Mình thấy bạn cũng là 1 đồng nghiệp rất ham học hỏi, nắm bắt rất nhanh và chịu khó tìm tòi. Chắc chắn bạn sẽ đạt thành công như mong muốn! Và mình chúc bạn như vậy!

Về vấn đề bạn nêu:
1. Trong word, có cách nào đấy để tìm nhanh chuỗi ký tự có chiều dài bất kỳ miễn nó được chứa trong dấu ngoặc.
Hiện nay mình chưa tìm ra cách nào có sẵn trong word ngoại trừ cách lập trình VBA (nếu lập trình VBA thì mình chia sẻ sau vì cần có chút thời gian lập trình).

2. Tuy nhiên, với trường hợp cụ thể bạn nêu ở trên chẳng qua là tìm để XÓA chuỗi ký tự chứa cú pháp sau:
* (SMS: chuỗi tiếp theo có chiều dài bất kỳ)

Nếu vậy làm theo đúng cách bạn đã làm nhưng ở mục "Tìm" thì nhập vào như sau:

?(SMS: *) ký tự trống sau cùng  = ?SMS: *ký tự trống sau cùng
~ tìm chuỗi có ký tự đầu tiên bất kỳ "?"+ tiếp đến là chuỗi "SMS: " + sau đó chuỗi có chiều dài bất kỳ "*" + kết thúc ký tự trống.
Lưu ý cuối cùng là dấu cách đấy. Nếu k có dấu cách là không ra đâu.

==> Có nghĩa là:
- Đã dùng chức năng "wildcard" thì ( ): Cặp ngoặc đơn không có tác dụng được hiểu là ký tự cần tìm kiếm.

Chúc bạn như ý!

Cũng đang chủ đề này, em đang nghiên cứu một tình huống như sau nhưng không biết có được không:

Giả sử tài liệu của em có các mục của em được đánh số đại để như sau:
1.1.1 Mục đích nghiên cứu
1.2.2 Các phương pháp nghiên cứu
...
1.3 Kết luận
tài liệu của em rất dài, em muốn thay thế tự động để giữa ký tự số và chữ có thêm dấu chấm. Cụ thể các mục trên thành như sau:
1.1.1. Mục đích nghiên cứu
1.2.2. Các phương pháp nghiên cứu
...
1.3. Kết luận

Nếu dùng chức năng Replace thì có được không hả anh?



phuongnt trong 13/3/2014 15:50 đã trả lời thêm:
Em giả định trường hợp này là từ một tài liệu được đánh thủ công (nếu trường hợp để Word tự động thì có thể chỉnh sửa được anh ah).

phuongnt gửi lúc 13/3/2014 15:41

                               
Đăng nhập/Đăng ký mở rộng

Cũng đang chủ đề này, em đang nghiên cứu một tình huống như sau nhưng không biết có ...

Nếu là danh mục tự đánh thì sẽ trường hợp có khả năng xảy ra: là trùng ký tự số lẫn trong nội dung văn bản.

Ví du:

1.2.1 Kiểm soát rủi ro (tham chiếu thêm chi tiết phụ lục 2.1 đính kèm ở trang 31)

Vậy ở đây, nếu dùng chức năng tìm và thay thế. Thì không thể đồng loạt được. Và phải dò tìm từng bước thấy Ok thì chấp nhận thay thế.

Cụ thể:
* Cách 1:
- Tại ô nhập từ cần tìm: "1 " - có ký tự cách trống sau cùng.
- Tại ô nhập từ thay thế: "1. " - có ký tự cách trống sau cùng.
==> Kết quả không mong muốn:

1.2.1. Kiểm soát rủi ro (tham chiếu thêm chi tiết phụ lục 2.1. đính kèm ở trang 31)

* Vậy chắc chắn dùng được chức năng tìm và thay thế. Nhưng phải  theo cách:
- Vì danh mục số chỉ từ 1 đến 9 nên:
+ Tìm và thay thế "1 " đến "9 " bằng "1. " đến "9. "
+ Nhưng tìm từng cái thấy đúng cái cần tìm thay Ok mới cho thay.

==> Cách này nếu văn bản cả trăm trang thì tìm hơi bị lâu.

* Cách 2:
- Dùng lập trình VBA thì chỉ trong tích tắc. Nhưng lập trình thì hơi mất thời gian tý.

Em vừa mò ra 1 cách cũng tạm anh ah (sử dụng chế độ wildcard):
- Find What em đánh là: .([0-9])
- Replace With em đánh là: .\1.

Lưu ý: Sau dấu ) ở Find What và dấu chấm (.) ở Replace With đều có 1 khoảng trắng (dấu cách).

phuongnt gửi lúc 13/3/2014 16:26

                               
Đăng nhập/Đăng ký mở rộng

Em vừa mò ra 1 cách cũng tạm anh ah (sử dụng chế độ wildcard):
- Find What em đánh là:  ...

Oa. Bạn có cách vận dụng rất hay.

Bạn đã vận dụng đúng lúc và nêu rõ được tác dụng của cú pháp () trong trường hợp sử dụng chế độ wildcard.

- Tìm: ".([0-9]) "
Dịch nghĩa:

Tìm chuỗi: bắt đầu bằng ký tự dấu chấm "." + tiếp theo là con số từ 1 đến 9.
   + Dấu ngoặc vuông "[ ]": tìm ký tự bất kỳ được chỉ định trong dấu ngoặc vuông.
   + Dấu ngạch ngang "-": thể hiện khoảng dao động của dãy ký tự (phải theo thứ tự tăng dần). Ở đây là từ 1 đến 9.
   + Còn dấu ngoặc đơn (): có tác dụng chia cụm từ tìm kiếm chứa trong nó (tức số từ 1 đến 9) thành chuỗi logic. Vì có 1 cặp móc đơn nên hiểu nôm na nó có tên định danh là 1.

- Thay thế: ".\1. "
Dịch nghĩa:
Thay thế chuỗi tìm được (bắt đầu bằng con số và kết thúc bằng dấu . và dấu cách) bằng chuỗi bắt đầu là dấu . + tiếp theo là chuỗi đã định danh ở ô tìm (có định danh là 1 nêu trên: tức giữ nguyên số tìm thấy) + dấu . + dấu cách.
     + "\1": Dấu sổ chéo ngược đi kèm với chữ số thể hiện thứ tự chuỗi ký tự trong ngoặc đơn ở trên.

Cảm ơn bạn đã chia sẻ cách hay!

fubi gửi lúc 13/3/2014 16:50

                               
Đăng nhập/Đăng ký mở rộng

Oa. Bạn có cách vận dụng rất hay.

Bạn đã vận dụng đúng lúc và nêu rõ được tá ...

Vận dụng chức năng này, chúng ta có thể vận dụng vào trường hợp sau:

* Trong word có danh sách họ tên.
Nhưng lại <họ trước>, <tên sau>.
Nay muốn cách nào đó đổi lại: <tên trước>, <họ sau>.

Ví dụ:
- Có tên:
              Nguyễn A
              Phan B
              Trần C
- Muốn thành:
               A Nguyễn
               B Phan
               C Trần

Cách làm như sau:

1. Chọn cột hoặc danh sách bạn muốn thực hiện đổi chỗ.
2. Từ menu Edit, chọn Replace đối với phiên bản Word 2003. Hoặc click Replace trong nhóm Editing trên thẻ Home đối với phiên bản Word 2007 trở lên. Một cách đơn giản hơn là nhấn tổ hợp phím tắt Ctrl + H.
3. Click nút More và đánh dấu tùy chọn Use Wildcards. Lưu ý, đây là bước quan trọng nhất.
4. Trong ô Find What, nhập (<*>) (<*>) Lưu ý giữa hai cặp ngoặc đơn có dấu cách.
5. Trong ô Replace With, nhập \2 \1 Lưu ý có dấu cách ngay sau số 2.
6. Click Replace All.
7. Khi Word hỏi bạn có muốn mở rộng trên toàn tài liệu hay không, chọn No.

                               
Đăng nhập/Đăng ký mở rộng

                               
Đăng nhập/Đăng ký mở rộng

Giải thích

Trong thủ thuật trên, chúng ta đã sử dụng Wildcard đại diện cho các ký tự. Wildcard bao gồm dấu ? và dấu *. Dấu ? đại diện cho một ký tự bất kỳ. Dấu * đại diện cho nhiều ký tự bất kỳ. Cụ thể trong trường hợp trên:

( ): Cặp ngoặc đơn thực tế không phải wildcard. Chúng có tác dụng chia cụm từ mẫu thành các chuỗi logic.
< >: Cặp ngoặc nhọn có tác dụng đánh dấu sự bắt đầu và kết thúc của một từ hoặc cụm từ.
*: Wildcard thay thế cho nhiều ký tự bất kỳ, ở đây là Họ và Tên.
\: Dấu sổ chéo ngược đi kèm với chữ số thể hiện thứ tự chuỗi ký tự trong ngoặc nhọn ở trên.

Như vậy, ô Find What chia những cái tên thành hai chuỗi ký tự riêng biệt. Ô Replace With tiến hành thay thế nội dung chuỗi ký tự thứ nhất bằng chuỗi ký tự thứ hai và ngược lại.

Với thủ thuật sử dụng Wildcard, chỉ cần linh hoạt một chút, các bạn hoàn toàn có thể sắp xếp được vị trí các từ trong cột hoặc danh sách như ý muốn, không chỉ đơn thuần là đảo vị trí Họ và Tên.

Sưu tầm Linh V. (Theo TechRepublic)

---

THAM CHIẾU ĐỂ HIỂU Ý NGHĨA CÁC KÝ TỰ ĐẠI DIỆN NHƯ SAU

Bảng các ký tự đại diện

                               
Đăng nhập/Đăng ký mở rộng

Để tìm một ký tự định nghĩa như một ký tự đại diện, bạn gõ dấu trước ký tự đó. Chẳng hạn gõ ? để tìm dấu hỏi. Bạn có thể sử dụng dấu ngặc đơn để nhóm các ký tự đại diện và đoạn text để chỉ ra thứ tự phép tính.
Ví dụ: gõ <(pre)*(ed)> để tìm “presorted” và “prevented”.
Bạn có thể sử dụng ký tự đại diện n để tìm kiếm một biểu thức và thay thế bằng một biểu thức được sắp xếp.
Ví dụ: gõ (Office) (Word) vào ô Find what và g 2 1 vào ô Replace with. Kết quả là chương trình sẽ tìm cụm từ Office Word và thay bằng Word Office.
Sưu tầm

Bài toán tìm tất cả các đoạn văn bản nằm trong dấu () để định dạng nhanh cho nhiều đoạn, theo em có thể làm theo cách sau.

Bước 1: Đầu tiên dùng chức năng Replace (Ctrl+H) thay thế cặp ký tự () bằng một cặp ký tự khác. Ví dụ: thay ( bằng ww, thay ) bằng www chẳng hạn.

[Ở bước này không dùng chức năng Wildcards; các ký tự thay thế cho () lựa chọn tùy ý sao cho không trùng với các ký tự khác trong tài liệu]

Bước 2: Dùng chức năng Wildcards của Replace khai báo trong Find What là: ww*www. Tiếp đó trỏ chuột vào Replace with sau đó vào Format-> Font --> Chọn Italic (Định dạng chữ nghiêng).

Bước 3: Dùng Replace để thay thế ngược trở lại: www thay bằng )và ww thay bằng (.

Cực kỳ thông minh. Ý bạn rất hợp ý mình. Tuy nhiên pp này có 1 nhược điểm là phải chắc chắn rằng ký tự thay thế k trùng bất cứ ký tự nào trong văn bản. Muốn vậy chọn ký tự tạm thay thế sao cho k có khả năng trùng. Cách bạn chọn w là cách cực kỳ thông minh bởi ký tự w ít gặp trong văn bản tiếng việt. Nhưng địa chỉ trang web có thể có trong văn bản như www. Vậy nên mình nghĩ lấy ký tự khác mà k thể có khả năng có mặt trong văn bản: ví dụ t6y5 thay cho ( và t5y6 thay cho ).
Thanks bạn nhiều. Rất hay!

Tất cả nhờ có anh Fubi chỉ dạy, động viên khiến em cảm thấy ham học hơn.

fubi gửi lúc 13/3/2014 17:05

                               
Đăng nhập/Đăng ký mở rộng

Vận dụng chức năng này, chúng ta có thể vận dụng vào trường hợp sau:

* Trong word c ...

Một chủ đề rất tuyệt vời, cực kỳ hữu ích. Cám ơn anh Fubi và bạn Phuongnt rất nhiều.


Tình huống rất hay, thực tế

Thanks very much

Em nghĩ mãi mà chưa tìm cách đánh dấu những đoạn theo điều kiện cho trước, phiền các anh/chị nào ai biết chỉ dùm em với.

-----
Đầu bài của em như sau (trích từ tài liệu văn bản QPPL khoảng vài chục trang):

Điều 1. Phạm vi, đối tượng điều chỉnh
1. Phạm vi điều chỉnh của Nghị định, gồm:
a) Tín dụng đầu tư gồm: cho vay đầu tư và hỗ trợ sau đầu tư.
b) Tín dụng xuất khẩu bao gồm: cho vay xuất khẩu (cho nhà xuất khẩu và nhà nhập khẩu nước ngoài vay).
2. Đối tượng điều chỉnh, bao gồm:
a) Các doanh nghiệp, tổ chức kinh tế, đơn vị sự nghiệp có thu có dự án thuộc Danh mục vay vốn tín dụng đầu tư (sau đây gọi là chủ đầu tư);
b) Các doanh nghiệp, tổ chức kinh tế trong nước có hợp đồng xuất khẩu hoặc các tổ chức nước ngoài nhập khẩu hàng hóa từ Việt Nam thuộc Danh mục vay vốn tín dụng xuất khẩu;
c) Ngân hàng Phát triển Việt Nam và các tổ chức, cá nhân khác có liên quan trong quá trình thực hiện tín dụng đầu tư và tín dụng xuất khẩu.
Điều 2. Nguyên tắc tín dụng đầu tư, tín dụng xuất khẩu
1. Cho vay những dự án đầu tư, hợp đồng xuất khẩu, hợp đồng nhập khẩu hàng hóa do Việt Nam sản xuất, có thu hồi vốn trực tiếp, có hiệu quả và khả năng trả nợ.
...

Mục đích của em là làm phụ lục tự động cho tài liệu, những Điều trong văn bản em cho vào cùng 1 Heading, tức là em muốn tìm (bôi đen) toàn bộ các đoạn mà chứa từ Điều ở đầu đoạn văn bản, tức là kết quả của nó như sau:

Điều 1. Phạm vi, đối tượng điều chỉnh
1. Phạm vi điều chỉnh của Nghị định, gồm:
a) Tín dụng đầu tư gồm: cho vay đầu tư và hỗ trợ sau đầu tư.
b) Tín dụng xuất khẩu bao gồm: cho vay xuất khẩu (cho nhà xuất khẩu và nhà nhập khẩu nước ngoài vay).
2. Đối tượng điều chỉnh, bao gồm:
a) Các doanh nghiệp, tổ chức kinh tế, đơn vị sự nghiệp có thu có dự án thuộc Danh mục vay vốn tín dụng đầu tư (sau đây gọi là chủ đầu tư);
b) Các doanh nghiệp, tổ chức kinh tế trong nước có hợp đồng xuất khẩu hoặc các tổ chức nước ngoài nhập khẩu hàng hóa từ Việt Nam thuộc Danh mục vay vốn tín dụng xuất khẩu;
c) Ngân hàng Phát triển Việt Nam và các tổ chức, cá nhân khác có liên quan trong quá trình thực hiện tín dụng đầu tư và tín dụng xuất khẩu.
Điều 2. Nguyên tắc tín dụng đầu tư, tín dụng xuất khẩu
1. Cho vay những dự án đầu tư, hợp đồng xuất khẩu, hợp đồng nhập khẩu hàng hóa do Việt Nam sản xuất, có thu hồi vốn trực tiếp, có hiệu quả và khả năng trả nợ.
...

phuongnt gửi lúc 14/3/2014 21:07

                               
Đăng nhập/Đăng ký mở rộng

Em nghĩ mãi mà chưa tìm cách đánh dấu những đoạn theo điều kiện cho trước, phiền c ...

Bài toán bạn nêu chỉ có thể giải quyết bằng VBA.

I. THuật toán:
- Tạo style mới "Dieu Luat" với các định dạng cơ bản mong muốn: đậm, đỏ, thụt vào 1 đoạn.
Tuy nhiên trước khi tạo cần kiểm tra style "Dieu Luat" đã tồn tại chưa. Nếu tồn tại rồi thì không cần tạo nữa. Bởi cái có sẵn đôi khi người dùng đã edit style theo ý muốn rồi.

- Tìm từ "Điều" + chứa số bất kỳ từ 1 đến 9 và kết thúc bới dấu chấm. (Ví dụ: Điều 15.)

- Bôi đen toàn bộ đoạn văn chứa từ vừa tìm được.

- Gắn style "Dieu Luat" cho đoạn văn đã bôi đen.

Cứ tìm như vậy cho hết văn bản.


II. Lập trình VBA:
- Bước 1: Tải file đuôi bas của mình về máy của bạn: Tim_VaDinhDang.bas (2.59 KB, Lượt tải về: 1365)

16/3/2014 23:05 Tải lên

Click to download ).
- Bước 2: mở file văn bản bạn cần định dạng.
- Bước 3: Bấm Alt + F11 mở cửa sổ VBA
- Bước 4: Bấm Ctl +M ==> chọn file đã tải về ở trên máy bạn ở bước 1 ==> Bấm "open"
- Bước 5: Bấm Alt + F11 về lại cửa sổ word
- Bước 6: Bấm Alt + F8 mở danh sách macro. Chọn macro "Tim_VaDinhDang". Bấm "run" xem thành quả.

III. Đây là code:

1. Sub Tim_VaDinhDang()
   
2. ' =========== Tao Style moi: ten la "DieuLuat" ====================
   
3.     ' Kiem tra ton tai cua style "DieuLuat"
   
4.     Dim soStyle As Integer
   
5.     soStyle = ActiveDocument.Styles.Count
   
6. For i = 1 To soStyle
   
7.      If "DieuLuat" = ActiveDocument.Styles(i) Then
   
8.         MsgBox ("Style 'DieuLuat': da co san tren may ban." _
   
9.         & vbCrLf & "Tat ca tieu de cua DIEU KHOAN tu dong duoc dinh dang theo style 'DieuLuat'" _
   
10.         & vbCrLf & "Ban co the sua dinh dang style 'DieuLuat' theo y thich, roi chay lai tien ich nay.")
    
11.           GoTo CONTINUE
    
12.      End If
    
13. Next
    
14.     ' Tao Style moi ten la "DieuLuat"
    
15.         MsgBox ("Style 'DieuLuat': Chu Da^m, Mau Do - se duoc tao tren may ban." _
    
16.         & vbCrLf & "Tat ca tieu de cua DIEU KHOAN tu dong duoc dinh dang theo style 'DieuLuat'" _
    
17.         & vbCrLf & "Ban co the sua dinh dang style 'DieuLuat' theo y thich, roi chay lai tien ich nay.")
    
18.         ActiveDocument.Styles.Add Name:="DieuLuat", Type:=wdStyleTypeParagraph
    
19.     With ActiveDocument.Styles("DieuLuat")
    
20.         .AutomaticallyUpdate = False
    
21.         .BaseStyle = "Normal"
    
22.         .NextParagraphStyle = "DieuLuat"
    
23.     End With
    
24.     ActiveDocument.SaveAsQuickStyleSet "DieuLuat"
    
25.     With ActiveDocument.Styles("DieuLuat").Font
    
26.         .Name = "Times New Roman"
    
27.         .Size = 14
    
28.         .Bold = True
    
29.         .Italic = False
    
30.         .Color = wdColorRed
    
31.     End With
    
32.     With ActiveDocument.Styles("DieuLuat").ParagraphFormat
    
33.         .LineSpacingRule = wdLineSpaceSingle
    
34.         .Alignment = wdAlignParagraphJustify
    
35.         .FirstLineIndent = MillimetersToPoints(8)
    
36.     End With
    
37. CONTINUE:
    
38.     ''''''''''''' Tim dòng tieu de cua Dieu va gan style "DieuLuat" '''''''''
    
39.     Selection.Find.ClearFormatting
    
40.     Selection.Find.Font.Bold = True
    
41. chaylai:     With Selection.Find
    
42.                 .Text = ChrW(272) & "i" & ChrW(7873) & "u *[1-9]*."
    
43.                 .Replacement.Text = ""
    
44.                 .Forward = True
    
45.                 .Wrap = wdFindStop
    
46.                 .Format = True
    
47.                 .MatchCase = False
    
48.                 .MatchWholeWord = False
    
49.                 .MatchAllWordForms = False
    
50.                 .MatchSoundsLike = False
    
51.                 .MatchWildcards = True
    
52.                 .Execute ' tim ra
    
53.                 Do Until Selection.Find.Found = False
    
54.                      Selection.MoveEnd Unit:=wdParagraph
    
55.                      Selection.Style = ActiveDocument.Styles("DieuLuat")
    
56.                      Selection.EndKey
    
57.                      GoTo chaylai
    
58.                 Loop
    
59.             End With
    
60. End Sub
    

Sao chép mã

fubi gửi lúc 16/3/2014 22:40

                               
Đăng nhập/Đăng ký mở rộng

Bài toán bạn nêu chỉ có thể giải quyết bằng VBA.

I. THuật toán:

Em đoán Text = ChrW(272) & "i" & ChrW(7873) & "u *[1-9]*." hình như là từ Điều...thì phải?
------
Ví dụ chữ ChrW(272) thực chất là chữ Đ phải không anh? nhưng trong VBA phải tra ở đầu để biết được điều đó ah.

phuongnt gửi lúc 17/3/2014 12:09

                               
Đăng nhập/Đăng ký mở rộng

Em đoán Text = ChrW(272) & "i" & ChrW(7873) & "u *[1-9]*." hình như là từ Điều...thì phải ...

1. File đuôi bas dùng để làm gì:

phuongnt:  "Em chưa hiểu tại sao anh lại lưu dưới dạng File .bas nó có tác dụng gì?"

Theo hiểu biết của mình:
- Trong VBA hay bất cứ ngôn ngữ lập trình nào, khi lập trình 1 ứng dụng hay tiện ích nào đấy bạn sẽ phải tạo ra rất nhiều hàm, hoặc nhiều thủ tục để chạy chương trình. Trong tất cả các hàm và các thủ tục (sub) người lập trình tạo ra như vậy có thể có số đồng dạng, liên quan với nhau. Nếu để chung vào 1 chỗ thì rất khó kiểm soát. Vì vậy tốt nhất chia phân loại nhóm chúng theo ý muốn vào từng module khác nhau cho chúng ta dễ nhận biết dễ nhớ để quản lý hoặc gọi ra dùng.

Nôm na, tiện ích, phần mềm lập trình như 1 tòa nhà rộng lớn chứa đồ đạc. Nếu đồ đạc ta để lung tung không phòng nào ra phòng nào thì khi ta cần tìm 1 cái mũ trong tòa nhà thì k có cách nào tìm ra. Vậy nên trong mớ đồ đạc của tòa nhà, chúng ta phân loại thành những phòng chức năng chứa đồ đồng dạng: phòng chứa mũ - dù - nón, phòng chứa quần- váy, phòng chứa áo tay dài- áo tay ngắn, phòng chứa giường- tủ...
Thì phòng nó tương tự như module vậy đó.

- Các macro trong word được chứa trong các module. Tức 1 module (phòng) có thể có 1 hoặc nhiều macro sub (thủ tục) hoặc Function (hàm) tùy người lập trình phân nhóm.

Để chia sẻ module 1 cách nhanh chóng, mình Export ra thành file riêng để chia sẻ cho tiện. Các bạn chỉ cần tải về import thế là toàn bộ module (chứa macro mình đã lập trình sẵn) nó nhảy vào VBA của file bạn đỡ phải thao tác phức tạp.
Trong môi trường VBA của word có chức năng Export và Import. Khi export module bất kỳ thì VBA sẽ tự thành đuôi file .bas

2. Text: ChrW(272) là chữ gì? trong VBA phải tra ở đầu để biết được?
a. VBA IDE (Môi trường soạn thảo code VBA của Office) không hỗ trợ mã unicode. Tức có nghĩa bạn dùng font unicode đánh chữ tiếng việt trong nền soạn thảo code của VBa là không ra chữ mong muốn được.
Cụ thể ở đây: chúng ta cần viết lập trình để máy tự tìm: tìm từ "Điều" - Mã unicode. Nhưng trên môi trường soạn thảo code của VBA chữ "Điều" nó biến thành chữ "?i?u". Vậy nên khi macro chạy, máy sẽ tiến hành tìm chữ "?i?u" trong văn bản của chúng ta. Nó tìm mãi cũng k ra bởi văn bản chúng ta là chữ "Điều" kia.

- Vậy cách nào đấy để VBA hiểu đúng ý chúng ta muốn?
+ Nôm na: Ký tự hiển thị trên màn hình chỉ là ngọn. Còn gốc trên bộ nhớ của máy nó được lưu dưới dạng số. Ở phạm vi bài này mình không đi sâu vào cấu trúc số hóa bảng mã chữ cái vì nếu viết hết ra ngọn ngành để hiểu đúng thì cần ít nhất gần 2 trang giấy với rất nhiều khái niệm sẽ khiến bạn nào mới tiếp cận VBA sẽ "choáng".
Nên ở đây nôm na mình diễn tả: chữ "Điều"- mã unicode-  dù thể hiện trên màn hình soạn thảo của word hay trên màn hình soạn thảo code VBA thì đều có chung 1 mã máy giống nhau. Vậy nếu VBA k hỗ trợ soạn unicode thì ta dùng trung gian qua chữ "Điều" bằng mã máy.
Hàm để đọc chữ mã máy đã có sẵn trong VBA. Đó là hàm: ChrW(charcode) ' Chuyển mã Ascii thành ký tự (Hỗ trợ Unicode)
Ví dụ: ChrW(&H1EC7) = “ệ”.

b. Vấn đề charcode tra ở đâu như bạn hỏi: thì có nhiều cách, nhưng với mình cách đơn giản nhất là dùng bộ thu macro cho nhanh. Bằng cách sau:
- Bạn thu macro
- Dùng chức năng tìm kiếm của word với từ "Điều" - Mã chữ trong văn bản của bạn.
- Sau đấy mở macro thu được, bạn sẽ có mã chữ như ý. Mã chữ "Điều" trong code mình viết là mình dùng bộ thu macro có được. Chứ mình thật ra cũng chẳng quan tâm tra gốc ở đâu mà có.

fubi gửi lúc 16/3/2014 22:40

                               
Đăng nhập/Đăng ký mở rộng

Bài toán bạn nêu chỉ có thể giải quyết bằng VBA.

I. THuật toán:

Sao em thử chạy chạy Code xong kết quả là nó có tạo thêm Style Dieuluat, nhưng các dòng văn bản cần lọc vẫn do lớp Normal quản lý nhỉ? (văn bản của em dùng font Unicode mà).



phanhanhdai trong 17/3/2014 20:24 đã trả lời thêm:

Bạn hãy test thử: edit lại định dạng của Style Dieuluat. Bạn sẽ thấy các dòng tiêu đề của Điêu khoản luật sẽ thay đổiđoồng loạt theo định dạng mới.

Ồ, đúng vậy em thử với văn bản tải tại địa chỉ http://www.moj.gov.vn/vbpq/Lists ... l.aspx?ItemID=26881 thì được ngay.
Trong khi em thử một nghị định khác vẫn có Điều 1...Điều 2...tại sao lại không được nhỉ? Xin thày chỉ dùm em với.

phanhanhdai gửi lúc 17/3/2014 16:35
Sao em thử chạy chạy Code xong kết quả là nó có tạo thêm Style Dieuluat, nhưng các dòn ...

Có bác nào giúp em tìm kiếm và thay thế nhiều file word 1 lúc được không? Cụ thể như sau
Trong excel:
Ô A1: Ghi đường dẫn chứa thư mục (Kể cả các thư mục con) các file word cần thay đổi nội dung
Từ dòng thứ 2 trở đi. Cột A chứa nội dung văn bản cũ, Cột B chứa nội dung văn bản tương ứng cần thay thế