• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

viết macro để liên kết dữ liệu ở một file word đang đóng

Nơi trao đổi về VBA (Visual Basic for Application), lập trình cho ứng dụng Microsoft Office, AutoCAD...

Điều hành viên: tungblt

tieulongnu_young
Thành viên chính thức
Thành viên chính thức
Bài viết: 12
Ngày tham gia: T.Tư 18/08/2010 3:58 pm

viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi tieulongnu_young » T.Tư 18/08/2010 4:43 pm

Xin chào cả nhà, chào anh Trường Phú. Em là thành viên mới của diễn đàn và đang cần sự giúp đỡ của anh và mọi người về VBA trong word. Hiện tại em có rất nhiều file cùng có một định dạng và nội dung ở footer, file .doc. Tuy nhiên, có một dòng chữ Ở phần footer cần được thay đổi về nội dung bằng một câu khác. Vì có quá nhiều file và có thể nội dung này sau này sẽ thay đổi thêm lần nữa nên em không thể làm thủ công bằng cách copy và paste nội dụng được. em có biết sơ về macro nhung không rành lắm. Vì vậy, em muốn hỏi anh về việc viết macro để lấy dữ liệu từ một file khác đang đong trong word, cụ thể như sau:
1. Hiện tại, em đang có các file main1.doc, main2.doc có cùng footer nội dung "Nếu nhận thấy bất kỳ trang nào của tài liệu này bị thiếu, bị bẩn, rách nát hoặc mờ không đọc được thì phải xin cấp lại tài liệu" cần được thay đổi bằng câu "Tài liệu này và các thông tin trong đó là tài sản của Công ty , không được in ấn, sao chép dưới bất kỳ hình thức nào nếu không được sự cho phép của Công ty" nằm trong file globat template.
2. Việt một macro để tự động lấy nội dung bên file global template.doc chép vào các file main1.doc, main2.doc,...
4. Mục đích là nếu sau này thay đổi nội dung bên file source.doc bằng một câu khác, tất cả các file main1.doc, main2.doc,...sẽ tự động update lại nội dung ở footer ở tất cả các file main1.doc, main2.doc...

Đây là link để tài 2 file .doc:
File global template.doc:
http://www.mediafire.com/?5pw7jbkfv1c23sf[url][/url]
FIle main.doc:
http://www.mediafire.com/?w35yg7ra4a75xxf[url][/url]
vui lòng viết giùm em code cho yêu câu trên với nhé. Xin cám ơn anh và mọi người. em đang cần rất gấp. Nếu diễn đạt của em hơi khó hiểu, mọi người có thể nói chuyện với em qua nick yahoo tieulongnu_young nhé.



Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4758
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 513 time

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi truongphu » T.Tư 18/08/2010 6:18 pm

Code mẫu cho bạn:
  1. Sub HeaderFooterObject(aaa As Document)
  2.   HeaderText$ = "<Replace this with your text>"
  3.   FooterText$ = "Tài li?u này và các thông tin trong dó là tài s?n c?a Công ty , không du?c in ?n, sao chép du?i b?t k? hình th?c nào n?u không du?c s? cho phép c?a Công ty"
  4.   With aaa.Sections(1)
  5.     .Headers(wdHeaderFooterPrimary).Range.Text = HeaderText
  6.     .Footers(wdHeaderFooterPrimary).Range.Text = FooterText
  7.   End With
  8. End Sub
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

tieulongnu_young
Thành viên chính thức
Thành viên chính thức
Bài viết: 12
Ngày tham gia: T.Tư 18/08/2010 3:58 pm

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi tieulongnu_young » T.Năm 19/08/2010 9:07 am

Cám ơn anh Trường Phú đã hồi âm sớm cho em nhưng macro anh gửi em vẫn không run nó được. Em đã copy y nguyên code anh viết vào cửa sổ VBE của file main1.doc, sau đó save lại rồi thoát khỏi cửa sổ VBA và trở lại file main1.doc, run macro tên headerfooterobject thì nó báo lỗi là argument not optical, như vậy là sao hả anh? Anh có thể chỉ rõ cho em biết về đoạn code được không ạ? Ngoài ra, em còn có một số vấn đề cần hỏi anh như sau:

1- Trong đoạn anh gửi, có đoạn code HeaderText$ = "<Replace this with your text>", em thấy hơi thắc mắc, tại sao lại là headertext, em đang cần thay footer của văn bản mà. Trong phần footer của file main1.doc, ngoài câu "Nếu nhận thấy bất kỳ trang nào của tài liệu này bị thiếu, bị bẩn, rách nát hoặc mờ không đọc được thì phải xin cấp lại tài liệu", còn cố thêm mã số tài liệu, số trang, ...nữa nhưng em chỉ muốn thay dòng chữ "Nếu nhận thấy bất kỳ trang nào của tài liệu này bị thiếu, bị bẩn, rách nát hoặc mờ không đọc được thì phải xin cấp lại tài liệu" bằng câu "Tài liệu này và các thông tin trong đó là tài sản của Công ty, không được in ấn, sao chép dưới bất kỳ hình thức nào nếu không được sự cho phép của Công ty"
2- Trong cửa sổ VBA, đoạn code có câu "Tài liệu này và các thông tin trong đó là tài sản của Công ty, không được in ấn, sao chép dưới bất kỳ hình thức nào nếu không được sự cho phép của Công ty" nó bị lỗi chữ tiếng việt, liệu khi chạy được macro này trên văn bản chính, nó có còn bị lỗi font và chữ như trong cửa sổ VBA không?
3- Có phải để khỏi lỗi font khi đánh chữ tiếng việt trong cửa sổ VBA, mình nên tạo text cần thay thế trong một file khác rồi tạo macro link tới file đó không?
4- Vì có cả ngàn file có footer giống như file main1.doc cần thay thế nội dung nên để áp dụng tự động macro anh viết cho tất cả những file kia, em phải làm thế nào?
5- Nếu như mình viết macro như vậy, sau này nếu cần thay đổi nội dung của footer, mình chỉ cần thay đổi nội dung của macro, tự động tất cả các file có gắn macro này sẽ thay đổi hết, mình không cần phải chạy lại macro nữa phải không anh?

Đó là tất cả những thắc mắc hiện tại của em. Anh dành chút thời gian để giải thích giúp em với nhé. Có gì làm phiền anh thì anh thông cảm, em xin hậu tạ sau. Em rất mong nhận dược trả lời của anh. Nếu cần thêm thông tin do anh chưa rõ ý thì có thể post message qua nick này bằng yahoo mesenger cũng được anh nhé.
Luôn tiện, anh cho em xin nick yahoo của anh luôn nhé. Cám ơn anh nhiều nhiều :) :) :) :)

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4758
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 513 time

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi truongphu » T.Năm 19/08/2010 10:57 am

tieulongnu_young đã viết:run macro tên headerfooterobject thì nó báo lỗi là argument not optical, như vậy là sao hả anh?

Kẹt quá, bạn chưa sử dụng được Sub thì làm sao hướng dẫn? có lẽ càng nói bạn càng thêm rối? Thôi cứ thử nói xem sao...

Đối số của Sub là aaa, vậy thì bạn phải khai đối số nầy chứ
vd:

Mã: Chọn hết

Dim WordApp As New Word.Application
Dim DocApp As Document
Set DocApp = WordApp.Documents.Open(<FilePath>)
HeaderFooterObject DocApp
ở ví dụ trên DocApp được Dim là Document được dùng làm đối số của sub HeaderFooterObject

1- Trong đoạn anh gửi, có đoạn code HeaderText$

Đó là code mẫu cho bạn, để sau nầy khỏi mất công hỏi thêm về Header, bây giờ chưa dùng thì xóa nó đi.
2- và 3- nó bị lỗi chữ tiếng việt... mình nên tạo text cần thay thế

Ở trên chỉ là ví dụ vì môi trường VB6 hay VBA không hổ trợ tiếng Việt.
Muốn tải tiếng Việt, bạn phải tải qua một biến String, dùng Word.Application để đọc tiếng Việt từ Doc hay dùng Scripting.FileSystemObject đọc từ txt.
4- Vì có cả ngàn file có footer giống như file main1.doc...

Bắt buộc phải dùng vòng lặp duyệt các file nầy, có như thế công việc mới giải quyết nhanh trong vài giây
5- Nếu như mình viết macro như vậy, sau này nếu cần thay đổi...

Code mẫu ở trên, chỉ thay nội dung ở FooterText, nhấn một phát là OK

Trong Box thủ thuật có nhiều bài tôi đã viết về VBA/Word
bạn tieulongnu_young hãy đọc trước để biết cách dùng VBA thạo hơn
Chúc bạn sớm hoàn thành công việc
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

tieulongnu_young
Thành viên chính thức
Thành viên chính thức
Bài viết: 12
Ngày tham gia: T.Tư 18/08/2010 3:58 pm

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi tieulongnu_young » T.Năm 19/08/2010 2:02 pm

