VBA Trong Word | Giải Pháp Excel
Có thể bạn quan tâm
- 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
- Đóng góp
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 đề Tìm kiếm Tìm nâng cao…- Tìm bài viết mới
- Tìm theo chuyên mục
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
- Lập Trình với Excel
- Lập Trình với Excel
- Thread starter tueyennhi
- Ngày gửi 5/3/16
tueyennhi
Thành viên tích cực
Tham gia 18/10/10 Bài viết 1,192 Được thích 105 Em thấy diễn đàn có nhiều giải pháp trong vba excel, vậy còn word thì sao ạ? Đặt trường hợp mình làm file hợp đồng bằng mail merge (số lượng 200 chẳng hạn). Nhưng mình còn phải xuất file mềm (mỗi người một file). Vậy có cách nào để làm việc đó một cách tự động không ạ?- 1
- 2
Go to page
Tiếp tục Tiếp Last Sắp xếp theo thời gian sắp xếp theo bầu chọnvanle33
Thành viên gạo cội
Tham gia 30/10/08 Bài viết 5,929 Được thích 3,988 Giới tính Namtueyennhi đã viết: Em thấy diễn đàn có nhiều giải pháp trong vba excel, vậy còn word thì sao ạ? Đặt trường hợp mình làm file hợp đồng bằng mail merge (số lượng 200 chẳng hạn). Nhưng mình còn phải xuất file mềm (mỗi người một file). Vậy có cách nào để làm việc đó một cách tự động không ạ? Nhấp chuột vào đây để mở rộng...1) Mail merge có chức năng xuất ra nhiều kết quả mà bạn, như vậy đã là tự động rồi mà!? 2) Lập trình trong word thì cũng nhấn Alt + F11 và Insert/Module như trong excel. Upvote 0
Kiều Mạnh
I don't program, I beat code into submission!!!
Tham gia 9/6/12 Bài viết 5,538 Được thích 4,128 Giới tính Namtueyennhi đã viết: Em thấy diễn đàn có nhiều giải pháp trong vba excel, vậy còn word thì sao ạ? Đặt trường hợp mình làm file hợp đồng bằng mail merge (số lượng 200 chẳng hạn). Nhưng mình còn phải xuất file mềm (mỗi người một file). Vậy có cách nào để làm việc đó một cách tự động không ạ? Nhấp chuột vào đây để mở rộng...Mạnh thì ứng dụng mỗi cái tiếng việt trong đó thôi ....lâu lâu có làm một Cái Msgbox Thì Record Macro lên Lấy thôi Ví dụ code sau trong Word Còn code thấy ít người hứng thú với nó PHP:Sao chép. Sub Macro1() '' Macro1 Macro'' Selection.TypeText Text:="Ki" & ChrW(7873) & "u V" & ChrW(259) & "n M" & _ChrW(7841) & "nh" End Sub Upvote 0 T
tueyennhi
Thành viên tích cực
Tham gia 18/10/10 Bài viết 1,192 Được thích 105vanle33 đã viết: 1) Mail merge có chức năng xuất ra nhiều kết quả mà bạn, như vậy đã là tự động rồi mà!? 2) Lập trình trong word thì cũng nhấn Alt + F11 và Insert/Module như trong excel. Nhấp chuột vào đây để mở rộng...Cách 1 nó gộp hết thành 1file chứ không tách ra. Cách 2 mình đang nghiên cứu xem có cách nào dùng vòng lặp được không Upvote 0 H
Hau151978
Thành viên tích cực
Tham gia 19/10/11 Bài viết 1,477 Được thích 1,440tueyennhi đã viết: Cách 1 nó gộp hết thành 1file chứ không tách ra. Cách 2 mình đang nghiên cứu xem có cách nào dùng vòng lặp được không Nhấp chuột vào đây để mở rộng...Mình chôm được code này trong VBA express, dùng với Word 2003. Sau khi dùng chức năng merge to new document, bạn lưu file mới lại rồi copy đoạn code vào module của file mới và chạy nó. Mã:Sao chép. Option Explicit Sub AllSectionsToSubDoc() Dim x As Long Dim Sections As Long Dim Doc As Document Application.ScreenUpdating = False Application.DisplayAlerts = False Set Doc = ActiveDocument Sections = Doc.Sections.Count For x = Sections - 1 To 1 Step -1 Doc.Sections(x).Range.Copy Documents.Add ActiveDocument.Range.Paste ActiveDocument.SaveAs (Doc.Path & "\" & x & ".doc") ActiveDocument.Close False Next x Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Upvote 0 T
tueyennhi
Thành viên tích cực
Tham gia 18/10/10 Bài viết 1,192 Được thích 105Hau151978 đã viết: Mình chôm được code này trong VBA express, dùng với Word 2003. Sau khi dùng chức năng merge to new document, bạn lưu file mới lại rồi copy đoạn code vào module của file mới và chạy nó. Mã:Sao chép. Option Explicit Sub AllSectionsToSubDoc() Dim x As Long Dim Sections As Long Dim Doc As Document Application.ScreenUpdating = False Application.DisplayAlerts = False Set Doc = ActiveDocument Sections = Doc.Sections.Count For x = Sections - 1 To 1 Step -1 Doc.Sections(x).Range.Copy Documents.Add ActiveDocument.Range.Paste ActiveDocument.SaveAs (Doc.Path & "\" & x & ".doc") ActiveDocument.Close False Next x Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Nhấp chuột vào đây để mở rộng...Tuyệt vời ông mặt trời, cảm ơn bác nhé. Upvote 0 T
tueyennhi
Thành viên tích cực
Tham gia 18/10/10 Bài viết 1,192 Được thích 105 Có một thực tế là nó không giữ nguyên toàn bộ định dạng Upvote 0huuthang_bd
Chuyên gia GPE
Tham gia 10/9/08 Bài viết 8,921 Được thích 11,293 Donate (Momo) Giới tính Nam Nghề nghiệp Thợ đụngtueyennhi đã viết: Có một thực tế là nó không giữ nguyên toàn bộ định dạng Nhấp chuột vào đây để mở rộng...Sau khi thiết lập xong Mail Merge, bạn thử dùng code sau để xuất file. PHP:Sao chép. 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 Upvote 0 T
tueyennhi
Thành viên tích cực
Tham gia 18/10/10 Bài viết 1,192 Được thích 105huuthang_bd đã viết: Sau khi thiết lập xong Mail Merge, bạn thử dùng code sau để xuất file. PHP:Sao chép. 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 Nhấp chuột vào đây để mở rộng...VBA trong word còn hạn hẹp quá mặc dù em nghĩ với những yêu cầu này không đòi hỏi gì cao cả. Code này xuất file nhưng không như em mong muốn. Nó xuất thành nhiều file thật nhưng các file ấy đều giống file tổng, nó giống như là file tổng copy ra vậy. Lần chỉnh sửa cuối: 11/3/16 Upvote 0
huuthang_bd
Chuyên gia GPE
Tham gia 10/9/08 Bài viết 8,921 Được thích 11,293 Donate (Momo) Giới tính Nam Nghề nghiệp Thợ đụngtueyennhi đã viết: VBA trong word còn hạn hẹp quá mặc dù em nghĩ với những yêu cầu này không đòi hỏi gì cao cả. Nhấp chuột vào đây để mở rộng...VBA trong word còn hạn hẹp quá nghĩa là sao bạn? VBA trong word có đầy đủ, vấn đề là bạn có biết sử dụng hay không mà thôi.
tueyennhi đã viết: Nó xuất thành nhiều file thật nhưng các file ấy đều giống file tổng, nó giống như là file tổng copy ra vậy. Nhấp chuột vào đây để mở rộng...Bạn đã 'Insert Merge Field' chưa? Uống lưỡi bảy lần... Upvote 0 T
tueyennhi
Thành viên tích cực
Tham gia 18/10/10 Bài viết 1,192 Được thích 105 Em Insert rồi anh nhưng lắp code nhầm file. Được rồi anh ạ, cảm ơn anh nhé. Em nói hạn hẹp là ở mức trao đổi kiến thức trên forum còn rất ít. Có chăng thì toàn topic từ rất lâu rồi và nội dung cũng không phong phú. Giá như trên diễn đàn có anh chị nào hiểu và xây dựng một bài cơ bản VBA trong word thì hay quá. Upvote 0huuthang_bd
Chuyên gia GPE
Tham gia 10/9/08 Bài viết 8,921 Được thích 11,293 Donate (Momo) Giới tính Nam Nghề nghiệp Thợ đụngtueyennhi đã viết: Em Insert rồi anh nhưng lắp code nhầm file. Được rồi anh ạ, cảm ơn anh nhé. Em nói hạn hẹp là ở mức trao đổi kiến thức trên forum còn rất ít. Có chăng thì toàn topic từ rất lâu rồi và nội dung cũng không phong phú. Giá như trên diễn đàn có anh chị nào hiểu và xây dựng một bài cơ bản VBA trong word thì hay quá. Nhấp chuột vào đây để mở rộng...Có cầu thì mới có cung. Có người hỏi mới có người trả lời. Nếu có nhiều người hỏi thì tự nhiên nội dung sẽ phong phú hơn. Không ai rảnh để mà tự đặt vấn đề rồi tự giải quyết vấn đề mà quan trọng nhất là chưa biết có ai cần hay không. Upvote 0 T
thuonghieuso
Thành viên mới
Tham gia 21/6/11 Bài viết 1 Được thích 0 Cho mình hỏi: Có cách nào tìm kiếm và thay thế theo điều kiện nào đó không? Ví dụ: <1> Bước 1 <2> Bước 2 <> Để phân biệt Dòng 1 và dòng 2 dựa vào ký tự ở cuối câu. Mình muốn thay thế <1> ở dòng 1 thành =1 <2> thành =2 thì phải làm như thế nào? Upvote 0 Bbabyheomoi
Thành viên thường trực
Tham gia 22/9/13 Bài viết 396 Được thích 91huuthang_bd đã viết: Có cầu thì mới có cung. Có người hỏi mới có người trả lời. Nếu có nhiều người hỏi thì tự nhiên nội dung sẽ phong phú hơn. Không ai rảnh để mà tự đặt vấn đề rồi tự giải quyết vấn đề mà quan trọng nhất là chưa biết có ai cần hay không. Nhấp chuột vào đây để mở rộng...Câu này rất hay nè, có cầu mới có cung. Xưa nay thấy ít ai xài vba cho word nhưng không phải không có, bản thân mình cũng dùng vba word cho các việc đơn giản như : auto save as, auto print chứ thực sự chưa biết sẽ ứng dụng nhiều vào cái gì. Vậy ai hãy bắt đầu những topic mới về vba word để vba thêm phong phú trong word cho người Việt chứ không chỉ ở excel. Như ở forum mr ecel, mình thẩy cả word, outlook, autocard, access nữa cơ! Upvote 0
huuthang_bd
Chuyên gia GPE
Tham gia 10/9/08 Bài viết 8,921 Được thích 11,293 Donate (Momo) Giới tính Nam Nghề nghiệp Thợ đụngbabyheomoi đã viết: Câu này rất hay nè, có cầu mới có cung. Xưa nay thấy ít ai xài vba cho word nhưng không phải không có, bản thân mình cũng dùng vba word cho các việc đơn giản như : auto save as, auto print chứ thực sự chưa biết sẽ ứng dụng nhiều vào cái gì. Vậy ai hãy bắt đầu những topic mới về vba word để vba thêm phong phú trong word cho người Việt chứ không chỉ ở excel. Như ở forum mr ecel, mình thẩy cả word, outlook, autocard, access nữa cơ! Nhấp chuột vào đây để mở rộng...Tôi cũng xài nè Upvote 0 V
VetMini
Ăn cùng góc phố
Tham gia 21/12/12 Bài viết 17,664 Được thích 24,479babyheomoi đã viết: ... Vậy ai hãy bắt đầu những topic mới về vba word để vba thêm phong phú trong word cho người Việt chứ không chỉ ở excel. Như ở forum mr ecel, mình thẩy cả word, outlook, autocard, access nữa cơ! Nhấp chuột vào đây để mở rộng...Muốn code thì ít nhất phải biết qua cơ cấu của Word. Ở đây có mấy người biết? Điển hình, cái Styles trong Word nó có bao nhiêu chức năng chính? Và cái anchor của nó nằm ở đâu trong câu? 10 ngừoi mở Word ra có đến 9 chỉ biết gõ văn bản xong rồi dùng chuột kéo tới kéo lui, đề co này nọ. Một chút khái niệm về câu cú chương dòng còn không có. Upvote 0
bigbabol89
Thành viên thường trực
Tham gia 15/10/12 Bài viết 225 Được thích 34huuthang_bd đã viết: Sau khi thiết lập xong Mail Merge, bạn thử dùng code sau để xuất file. PHP:Sao chép. 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 Nhấp chuột vào đây để mở rộng...Anh cho em hỏi, em muốn đặt tên file khác nhau theo list có sẵn trong excel có được không ạ. Ví dụ : tương ứng với mỗi document merge sẽ tương ứng với 1 tên file ở cột A chẳng hạn ( cột này là 1 merged field ) Em cám ơn Lần chỉnh sửa cuối: 5/1/19 Upvote 0
huuthang_bd
Chuyên gia GPE
Tham gia 10/9/08 Bài viết 8,921 Được thích 11,293 Donate (Momo) Giới tính Nam Nghề nghiệp Thợ đụngbigbabol89 đã viết: Anh cho em hỏi, em muốn đặt tên file khác nhau theo list có sẵn trong excel có được không ạ. Ví dụ : tương ứng với mỗi document merge sẽ tương ứng với 1 tên file ở cột A chẳng hạn ( cột này là 1 merged field ) Em cám ơn Nhấp chuột vào đây để mở rộng...Câu trả lời là được nhưng bây giờ tôi không có thời gian làm cho bạn. Cách đơn giản nhất là đặt bookmark tại trường muốn đặt tên, trong code khi lưu file kết quả thì lấy giá trị tại bookmark này. Muốn tổng quát - cho chọn trường khi kết xuất - thì phức tạp hơn. Upvote 0
bigbabol89
Thành viên thường trực
Tham gia 15/10/12 Bài viết 225 Được thích 34huuthang_bd đã viết: Câu trả lời là được nhưng bây giờ tôi không có thời gian làm cho bạn. Cách đơn giản nhất là đặt bookmark tại trường muốn đặt tên, trong code khi lưu file kết quả thì lấy giá trị tại bookmark này. Muốn tổng quát - cho chọn trường khi kết xuất - thì phức tạp hơn. Nhấp chuột vào đây để mở rộng...Vâng, bao giờ rảnh anh giúp em sau cũng được a. Em cám ơn Upvote 0 B
babyheomoi
Thành viên thường trực
Tham gia 22/9/13 Bài viết 396 Được thích 91huuthang_bd đã viết: Tôi cũng xài nè Nhấp chuột vào đây để mở rộng...Bác cho em tham khảo các fill template addin word được không hả anh? Upvote 0
- 1
- 2
Go to page
Tiếp tục Tiếp Last 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
L Xin được giúp đỡ DÒ TÌM lấy danh sách tổng giá các đơn hàng- LINHCM
- Chủ nhật lúc 05:56
- Tìm kiếm, dò tìm và tham chiếu
- Cuong001
- Hôm nay lúc 09:28
- Hỏi đáp những vấn đề khác
- Lê Yên Trần
- Hôm nay lúc 09:10
- Giải thích, gỡ rối, xử lý lỗi công thức
- Đã giải quyết
- HeSanbi
- 2/6/23
- Lập Trình với Excel
- Huy@@*
- Hôm qua, lúc 09:05
- Những vấn đề chung
- tuyennhnobk
- Hôm qua, lúc 22:51
- Hàm và công thức Excel
- Question
- ductoan.0703
- Hôm qua, lúc 14:49
- Lập Trình với Excel
- Question
- bipbo2008
- Chủ nhật lúc 10:57
- Lập Trình với Excel
- AnhThu-1976
- Thứ bảy lúc 13:48
- Excel và các ngôn ngữ lập trình khác
- Question
- BuiQuangThuan
- Thứ hai lúc 14:29
- Lập Trình với Excel
- acrox84
- Chủ nhật lúc 10:48
- Xử lý chuỗi ký tự
- Question
- ongke0711
- 6/10/24
- Lập Trình với Excel
- papluoc
- 25/10/16
- Ứng dụng Quản trị cơ sở dữ liệu
- yeuketoan
- 20/4/10
- Định dạng, trình bày, in ấn bảng tính
- GPE-Trợ Lý
- 12/12/24
- Học tập Online
- NL04
- Thứ ba lúc 14:59
- Hỏi đáp những vấn đề khác
- dungdodac
- Thứ ba lúc 11:00
- Hỏi đáp những vấn đề khác
- songiang5011
- Thứ hai lúc 21:51
- Hàm và công thức Excel
- GPE-Trợ Lý
- 22/10/24
- Học tập Offline
- Đã khóa
- Tran hieu 92
- Chủ nhật lúc 10:23
- Hàm và công thức Excel
Đếm ngược thời gian
000 Ngày 00 Giờ 00 phút 00 giây [GPE] TALK SHOW EXCEL KẾT HỢP VỚI GOOGLE SHEETS: ỨNG DỤNG THỰC TẾ [GPE] TALK SHOW EXCEL KẾT HỢP VỚI GOOGLE SHEETS: ỨNG DỤNG THỰC TẾThành viên có số lượng bài viết cao nhất tháng
- Hoàng Tuấn 868 29
- HeSanbi 25
- LINHCM 23
- hoangtuaotrang_hp_vn 20
- qtm1987 17
- SA_DQ 16
- ongke0711 16
- huuthang_bd 16
- ptm0412 15
- HieuCD 14
- DeTong 13
- hoangminhtien 13
- hvnhpro 13
- HUONGHCKT 12
- Duy Tùng 9x 10
- BuiQuangThuan 10
- Nguyễn Duy Tuân 9
- GPE-Trợ Lý 9
- thuong-minh 7
- befaint 7
Thành viên có điểm tương tác cao nhất tháng
- HieuCD 40
- huuthang_bd 34
- Hoàng Tuấn 868 31
- hoangtuaotrang_hp_vn 27
- SA_DQ 24
- hoangminhtien 22
- HeSanbi 22
- HUONGHCKT 20
- GPE-Trợ Lý 20
- ptm0412 18
- DeTong 14
- ongke0711 13
- Phuocam 11
- Hai Lúa Miền Tây 11
- Nguyễn Duy Tuân 11
- befaint 11
- NT Ngoc Yen 10
- qtm1987 9
- Duy Tùng 9x 8
- Nhattanktnn 7
- Trang chủ
- Diễn đàn
- Lập Trình với Excel
- Lập Trình với Excel
- 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.…
Từ khóa » Sử Dụng Vba Trong Word 2010
-
Tạo Và Sử Dụng Các Macro Tự động Trong Word 2010
-
Macro Trong Word Là Gì? Cách Tạo, Sử Dụng Macro Trong Word
-
Lập Trình Vba Trong Word 2010 / TOP #10 Xem Nhiều Nhất & Mới ...
-
Hướng Dẫn Cách Khởi Tạo Và Sử Dụng Macro Trong Word - YouTube
-
Hướng Dẫn Chạy Macro (enable Macro) Trong Word 2010 - Thủ Thuật
-
Tạo Hoặc Chạy Macro - Microsoft Support
-
Cách Cài đặt Và Xóa Tệp Add-in VBA Dành Cho Microsoft Office
-
Tổng Hợp Những Kiến Thức Cơ Bản Và Nâng Cao Về Microsoft Word
-
Code VBA Sao Chép Bảng Tính Excel Sang Word Giữ định Dạng
-
Cách Sửa Lỗi Công Cụ VBA Bị ẩn Trên Excel Và Word
-
Cách Sử Dụng Macro Và VBA Trong Microsoft Excel
-
Tìm Hiểu VBA Và Macro Trong Word - Tài Liệu Text - 123doc
-
Hướng Dẫn Từng Bước Tạo Và Chạy Macro Trong Word Qua Ví Dụ
-
Hướng Dẫn Cách Thêm Thẻ Developer Trong Word đơn Giản Nhất
-
SỬ DỤNG VBA Tiếng Anh Là Gì - Trong Tiếng Anh Dịch
-
Hướng Dẫn Tạo Và Sử Dụng Macro Trong Microsoft Word
-
Cách Chạy Mã VBA Trong ứng Dụng Office 365
-
Hướng Dẫn Cách Lặp Lại Tiêu đề Trong Word Cho Bảng Biểu Và In ấn
-
Top 100 Mã Excel VBA Macros Hữu Dụng - Tân Đức ITS