TAILIEUCHUNG - Office VBA Macros You Can Use Today phần 6

, sau đó nhấp vào nút mới. Mẹo: Nếu bạn thực hiện một sai lầm, chỉ cần bắt đầu lại từ đầu. Ghi vĩ mô sẽ ghi đè lên các vĩ mô đầu tiên nếu bạn cho nó cùng vĩ mô tạo ra mã cho định dạng tất cả chín | Word Procedures Insert the data stringfl listfl Convert it to a tablefl Set tbl Separator sepChar NumColumns nrCols fl Restore the bookmark around the tablefl Range Name BookmarkNamefl FormatTable tblfl End Subfl fl Sub FormatTable tbl As fl Variable declarationfl Dim cel As Dim s As Stringfl Bold the header rowfl With 1 . Wrd .Bold Truefl .Underline wdUnderlineSinglefl End Withfl Center the last columnfl .Selectfl For Each cel In wdAlignParagraphCenterfl Next celfl Falsefl End Subfl fl Sub ActivateEvents fl Set End Subfl fl Sub DeactivateEvents fl Set MergeEvents Nothingfl End Subfl View the Appendix to learn how to store this procedure in a Class module. Option explicit fl Public WithEvents WdApp As Const sMergeMessage As String The merge process can take some time. _fl vbCr vbCr Word may pause and seem to hang while the charts update. _fl vbCr vbCr Please do NOT try to work _fl in Word until the finish message has been displayed fl Private rs As Office VBA Macros You Can Use Today page 211 Word Procedures Wrd Private Sub WdApp_MailMergeAfterMerge ByVal Doc As Document _fl ByVal DocResult As Document Release the datafl Set rs Nothingfl Delete the last table and restore the bookmarkfl If BookmarkName Thenfl Variable declarationfl Dim rng As Set rng BookmarkName .Rangefl If 0 Thenfl 1 .Deletefl End Iffl Range rng Name BookmarkNamefl End Iffl MsgBox Merge process has finished fl Display the merge result documentfl If Not DocResult Is Nothing Thenfl Falsefl End Iffl End Subfl fl Private Sub .

TỪ KHÓA LIÊN QUAN
TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.