Các thắc mắc về VBA trong word

Liên hệ QC

tueyennhi

Thành viên tích cực
Tham gia
18/10/10
Bài viết
1,187
Được thích
105
Vì chủ để về VBA trong Excel đã có rất nhiều rồi, vậy hôm nay mình mạn phép lập topic này để các thành viên chuyên trao đổi về VBA trong Word nhé. Mong mọi người ủng hộ.
 
Lần chỉnh sửa cuối:
Bài đầu tiên mình muốn gửi đến mọi người là code của thành viên huuthang_bd

Sub MailMergeToMultiFile()
Application.ScreenUpdating = False
Dim i
As Long, Doc As Document
Set Doc
= ActiveDocument
ChangeFileOpenDirectory Doc
.Path
With Doc
.MailMerge
If .Destination < 0 Then
MsgBox
"File hien hanh chua thiet lap Mail Merge"
Else
.
Destination = wdSendToNewDocument
.SuppressBlankLines = False
For i = 1 To .DataSource.RecordCount
.DataSource.FirstRecord = i
.DataSource.LastRecord = i
.Execute Pause:=True
ActiveDocument
.SaveAs FileName:="MailMerge " & Format(i, "000")
ActiveDocument.Close
Next
End
If
End With
Application
.ScreenUpdating = True
End Sub


Code rất hay với các bạn sử dụng Mail merge. Giả sử các bạn Mail merge 100 trường hợp thì code này có tách dụng xuất ra 100 file mềm tương ứng.
 
Upvote 0
Upvote 0
Upvote 0
Vì chủ để về VBA đã có rất nhiều rồi, vậy hôm nay mình mạn phép lập topic này để các thành viên chuyên trao đổi về VBA trong Word nhé. Mong mọi người ủng hộ.
Bạn tham khảo thêm cái File sau nha...File đó của Caulacbovb.com

Mình tải bên đó về đó ...Mình cứ tìm trên Google thấy Web nào có code két thì là

thành viên của Web đó kể cả mấy trang nước ngoài nếu Bạn thấy Nick kieu manh viết tiếng Anh, Việt, Pháp, Trung... lung tung linh tinh thì đó là Mình đó nha ....--=0|||||
 

File đính kèm

  • VBA Word.rar
    24.4 KB · Đọc: 13
Upvote 0
Và đây nữa tha hồ cho mà ngâm cứu ....cái đầu U lên vài cục cho coi...+-+-+-+

Code Mình ST cũng ở Bển ....

Tính Mình hay thích vọc và sửa mà nguồn của Ai đó có thể ... Nên tải về quậy chơi vậy thôi.....--=0
 

File đính kèm

  • VBA For Word Libraries.rar
    30.5 KB · Đọc: 12
Lần chỉnh sửa cuối:
Upvote 0
Cho em hỏi có code vba nào trong word chạy một lần mà xóa hết toàn bộ ảnh trong file word đó không, bên excel cứ reco macro là xong, trong word không làm được
 
Upvote 0
Và đây nữa tha hồ cho mà ngâm cứu ....cái đầu U lên vài cục cho coi...+-+-+-+

Code Mình ST cũng ở Bển ....

Tính Mình hay thích vọc và sửa mà nguồn của Ai đó có thể ... Nên tải về quậy chơi vậy thôi.....--=0

Nó báo lỗi Run time erro 701. Có phải cài VBA6 vào không anh.
 
Upvote 0
Web KT
Back
Top Bottom