Ví dụ vĩ mô VBA để chèn văn bản vào một tài liệu trong Word 2000

QUAN TRỌNG: Bài viết này được dịch bằng phần mềm dịch máy của Microsoft chứ không phải do con người dịch. Microsoft cung cấp các bài viết do con người dịch và cả các bài viết do máy dịch để bạn có thể truy cập vào tất cả các bài viết trong Cơ sở Kiến thức của chúng tôi bằng ngôn ngữ của bạn. Tuy nhiên, bài viết do máy dịch không phải lúc nào cũng hoàn hảo. Loại bài viết này có thể chứa các sai sót về từ vựng, cú pháp hoặc ngữ pháp, giống như một người nước ngoài có thể mắc sai sót khi nói ngôn ngữ của bạn. Microsoft không chịu trách nhiệm về bất kỳ sự thiếu chính xác, sai sót hoặc thiệt hại nào do việc dịch sai nội dung hoặc do hoạt động sử dụng của khách hàng gây ra. Microsoft cũng thường xuyên cập nhật phần mềm dịch máy này.

Nhấp chuột vào đây để xem bản tiếng Anh của bài viết này:212682
Bài viết này đã được lưu trữ. Bài viết được cung cấp "nguyên trạng" và sẽ không còn được cập nhật nữa.
Một phiên bản Microsoft Word 98 Macintosh Edition của bài viết này, xem các 183866.
Một phiên bản Microsoft Word 97 của bài viết này, xem các 161407.
TÓM TẮT
Bài viết này cung cấp một số Visual Basic cho các ứng dụng ví dụ vĩ môdùng các Lựa chọn bất động sản và các Phạm vi đối tượng để chèn văn bản vào mộttài liệu.
THÔNG TIN THÊM
Microsoft cung cấp lập trình ví dụ để minh hoạ chỉ, không có bảo hành hoặc thể hiện hay ngụ ý. Điều này bao gồm, nhưng không giới hạn, bảo đảm ngụ ý khả năng bán hàng hoặc cho một mục đích cụ thể. Bài viết này giả định rằng bạn đã quen thuộc với ngôn ngữ lập trình mà đang được chứng minh và với những công cụ được sử dụng để tạo ra và gỡ lỗi thủ tục. Microsoft hỗ trợ các kỹ sư có thể giúp giải thích các chức năng của một thủ tục cụ thể, nhưng họ sẽ không sửa đổi các ví dụ để cung cấp thêm chức năng hoặc xây dựng quy trình để đáp ứng các yêu cầu cụ thể của bạn.

Sử dụng lựa chọn đối tượng và phương pháp TypeText

Chèn văn bản đã chỉ rõ. Nếu ReplaceSelection bất động sản là Sự thật, cáclựa chọn được thay thế bằng văn bản đã chỉ rõ. Nếu ReplaceSelection bất động sảnlà Sai, các văn bản đã chỉ rõ chèn trước khi lựa chọn.

Để biết thêm thông tin về bất động sản ReplaceSelection, trong Visual Basic Editor, bấm vào Trợ giúp Microsoft Visual Basic trên các Trợ giúp trình đơn, loại Bất động sản ReplaceSelection trong trợ lý văn phòng hoặc thuật sĩ trả lời, và sau đó bấm Tìm kiếm để xem các chủ đề.
Sub TypeTextMethod()  Dim MyText As String  MyText = "<Replace this with your text>"  Selection.TypeText (MyText)End Sub				

Bằng cách sử dụng các đối tượng phạm vi

Ví dụ sau thay thế toàn bộ nội dung của một tài liệu với cáclời "Replaced" bất kể vị trí hiện tại của điểm chèn.

Sub RangeProperty()  ' Range Example:  ActiveDocument.Range.Text = "Replaced"End Sub				

Sử dụng phạm vi hoặc lựa chọn đối tượng với phương pháp InsertAfter/InsertBefore

InsertAfter phương pháp ví dụ:

Chèn văn bản đã chỉ ra ở phần cuối của một phạm vi hoặc lựa chọn.
Sub InsertAfterMethod()  Dim MyText As String  Dim MyRange As Object  Set MyRange = ActiveDocument.Range  MyText = "<Replace this with your text>"  ' Selection Example:  Selection.InsertAfter (MyText)  ' Range Example:  ' (Inserts text at the current position of the insertion point.)  MyRange.Collapse  MyRange.InsertAfter (MyText)End Sub				
InsertBefore phương pháp ví dụ:

