✅ Ví dụ về Word Macro & Hướng dẫn VBA

Mục lục

VBA PDF (Tải xuống miễn phí)
Ví dụ về Word VBA “CheatSheet”
Hướng dẫn Macro Word VBA
Ví dụ Macro Word đơn giản
Đối tượng tài liệu Word
Các tài liệu
Phạm vi, Lựa chọn, Đoạn văn
Ví dụ về Word Macro

Chào mừng bạn đến với Word VBA / Macros Mega-Guide của chúng tôi!

Trang này chứa:

1. Hướng dẫn Word VBA PDF (Tải xuống miễn phí)
2. Word VBA “Cheat Sheet” chứa danh sách các đoạn mã Word VBA được sử dụng phổ biến nhất
3. Hướng dẫn Full Word VBA / Macro.
4. Danh sách có thể tìm kiếm của tất cả các Hướng dẫn Macro Word VBA của chúng tôi

Bạn cũng có thể quan tâm đến Hướng dẫn VBA tương tác cho Excel của chúng tôi. Mặc dù một số ví dụ / bài tập dành riêng cho Excel VBA, nhưng phần lớn nội dung là chung cho tất cả VBA và bạn có thể thấy hữu ích khi tìm hiểu các khái niệm như If Statements, Loops, MessageBoxes, v.v.

VBA PDF (Tải xuống miễn phí)

Tải xuống Hướng dẫn Microsoft Word VBA miễn phí của chúng tôi! Hoặc Hướng dẫn VBA cho các Chương trình Office khác!

Tải xuống

Ví dụ về Word VBA “CheatSheet”

Dưới đây, bạn sẽ tìm thấy các ví dụ mã VBA đơn giản để làm việc với Microsoft Word.

Chọn / Đi tới

Sự miêu tảMã VBABackspaceSelection.TypeBackspaceChọn Toàn bộ Tài liệuĐơn vị Selection.HomeKey: = wdStory
Lựa chọn. Mở rộngSao chépLựa chọn. Sao chépXóa bỏSelection.Delete Unit: = wdCharacter, Count: = 1Chèn sauSelection.InsertAfter “text”Bắt đầu dòngĐơn vị Selection.HomeKey: = wdLineKết thúc dòngĐơn vị Selection.EndKey: = wdLineDánLựa chọn.Chọn tất cảSelection.WholeStoryChọn Toàn bộ DòngĐơn vị Selection.EndKey: = wdLine, Extend: = wdExtendDi chuyển lên đoạnĐơn vị Selection.MoveUp: = wdParagraph, Count: = 1Di chuyển sang phải một ký tựĐơn vị Selection.MoveRight: = wdCharacter, Count: = 1Di chuyển sang phải một ô trong bảngĐơn vị Selection.MoveRight: = wdCellĐi tới Bắt đầu Tài liệuĐơn vị Selection.HomeKey: = wdStoryĐi đến cuối tài liệuĐơn vị Selection.EndKey: = wdStoryĐi tới Trang 1Selection.GoTo What: = wdGoToPage, which: = wdGoToNext, Name: = ”1 ″Bài viết trên cùng của trangSelection.GoTo What: = wdGoToBookmark, Tên: = ”\ Trang”
Selection.MoveLeft Unit: = wdCharacter, Count: = 1

Quay lại Lên trên

Dấu trang

Sự miêu tảMã VBAThêm vàoVới ActiveDocument.Bookmarks
.Add Range: = Selection.Range, Name: = ”Name”
.DefaultSorting = wdSortByName
.ShowHidden = Sai
Kết thúc vớiĐếmDim n dưới dạng Số nguyên
n = ActiveDocument.Bookmarks.CountXóa bỏActiveDocument.Bookmarks (“BookmarkName”). XóaTồn tại?Nếu ActiveDocument.Bookmarks.Exists (“BookmarkName”) = True thì
'Làm việc gì đó
Kết thúc nếuĐi đếnSelection.GoTo What: = wdGoToBookmark, Name: = ”BookmarkName”Lựa chọnActiveDocument.Bookmarks (“BookmarkName”). ChọnThay thế văn bảnSelection.GoTo What: = wdGoToBookmark, Name: = ”BookmarkName”
Selection.Delete Unit: = wdCharacter, Count: = 1
Selection.InsertAfter “Văn bản mới”
ActiveDocument.Bookmarks.Add Range: = Selection.Range, _
Tên: = ”BookmarkName”

Quay lại Lên trên