Em cám ơn anh Trường Phú nhiều! Đúng như các bạn khác đã nói, anh là sư phụ về VBA và rất nhiệt tình. Cám ơn anh nhiều nhiều! Giá mà có anh ở TPHCM, em sẽ mời anh làm thầy về VBA để em học hỏi sâu hơn

tieulongnu_young
Thành viên chính thức
Thành viên chính thức
Bài viết: 12
Ngày tham gia: T.Tư 18/08/2010 3:58 pm

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi tieulongnu_young » T.Sáu 20/08/2010 11:09 am

Anh Phú ơi,

Em đang cần gấp nên không có thời gian để tìm tòi, nghiên cứu để hiểu sâu về VBA. anh "đã thương thì thương cho trót, gọt cho trơn", anh giúp em viết code đầy đủ luôn, em chỉ việc copy về và chạy macro thôi được không anh? Nếu có sách gì hay để học viết code và hiểu sâu vể VBA, anh cho em luôn nhé.

Cám ơn anh nhiều nhiều

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4758
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 513 time

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi truongphu » T.Sáu 20/08/2010 1:47 pm

tieulongnu_young đã viết:Anh Phú ơi,

ngọt ngào
em sẽ mời anh làm thầy về VBA để em học hỏi sâu hơn...
anh giúp em viết code đầy đủ luôn, em chỉ việc copy về và chạy macro thôi được không anh?

rồi phỉnh phờ nha, tuy nhiên không sao, cô em nầy có thu nhập bởi việc làm:
4- Vì có cả ngàn file có footer giống như file main1.doc cần thay thế nội dung..


----- thôi đã thương thì thương cho trót, (nhưng gọt cái gì cho trơn?)