Chèn văn bản đã chỉ định tại đầu của một loạt hoặc lựa chọn. Sau khiphương pháp này được áp dụng, phạm vi hoặc lựa chọn mở rộng để bao gồm các mớivăn bản.
Sub InsertBeforeMethod()   Dim MyText As String   Dim MyRange As Object   Set MyRange = ActiveDocument.Range   MyText = "<Replace this with your text>"   ' Selection Example:   Selection.InsertBefore (MyText)   ' Range Example: Inserts text at the beginning   ' of the active document.   MyRange.InsertBefore (MyText)End Sub				

Chèn một chú thích vào một tài liệu bằng cách sử dụng đối tượng phạm vi hoặc lựa chọn

Chèn một bình luận ở vị trí hiện tại của điểm chèn.
Sub CommentsCollectionObject()   Dim MyText As String   Dim MyRange As Object   Set MyRange = ActiveDocument.Range   MyText = "<Replace this with your text>"  ' Selection Example:  Selection.Comments.Add Range:=Selection.Range, Text:=MyText  ' Range Example:  MyRange.Comments.Add Range:=Selection.Range, Text:=MyTextEnd Sub				

Chèn một trường vào một tài liệu bằng cách sử dụng đối tượng phạm vi hoặc lựa chọn

Chèn một trường ở vị trí hiện tại của điểm chèn.
Sub FieldsCollectionObject()   Dim MyText As String   Dim MyRange As Object   Set MyRange = Selection.Range   MyText = "<Replace this with your text>"   ' Selection Example:   Selection.Fields.Add Range:=Selection.Range, _      Type:=wdFieldQuote, Text:=MyText   ' Range Example:    Range.Fields.Add Range:=Selection.Range, _      Type:=wdFieldQuote, Text:=MyTextEnd Sub				
Ví dụ này chèn một lĩnh vực công thức. Kết quả định dạng với một đồng đô ladấu hiệu.

Sub InsertFormulaMethod()   Selection.InsertFormula Formula:="=100,000.0-45,000.0", _      NumberFormat:="$#,##0.0"End Sub				

Sao chép các văn bản, bao gồm cả các định dạng, của một loạt các văn bản

Bất động sản này trả về một Phạm vi đối tượng với các ký tự định dạng và văn bản từ phạm vi quy định hoặc lựa chọn. Định dạng đoạn được bao gồm trong các đối tượng phạm vi nếu có một dấu đoạn trong phạm vi hoặc lựa chọn. Khi bạn thiết lập này bất động sản, các văn bản trong phạm vi được thay thế với định dạng văn bản. Nếu bạn không muốn thay thế văn bản hiện hành, sử dụng các Sụp đổ phương pháp trước khi sử dụng tài sản này.
Sub FormattedTextProperty()   ' This example copies the first paragraph in the document, including   ' its formatting, and inserts the formatted text at the insertion   ' point.   Selection.Collapse Direction:=wdCollapseStart   Selection.FormattedText = ActiveDocument.Paragraphs(1).RangeEnd Sub				

Đặt văn bản vào một đầu trang hay chân trang

LƯU Ý: The HeaderFooter bất động sản đòi hỏi rằng việc lựa chọn được đặt trong một đầu trang hay chân trang, hoặc lỗi sẽ xảy ra.
Sub HeaderFooterProperty()   Dim MyText As String   MyText = "<Replace this with your text>"   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader   Selection.HeaderFooter.Range.Text = "MyText"   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocumentEnd Sub				
Ví dụ sau thay đổi các văn bản của cả hai tiêu đề chính và cácchính chân cho phần đầu tiên của tài liệu hiện hoạt.
Sub HeaderFooterObject()  Dim MyText As String  MyHeaderText = "<Replace this with your text>"  MyFooterText = "<Replace this with your text>"  With ActiveDocument.Sections(1)    .Headers(wdHeaderFooterPrimary).Range.Text = MyHeaderText    .Footers(wdHeaderFooterPrimary).Range.Text = MyFooterText  End WithEnd Sub				