Tài liệu

Sự miêu tảMã VBAHoạt độngDocuments (“Example.doc”). Kích hoạtThêm vào biếnDim doc dưới dạng tài liệu
Đặt doc = Documents.AddThêm vàoDocuments.AddThêm (Từ một tài liệu khác)Documents.Add Template: = ”C: \ Forms \ FormDoc.doc”, _
NewTemplate: = SaiGầnDocuments (“Example.doc”). ĐóngĐóng - Lưu thay đổiDocuments (“Example.doc”). Đóng SaveChanges: = wdSaveChangesĐóng - Không lưuDocuments (“Example.doc”). Đóng SaveChanges: = wdDoNotSaveChangesĐóng - Nhắc lưuDocuments (“Example.doc”). Đóng SaveChanges: = wdPromptToSaveChanges

Quay lại Lên trên

Cột

Sự miêu tảMã VBALưu thànhDocuments (“Example.doc”). SaveAs (“C: \ Example \ Example.doc”)CứuDocuments (“Example.doc”). LưuBảo vệDocuments (“Example.doc”). Bảo vệ Mật khẩu: = ”mật khẩu”Bỏ bảo vệDocuments (“Example.doc”). UnProtect Password: = ”password”Số trangDim varNumberPages as Variant
varNumberPages = _
ActiveDocument.Content.Information (wdActiveEndAdjustedPageNumber)InTài liệu (“Example.doc”). In

Quay lại Lên trên

Bạn mệt mỏi với việc tìm kiếm ví dụ về mã VBA? Hãy thử AutoMacro!

Nét chữ

Sự miêu tảMã VBAKích thướcSelection.Font.Size = 12In đậmSelection.Font.Bold = TrueChữ in nghiêngSelection.Font.Italic = TrueGạch chânSelection.Font.Underline = wdUnderlineSingleTất cả các CapsSelection.Font.AllCaps = TrueMàu sắcSelection.Font.TextColor = vbRedTênSelection.Font.Name = “Abadi”Chỉ số dướiSelection.Font.Subscript = TrueSuperScriptSelection.Font.Superscript = TrueMàu nổi bậtSelection.Range.HighlightColorIndex = wdYellowPhong cáchSelection.Style = ActiveDocument.Styles (“Bình thường”)

Quay lại Lên trên

Chèn

Sự miêu tảMã VBAChèn Văn bản Tự độngVăn bản Selection.TypeText: = ”a3 ″
Selection.Range.InsertAutoTextChèn mã ngàyChèn tập tinSelection.InsertFile (“C: \ Docs \ Something.doc”)Chèn Ngắt trangSelection.InsertBreak Loại: = wdPageBreakChèn ký hiệu đoạn vănVăn bản Selection.TypeText: = Chr $ (182)Chèn tabVăn bản Selection.TypeText: = vbTabChèn văn bảnSelection.TypeText Text: = ”Bất kỳ văn bản nào”Chèn loại đoạn vănSelection.TypeParagraphChèn đoạn vănSelection.InsertParagraph

Quay lại Lên trên

Vòng lặp

Sự miêu tảMã VBALàm cho đến khi kết thúc tài liệuDo Until ActiveDocument.Bookmarks (“\ Sel”) = ActiveDocument.Bookmarks (“\ EndOfDoc”)
'Làm việc gì đó
PhụĐối với từng tài liệu trong tài liệuDim doc dưới dạng tài liệu
ForEach doc Trong Documents
'Làm việc gì đó
Tài liệu tiếp theoLặp qua các đoạnSub qua các đoạn
Dim i As Long, iParCount As Long
iParCount = ActiveDocument.Paragraphs.CountFori = 1 Tới iParCount
ActiveDocument.Paragraphs (i) .Alignment = wdAlignParagraphLeft
Tiếp theo tôi

Quay lại Lên trên

Đoạn văn

Sự miêu tảMã VBAKeepLinesTogetherSelection.ParagraphFormat.KeepTogether = ĐúngKeepWithNextSelection.ParagraphFormat.KeepWithNext = TrueDấu cách sauSelection.ParagraphFormat.SpaceAfter = 12Không gian trướcSelection.ParagraphFormat.SpaceBefore = 0Căn giữaSelection.ParagraphFormat.Alignment = wdAlignParagraphCenterSắp xếp đúngSelection.ParagraphFormat.Alignment = wdAlignParagraphRightCăn tráiSelection.ParagraphFormat.Alignment = wdAlignParagraphLeftThụt lề tráiSelection.ParagraphFormat.LeftIndent = InchesToPoints (3,75)Thụt lề phảiSelection.ParagraphFormat.RightIndent = InchesToPoints (1)Khoảng cách dòngWith Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 12
Kết thúc vớiLặp qua tất cả các đoạnSub qua các đoạn
Dim i As Long, iParCount As Long
iParCount = ActiveDocument.Paragraphs.CountFori = 1 Tới iParCount
ActiveDocument.Paragraphs (i) .Alignment = wdAlignParagraphLeft
Tiếp theo tôi