1- Gom các file Doc vào cùng Folder
2- Chép bộ macro nầy vào một file, chạy macro nầy, toàn bộ các file Doc cùng Folder sẽ có nội dung Footer giống file nầy
(Hoặc nhác lười thì load file bên dưới mà chạy)
3- Sau nầy thay Footer cứ việc chọn file có macro, sửa lại nội dung footer rồi chạy lại

  1. Dim Coll As New Collection, I As Integer
  2.  
  3. Sub Macro1()
  4. '
  5. ' Macro1 Macro
  6. ' Macro Created 8/20/2010 by Truong Phu
  7. '----------------------
  8. ' Ghi Footer cua document (Doc) nâ`y vào biê'n String
  9. Dim FootText As String
  10. FootText = ThisDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text
  11. ' Khai báo các biê'n Ðê open các documents khác
  12. Dim WordApp As New Word.Application
  13. Dim DocApp As Document
  14. ' Liêt kê các file Doc trong cùng Folder nâ`y by Sub ListFiles
  15. ListFiles ThisDocument.Path
  16. ' Dùng vòng lap Ðê ghi Footer vào các file Doc
  17. For I = 1 To Coll.Count
  18.     ' Nê'u open Ðúng file nâ`y thì bo qua
  19.    If Coll(I) = ThisDocument.Path & "\" & ThisDocument.Name Then
  20.         GoTo Không
  21.     Else
  22.     ' Ngoài ra open các file khác
  23.    Set DocApp = WordApp.Documents.Open(Coll(I))
  24.     ' Ghi vào Footer
  25.    DocApp.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = FootText
  26.     DocApp.Save:     DocApp.Close
  27.     End If
  28. Không:
  29. Next
  30. MsgBox "Ðã Ghi Xong vào " & I - 2 & " file Doc khác cùng Folder"
  31. Set Coll = Nothing
  32. End Sub
  33. Sub ListFiles(ByVal FolderPath As String)
  34. ' Macro Created 8/20/2010 by Truong Phu
  35.  Dim FSO, FTmp
  36.   Set FSO = CreateObject("Scripting.FileSystemObject").GetFolder(FolderPath).Files
  37.     For Each FTmp In FSO
  38.         Coll.Add FTmp.Path
  39.     Next
  40.   Set MyFSO = Nothing
  41. End Sub
  42.  
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

tieulongnu_young
Thành viên chính thức
Thành viên chính thức
Bài viết: 12
Ngày tham gia: T.Tư 18/08/2010 3:58 pm

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi tieulongnu_young » T.Sáu 20/08/2010 3:57 pm

Nhận được hồi âm của anh mà em mừng quá. =D> =D> =D>
Cám ơn anh nhiều nhiều! Anh phú có nick không? Có thể chat với em một tí được ko?

tieulongnu_young
Thành viên chính thức
Thành viên chính thức
Bài viết: 12
Ngày tham gia: T.Tư 18/08/2010 3:58 pm

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi tieulongnu_young » T.Sáu 20/08/2010 4:42 pm

Anh Phú ơi,

Em đã chạy file của anh gửi, và đã làm được rồi. Đúng là sư phụ VBA có khác. Tuy nhiên, ở phần footer, không chỉ có câu đó mà còn có những dòng chữ khác nữa. Vì vậy, khi em làm chạy macro anh gửi, nghĩa là nó xóa hết footer cũ thay bằng một dòng chữ của footer mới này luôn.

Tài liệu của em là tất cả các quy trình của công ty. Môi quy trình có một ký mã hiệu, ngày ban hành và lần ban hành cũng như số trang đều khác nhau, chỉ giống nhau một câu nhờ anh làm macro. Giờ em không biết phải làm sao đây? Làm thế nào để thay thế một phần, một dòng đó mà không ảnh hưởng đến những phần khác trong footer không anh?

Em có đọc một tài liệu, download theo đường link này http://www.mediafire.com/?vl6802tgvbnho7m[url][/url], họ có chỉ cách find và replace ở trang 133, nhưng em chưa rành nên đọc thấy rối quá, không biết nên làm sao, đành phải nhờ sư phụ vậy.

Em gửi anh một quy trình của công ty để anh làm thử trực tiếp theo format đó giùm em luôn nhé vì tất cả các quy trình đều theo format này. (tập tin đính kèm)

Em rất rất rất mong nhận được phản hồi của anh.

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4758
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 513 time

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi truongphu » CN 22/08/2010 8:12 am

Hóa ra em gái muốn thay thế nội dung ở footer hả?

câu code:
DocApp.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = FootText

tức là ghi footext vào các doc khác
ta thay nó với hàm FindReplaceAnywhere là xong!

* đương nhiên phải sửa lại code vì inputbox không cho nhập tiếng Việt Unicode
* ngoài ra hàm FindReplaceAnywhere chỉ hoạt động trên activedocument, mà ta muốn nó phải hoạt động trên các file word đang đóng, do đó phải thêm đối số cho hàm:

Mã: Chọn hết

Public Sub FindReplaceAnywhere(Docu As Document)

hy vọng cô nàng hài lòng
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
ongdat76
Guru
Guru
Bài viết: 82
Ngày tham gia: T.Năm 09/03/2006 10:11 am
Đến từ: Thành phố Vinh - Nghệ An
Has thanked: 1 time
Been thanked: 2 time
Liên hệ:

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi ongdat76 » T.Hai 23/08/2010 3:11 pm

Hihi, mỗ cũng xì pam 1 phát, nếu các mode có ngó qua, cứ xóa thẳng tay :D
Phải nói là bác Phú nhà ta vẫn phong độ ngời ngời, lại son nữa, gặp một nàng có đúng 6 bài viết thì 6 bài đều có liên quan đến bác, và bài nào cũng có "anh Phú ơi", thật là không phí công đóng góp bấy lâu, cung hỷ cung hỷ :D
PS: mỗ k có thói quen xì pam, nhưng thấy vui nên phạm giới chút, các mod đừng pm cảnh cáo nhé, cứ xóa bài thì mỗ tự hiểu :">
Hoàng Sa là của Việt Nam!
Trường Sa là của Việt Nam!

"Nước Việt Nam là MỘT, dân tộc Việt Nam là MỘT,..."
---
Giọng ca vàng hát nhạc vàng: http://sannhac.com/tqt37c2.htm

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4758
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 513 time

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi truongphu » T.Hai 23/08/2010 4:07 pm

@ ongdat76: đừng có ghen, cô em gái thôi mà
@ tieulongnu_young: hình như cô em chưa thạo VBA lắm, do thế, với công việc văn phòng (word) thì những phần mềm nho nhỏ có vẻ thích hợp hơn...
untitled.JPG



1- Đưa các file doc vào cùng folder với phần mềm Word Text Replace
2- Run Word Text Replace.exe
3- Gõ hay dán (nút Paste) nội dung cũ cần xóa vào textbox ở trên
4- Gõ hay dán (nút Paste dưới) nội dung mới cần thay thế vào textbox bên dưới
5- Nhấn nút Replace một cái và đợi: trung bình 1 giây cho mỗi file
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

tieulongnu_young
Thành viên chính thức
Thành viên chính thức
Bài viết: 12
Ngày tham gia: T.Tư 18/08/2010 3:58 pm

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi tieulongnu_young » T.Hai 23/08/2010 6:32 pm

Cám ơn anh Phú nhé. Em đã làm theo hướng dẫn của anh rồi và việc thay thế rất ok. Nói chung là chương trình của anh viết rất good. Anh làm bằng cái gì mà hay vậy? Có thể nói sơ qua cho em biết được không? :) :) :)

Có một việc nữa em cần nhờ anh và mọi người. Thật sự em cảm thấy rất ngại khi làm phiền anh nhiều quá :"> , nhưng theo như yêu cầu, dòng chữ cần thay thế phải được canh giữa in đậm nên em muốn nhờ anh giúp em thêm một lần nữa cho chủ đề này.

Rất muốn cám ơn anh nhiều hơn về tất cả nhưng không biết dùng lời gì để diễn đạt, chỉ biết thank you so much once again!!! :) :) :)

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4758
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 513 time

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi truongphu » T.Hai 23/08/2010 8:41 pm

chữ đậm:

Mã: Chọn hết

Word.Range.Find.Replacement.Font.Bold = True


canh giữa:

Mã: Chọn hết

Word.Range.Find.Replacement.ParagraphFormat.Alignment = wdAlignParagraphCenter '(hay = 1)

canh trái:
wdAlignParagraphLeft (hay = 0)

tieulongnu_young có biết VB6 không?
nếu biết, sẽ tặng project trên

Word Text Replace v1.1.rar


Minh họa:
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

tieulongnu_young
Thành viên chính thức
Thành viên chính thức
Bài viết: 12
Ngày tham gia: T.Tư 18/08/2010 3:58 pm

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi tieulongnu_young » T.Hai 23/08/2010 10:49 pm

Tốt quá rồi, em đã làm được tất cả các file đúng như định hướng ban đầu nhờ vào bài viết của anh. Cám ơn anh rất nhiều

tieulongnu_young có biết VB6 không?
nếu biết, sẽ tặng project trên


em chưa biết về VB nhưng qua kỳ này, em sẽ nghiên cứu chút ít về VB để sau này đỡ làm phiền anh Phú nhiều hơn. Vì vậy, anh cứ tặng em project trên, em sẽ dựa vào đó học hỏi thêm, chắc là sẽ dễ hiểu hơn vì em hiểu rõ yêu cầu đưa ra.

Chúc anh và mọi người một tuần làm việc mới vui vẻ và hiệu quả!
:) :) :) :)

yuki
Bài viết: 1
Ngày tham gia: T.Tư 04/07/2018 1:26 pm

Re: viết macro để liên kết dữ liệu ở một file word đang đóng

Gửi bàigửi bởi yuki » T.Tư 04/07/2018 1:29 pm

truongphu đã viết:
tieulongnu_young đã viết:run macro tên headerfooterobject thì nó báo lỗi là argument not optical, như vậy là sao hả anh?

Kẹt quá, bạn chưa sử dụng được Sub thì làm sao hướng dẫn? có lẽ càng nói bạn càng thêm rối? Thôi cứ thử nói xem sao...

Đối số của Sub là aaa, vậy thì bạn phải khai đối số nầy chứ
vd:

Mã: Chọn hết

Dim WordApp As New Word.Application
Dim DocApp As Document
Set DocApp = WordApp.Documents.Open(<FilePath>)
HeaderFooterObject DocApp
ở ví dụ trên DocApp được Dim là Document được dùng làm đối số của sub HeaderFooterObject

1- Trong đoạn anh gửi, có đoạn code HeaderText$

Đó là code mẫu cho bạn, để sau nầy khỏi mất công hỏi thêm về Header, bây giờ chưa dùng thì xóa nó đi.
2- và 3- nó bị lỗi chữ tiếng việt... mình nên tạo text cần thay thế

Ở trên chỉ là ví dụ vì môi trường VB6 hay VBA không hổ trợ tiếng Việt.
Muốn tải tiếng Việt, bạn phải tải qua một biến String, dùng Word.Application để đọc tiếng Việt từ Doc hay dùng Scripting.FileSystemObject đọc từ txt.
4- Vì có cả ngàn file có footer giống như file main1.doc...

Bắt buộc phải dùng vòng lặp duyệt các file nầy, có như thế công việc mới giải quyết nhanh trong vài giây
5- Nếu như mình viết macro như vậy, sau này nếu cần thay đổi...

Code mẫu ở trên, chỉ thay nội dung ở FooterText, nhấn một phát là OK

Trong Box thủ thuật có nhiều bài tôi đã viết về VBA/Word
bạn tieulongnu_young hãy đọc trước để biết cách dùng VBA thạo hơn
Chúc bạn sớm hoàn thành công việc


Quay về “Visual Basic for Application (VBA)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.2 khách