Bằng cách sử dụng đối tượng phạm vi hoặc lựa chọn để chèn một ngày bằng cách sử dụng lĩnh vực thời gian

Ví dụ này chèn một lĩnh vực thời gian cho ngày hiện tại. Một kết quả có thểcó thể "18 tháng 11 năm 1996."
Sub InsertDateTimeMethod()   Dim MyRange As Object   Set MyRange = Selection.Range   ' Selection Example:   Selection.InsertDateTime DateTimeFormat:="MMMM dd, yyyy", _   InsertAsField:=True   ' Range Example:   MyRange.InsertDateTime DateTimeFormat:="MMM dd, yyyy", _   InsertAsField:=TrueEnd Sub				

Bằng cách sử dụng đối tượng phạm vi hoặc lựa chọn để chèn một đoạn văn mới

Ví dụ này chèn một đoạn văn mới bên dưới vị trí hiện tại của điểm chèn.
Sub InsertParagraphMethod()   Dim MyRange As Object   Set MyRange = ActiveDocument.Range   ' Selection Example:   Selection.InsertParagraph   ' Range Example:   MyRange.Collapse Direction:=wdCollapseStart   MyRange.InsertParagraphEnd Sub				

Bằng cách sử dụng đối tượng phạm vi hoặc lựa chọn để chèn biểu tượng

Ví dụ này chèn một đôi đứng đầu mũi tên ở điểm chèn.
Sub InsertSymbolMethod()   Dim MyRange As Object   Set MyRange = ActiveDocument.Range   ' Selection Example:   Selection.InsertSymbol CharacterNumber:=171, _      Font:="Symbol", Unicode:=False   ' Range Example:   MyRange.Collapse Direction:=wdCollapseStart   MyRange.InsertSymbol CharacterNumber:=171, _      Font:="Symbol", Unicode:=FalseEnd Sub				

Bằng cách sử dụng đối tượng phạm vi hoặc lựa chọn để dán từ bảng tạm

Ví dụ này chèn văn bản được đặt trên bảng tạm vào vị trí hiện tại của điểm chèn.
Sub PasteMethod()   Dim MyRange As Object   Set MyRange = Selection.Range   ' Selection Example:   Selection.Paste   ' Range Example:   MyRange.Collapse Direction:=wdCollapseStart   MyRange.PasteEnd Sub				

Để biết thêm chi tiết về việc sử dụng các đối tượng phạm vi, trong Visual Basic Editor, nhấp vào Trợ giúp Microsoft Visual Basic trên các Trợ giúp trình đơn, loại Đối tượng phạm vi trong trợ lý văn phòng hoặc thuật sĩ trả lời, và sau đó bấm Tìm kiếm để xem các chủ đề.

Để biết thêm chi tiết về việc sử dụng lựa chọn đối tượng, trong Visual Basic Editor, nhấp vào Trợ giúp Microsoft Visual Basic trên các Trợ giúp trình đơn, loại Lựa chọn đối tượng trong trợ lý văn phòng hoặc thuật sĩ trả lời, và sau đó bấm Tìm kiếm để xem các chủ đề.

Để biết thêm chi tiết về cách sử dụng mẫu mã trong bài viết này, bấmsố bài viết dưới đây để xem bài viết trong cơ sở kiến thức Microsoft:
212536OFF2000: Làm thế nào để chạy mẫu mã từ bài viết cơ sở kiến thức
THAM KHẢO
Để biết thêm chi tiết về việc nhận trợ giúp với Visual Basic cho các ứng dụng, xin vui lòng xem bài viết sau trong cơ sở kiến thức Microsoft:
226118 OFF2000: Lập trình tài nguyên cho Visual Basic cho các ứng dụng
VB vba vbe

Cảnh báo: Bài viết này được dịch tự động

Thuộc tính

ID Bài viết: 212682 - Xem lại Lần cuối: 12/05/2015 12:05:19 - Bản sửa đổi: 3.0

Microsoft Word 2000 Standard Edition

  • kbnosurvey kbarchive kbdtacode kbhowto kbmacroexample kbprogramming kbmt KB212682 KbMtvi
Phản hồi