Quay lại Lên trên

Hướng dẫn Macro Word VBA

Đây là hướng dẫn sử dụng VBA với Microsoft Word. Hướng dẫn này sẽ dạy bạn cách viết một Macro đơn giản và tương tác với Tài liệu, Phạm vi, Lựa chọn và Đoạn văn.

Lưu ý: Nếu bạn chưa quen với Macro / VBA, bạn cũng có thể thấy bài viết này hữu ích: Cách viết Macro VBA từ Scratch.

VBA là ngôn ngữ lập trình được sử dụng để tự động hóa các chương trình Microsoft Office bao gồm Word, Excel, Outlook, PowerPoint và Access.

Macro là các khối mã VBA thực hiện các tác vụ cụ thể.

Khi bạn Ghi lại Macro, Word sẽ viết mã VBA vào Macro, cho phép bạn lặp lại các thao tác của mình. Bạn có thể xem danh sách tất cả các Macro có sẵn từ Xem> Macro.

Sau khi ghi Macro, bạn sẽ có thể chỉnh sửa Macro từ Danh sách Macro:

Khi bạn nhấp vào Chỉnh sửa, bạn mở Trình chỉnh sửa VBA. Sử dụng VBA Editor, bạn có thể chỉnh sửa Macro đã ghi hoặc viết Macro Word từ đầu. Để truy cập VBA Editor, hãy sử dụng phím tắt ALT + F11 hoặc bấm vào Ngôn ngữ lập trình từ Dải băng dành cho nhà phát triển.

Ví dụ Macro Word đơn giản

Đây là một ví dụ đơn giản về Macro Word VBA. Nó thực hiện các nhiệm vụ sau:

Mở tài liệu Word
Viết vào tài liệu
Đóng và lưu tài liệu Word.

123456789101112131415

Sub WordMacroExample ()'Mở tài liệu và gán cho biếnDim oDoc As DocumentĐặt oDoc = Documents.Open ("c: \ Users \ ai đó \ NewDocument.docx")'Viết vào tài liệuSelection.TypeText "www.automateexcel.com"Selection.TypeParagraph'Lưu và đóng tài liệuoDoc.SaveoDoc.CloseKết thúc Sub

Khái niệm cơ bản về Word Macro

Tất cả mã VBA phải được lưu trữ trong các thủ tục như thế này. Để tạo một thủ tục trong VBA, hãy nhập “Sub WordMacroExample” (Trong đó “WordMacroExample” là tên Macro mong muốn của bạn) và nhấn ĐI VÀO. VBA sẽ tự động thêm dấu ngoặc đơn và End Sub.

Đối tượng tài liệu Word

Khi tương tác với Microsoft Word trong VBA, bạn sẽ thường xuyên tham chiếu đến “Đối tượng” của Word. Các đối tượng phổ biến nhất là:

Đối tượng ứng dụng - Bản thân Microsoft Word

Đối tượng tài liệu - Một tài liệu Word

Đối tượng phạm vi - Một phần của tài liệu Word

Đối tượng lựa chọn - Một dải ô hoặc vị trí con trỏ đã chọn.

Ứng dụng

Ứng dụng là đối tượng "cấp cao nhất". Tất cả các đối tượng khác trong Word đều có thể được tiếp cận thông qua nó.

Ngoài việc truy cập các đối tượng Word khác, có các cài đặt “cấp ứng dụng” có thể được áp dụng:

1	Application.Options.AllowDragAndDrop = True

Đây là một ví dụ về việc truy cập “Lựa chọn” của “Windows (1)” với trong Ứng dụng:

1	Application.Windows (1) .Selection.Characters.Count

Tuy nhiên, các đối tượng Word phổ biến nhất có thể được truy cập trực tiếp mà không cần nhập cấu trúc phân cấp đầy đủ. Vì vậy, thay vào đó, bạn có thể (và nên) chỉ cần nhập:

1	Lựa chọn.Characters.Count

Các tài liệu

ActiveDocument

Thông thường, bạn sẽ có hai hoặc nhiều tài liệu được mở trong Word và bạn sẽ cần chỉ định Tài liệu Word cụ thể nào để tương tác. Một cách để chỉ định tài liệu nào được sử dụng ActiveDocument. Ví dụ:

1	ActiveDocument.PrintOut

… Sẽ in ActiveDocument. ActiveDocument là tài liệu trong Word "có tiêu điểm"

Để chuyển đổi ActiveDocument, hãy sử dụng lệnh Kích hoạt:

1	Documents ("Example.docx"). Kích hoạt

Tài liệu này

Thay vì sử dụng ActiveDocument để tham chiếu tài liệu hiện hoạt, bạn có thể sử dụng ThisDocument để tham chiếu tài liệu nơi macro được lưu trữ. Tài liệu này sẽ không bao giờ thay đổi.

1	ThisDocument.PrintOut

Biến tài liệu

Tuy nhiên, đối với các macro phức tạp hơn, có thể khó theo dõi Tài liệu Hoạt động. Việc chuyển đổi qua lại giữa các tài liệu cũng có thể gây khó chịu.

Thay vào đó, bạn có thể sử dụng biến Tài liệu.

Macro này sẽ gán ActiveDocument cho một biến và sau đó in tài liệu bằng cách sử dụng biến:

12345

Sub VarExample ()Dim oDoc As DocumentĐặt oDoc = ActiveDocumentoDoc.PrintOutKết thúc Sub

Phương pháp tài liệu

Mở tài liệu

Để mở tài liệu Word:

1	Documents.Open "c: \ Users \ SomeOne \ Desktop \ Test PM.docx"

Chúng tôi khuyên bạn nên luôn gán Tài liệu cho một biến khi mở nó:

12	Làm mờ oDoc dưới dạng Tài liệuĐặt oDoc = Documents.Open ("c: \ Users \ SomeOne \ Desktop \ Test PM.docx")

Tạo tài liệu mới

Để tạo một Tài liệu Word mới:

1	Documents.Add

Chúng tôi có thể hướng dẫn Word tạo một tài liệu mới dựa trên một số mẫu:

1	Documents.Add Template: = "C: \ Program Files \ Microsoft Office \ Templates \ MyTemplate.dotx"

Như mọi khi, sẽ rất hữu ích và là trình tiết kiệm vấn đề lớn khi gán tài liệu cho biến khi tạo hoặc mở:

12	Làm mờ oDoc dưới dạng Tài liệuĐặt oDoc = Documents.Add (Mẫu: = "C: \ Program Files \ Microsoft Office \ Templates \ MyTemplate.dotx")

Lưu tài liệu

Để lưu tài liệu:

1	ActiveDocument.Save

hoặc SaveAs:

1	ActiveDocument.SaveAs FileName: = c: \ Users \ SomeOne \ Desktop \ test2.docx ", FileFormat: = wdFormatDocument

Đóng tài liệu

Để đóng Tài liệu và lưu các thay đổi:

1	ActiveDocument.Close wdSaveChanges

hoặc không lưu các thay đổi:

1	ActiveDocument.Close wdDoNotSaveChanges

In tài liệu

Thao tác này sẽ in Tài liệu đang hoạt động:

1	ActiveDocument.PrintOut

Phạm vi, Lựa chọn, Đoạn văn

Phạm vi và Lựa chọn có lẽ là những đối tượng quan trọng nhất trong Word VBA, chắc chắn được sử dụng nhiều nhất.

Phạm vi đề cập đến một số phần của tài liệu, thường, nhưng không nhất thiết, là văn bản.

Lựa chọn đề cập đến văn bản đã chọn (hoặc đối tượng khác như ảnh) hoặc, nếu không có gì được chọn, là điểm chèn.

Đoạn văn đại diện cho các đoạn văn trong tài liệu. Nó kém quan trọng hơn so với âm thanh, bởi vì bạn không thể truy cập trực tiếp vào văn bản đoạn văn (bạn cần truy cập vào phạm vi đoạn văn cụ thể để thực hiện sửa đổi).

Phạm vi

Phạm vi có thể là bất kỳ phần nào của tài liệu, bao gồm toàn bộ tài liệu:

12	Dim oRange As RangeĐặt oRange = ActiveDocument.Content

hoặc nó có thể nhỏ như một ký tự.

Một ví dụ khác, phạm vi này sẽ tham chiếu đến từ đầu tiên trong tài liệu:

12	Dim oRange As RangeĐặt oRange = ActiveDocument.Range.Words (1)

Thông thường, bạn muốn lấy phạm vi đề cập đến phần cụ thể của tài liệu và sau đó sửa đổi nó.

Trong ví dụ sau, chúng ta sẽ in đậm từ đầu tiên của đoạn thứ hai:

123	Dim oRange As RangeĐặt oRange = ActiveDocument.Paragraphs (2) .Range.Words (1)oRange.Bold = Đúng

Đặt văn bản phạm vi

Để đặt giá trị văn bản của một Phạm vi:

123	Dim oRange As RangeĐặt oRange = ActiveDocument.Paragraphs (2) .Range.Words (1)oRange.Text = “Xin chào”

(Mẹo: Lưu ý dấu cách sau “Xin chào”. Vì đối tượng từ bao gồm dấu cách sau từ, chỉ với “xin chào”, chúng tôi sẽ nhận được “Từ tiếp theo xin chào”)

Có hàng trăm điều bạn có thể làm với phạm vi. Chỉ là một vài ví dụ (những ví dụ này giả sử bạn đã được tạo biến đối tượng quả cam đề cập đến phạm vi quan tâm):

Thay đổi phông chữ

1	oRange.Font.Name = "Arial"

Hiển thị trong hộp tin nhắn số ký tự trong phạm vi cụ thể

1	MsgBox oRange.Characters.Count

Chèn một số văn bản trước nó

1	oRange.InsertBefore "đây là văn bản được chèn"

Thêm chú thích cuối trang vào phạm vi

12	ActiveDocument.Footnotes.Add Range: = oRange, _Text: = "Đọc thêm tại easyexcel.net."

Sao chép nó vào khay nhớ tạm

1234	oRange.CopyThường thì bạn cần phải thay đổi những gì là giới thiệu phạm vi cụ thể. Vì vậy, bạn có thể bắt đầu, bắt đầu và kết thúcoRange.Start = 5oRange.End = 50

Sau đoạn mã trên, oRange sẽ tham chiếu đến văn bản bắt đầu bằng ký tự thứ năm và kết thúc bằng ký tự thứ 50 trong tài liệu.

Lựa chọn

Lựa chọn thậm chí còn được sử dụng rộng rãi hơn Phạm vi, vì nó dễ làm việc hơn với Lựa chọn hơn Các dãy, NẾU macro của bạn CHỈ tương tác với ActiveDocument.

Đầu tiên hãy chọn phần mong muốn của tài liệu của bạn. Ví dụ: chọn đoạn thứ hai trong tài liệu đang hoạt động:

1	ActiveDocument.Paragraphs (2) .Range.Select

Sau đó, bạn có thể sử dụng Đối tượng Lựa chọn để nhập một số văn bản:

1	Selection.TypeText "Một số văn bản"

Chúng ta có thể gõ một số đoạn văn bên dưới "Một số văn bản":

12	Selection.TypeText "Một số văn bản"Selection.TypeParagraph

Thông thường, cần biết nếu một số văn bản được chọn hay chúng ta chỉ có một điểm chèn:

12345

If Selection.Type wdSelectionIP thenSelection.Font.Bold = TrueKhácMsgBox "Bạn cần chọn một số văn bản."Kết thúc nếu

Khi làm việc với đối tượng Selection, chúng ta muốn đặt điểm chèn vào vị trí cụ thể và ra lệnh bắt đầu từ điểm này.

Bắt đầu tài liệu:

1	Đơn vị Selection.HomeKey: = wdStory, Extend: = wdMove

Bắt đầu dòng hiện tại:

1	Đơn vị Selection.HomeKey: = wdLine, Extend: = wdMove

Tham số Mở rộng wdMove di chuyển điểm chèn. Thay vào đó, bạn có thể sử dụng wdExtend sẽ chọn tất cả văn bản giữa điểm chèn hiện tại.

1	Đơn vị Selection.HomeKey: = wdLine, Extend: = wdExtend

Di chuyển lựa chọn

Phương pháp hữu ích nhất để thay đổi vị trí của điểm chèn là Di chuyển. Để di chuyển Lựa chọn về phía trước hai ký tự:

1	Selection.Move Unit: = wdCharacter, Count: = 2

để di chuyển nó về phía sau, hãy sử dụng số âm cho tham số Đếm:

1	Selection.Move Unit: = wdCharacter, Count: = - 2

Tham số đơn vị có thể là wdCharacter, wdWord, wdLine, hoặc hơn thế nữa (sử dụng trợ giúp Word VBA để xem những thứ khác).

Để chuyển từ thay vào đó:

1	Đơn vị Selection.Move: = wdWord, Count: = 2

Lựa chọn dễ làm việc hơn (so với phạm vi) vì nó giống như rô bốt sử dụng Word, bắt chước người dùng. Điểm chèn ở đâu - một số hành động sẽ diễn ra. Nhưng, điều này có nghĩa là bạn phải quan tâm đến điểm chèn ở đâu! Điều này không dễ dàng sau nhiều bước mã. Nếu không, Word sẽ thay đổi văn bản ở vị trí không mong muốn.

Trong trường hợp bạn cần một số thuộc tính hoặc phương thức không có sẵn trong đối tượng Lựa chọn, bạn luôn có thể dễ dàng lấy được phạm vi liên quan đến lựa chọn:

1	Đặt oRange = Selection.Range

MẸO: Sử dụng Lựa chọn thường dễ dàng hơn so với sử dụng phạm vi, nhưng cũng chậm hơn (quan trọng khi bạn xử lý các tài liệu lớn)

Đoạn văn

Bạn không thể sử dụng trực tiếp đối tượng Đoạn văn để thay đổi văn bản:

1	ActiveDocument.Paragraphs (1) .Text = "Không, nó sẽ không hoạt động"

Ở trên sẽ không hoạt động (thực sự nó sẽ gây ra lỗi). Trước tiên, bạn cần lấy dải ô được liên kết với đoạn văn cụ thể:

1	ActiveDocument.Paragraphs (1) .Range.Text = "Nó hoạt động ngay bây giờ :)"

Nhưng bạn có thể trực tiếp thay đổi kiểu của nó:

1	ActiveDocument.Paragraphs (1) .Style = "Bình thường"

hoặc thay đổi định dạng cấp độ đoạn văn của nó:

1	ActiveDocument.Paragraphs (1) .LeftIndent = 10

hoặc có thể bạn muốn giữ đoạn văn này trên cùng một dòng với đoạn tiếp theo:

1	ActiveDocument.Paragraphs (1) .KeepWithNext = True

Làm cho đoạn văn được căn giữa:

1	ActiveDocument.Paragraphs (1) .Alignment = wdAlignParagraphCenter

RẤT hữu ích khi gán một đoạn cụ thể cho biến đối tượng. Nếu chúng tôi gán một đoạn cụ thể cho biến, chúng tôi không phải lo lắng liệu đoạn đầu tiên có trở thành đoạn thứ hai hay không vì chúng tôi đã chèn một đoạn trước nó:

12	dim oPara dưới dạng Đoạn vănĐặt oPara = Selection.Paragraphs (1) ‘ở đây chúng tôi gán đoạn đầu tiên của lựa chọn hiện tại cho biến

Đây là một ví dụ trong đó chúng tôi chèn một đoạn bên trên đoạn đầu tiên, nhưng chúng tôi vẫn có thể tham chiếu đoạn đầu tiên cũ vì nó đã được gán cho một biến:

1234567

Đoạn văn conVí dụ ()Dim oPara As ParagraphĐặt oPara = ActiveDocument.Paragraphs (1)MsgBox oPara.Range.TextoPara.Range.InsertParagraphBefore 'Chèn đoạn vănMsgBox oPara.Range.TextKết thúc Sub

Đối tượng đoạn văn rất thường được sử dụng trong các vòng lặp:

123456789101112

Sub LoopThroughParagraphs ()Dim oPara As ParagraphĐối với mỗi oPara trong ActiveDocument.Paragraphs'làm điều gì đó với nó. Chúng tôi sẽ chỉ hiển thị'đoạn văn bản nếu kiểu của nó là "Tiêu đề 4"If oPara.Style = "Heading 4" ThenMsgBox oPara.Range.TextKết thúc nếuOPara tiếp theoKết thúc Sub

Kết luận Hướng dẫn Word VBA

Hướng dẫn này bao gồm những kiến thức cơ bản về Word VBA. Nếu bạn chưa quen với VBA, bạn cũng nên xem lại Hướng dẫn VBA chung của chúng tôi để tìm hiểu thêm về Biến, Vòng lặp, Hộp thư, Cài đặt, Logic có điều kiện và hơn thế nữa.