文章編號: 212682 - 上次校閱: 2006年10月11日 - 版次: 3.2

若要將文字插入文件在 Word 2000 中的 VBA 巨集範例

中英文對照顯示按一下這裡顯示機器翻譯的中英文對照
機器翻譯檢視機器翻譯免責聲明
檢視此文章適用的產品。
系統提示本文適用於您使用的作業系統之外的作業系統。與您不相關的文章內容已停用。
本文章的有 Microsoft Word 98 Macintosh 版本] 版本請參閱 183866? (http://support.microsoft.com/kb/183866/ ) 。
本文章的有 Microsoft Word 97] 版本請參閱 161407? (http://support.microsoft.com/kb/161407/ ) 。

在此頁中

全部展開 | 全部摺疊

結論

本文提供數個 Visual Basic 應用程式巨集範例中，用來將文字插入文件的 選取範圍] 屬性和 Range 物件。
回此頁最上方

其他相關資訊

Microsoft 僅，為了說明提供程式設計範例，不提供任何明示或默示的保證。這包括，但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能，但它們不會修改這些範例以提供附加功能或建構程序，以符合您特定需求。
回此頁最上方

使用選取物件和類型文字方法

插入指定的文字。如果 ReplaceSelection 屬性為 True，由指定的文字取代選取範圍。如果 ReplaceSelection 屬性為 False，在選取範圍之前插入指定的文字。

如需有關 ReplaceSelection 屬性在 Visual Basic 編輯器] 中，按一下 [說明] 功能表上的 [Microsoft Visual Basic 說明]，並在 「 Office 小幫手 」 或 「 解答精靈 」 中輸入 ReplaceSelection 屬性 然後按一下 [搜尋] 以檢視主題。
Sub TypeTextMethod()
  Dim MyText As String
  MyText = "<Replace this with your text>"
  Selection.TypeText (MyText)
End Sub
回此頁最上方

使用 Range 物件

下列範例會將整個文件的內容取代字 Replaced"不論目前插入點的位置。

Sub RangeProperty()
  ' Range Example:
  ActiveDocument.Range.Text = "Replaced"
End Sub
回此頁最上方

使用範圍或選取範圍的物件具有 InsertAfter/InsertBefore 方法

InsertAfter 方法範例：

在範圍或選取範圍的結尾處插入指定的文字。
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 方法範例：

在範圍或選取範圍的開頭插入指定的文字。套用這個方法之後則範圍或選取範圍將展開以包含新文字。
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
回此頁最上方

使用範圍或選取範圍物件的文件中插入註解

插入點目前位置插入註解。
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:=MyText
End Sub
回此頁最上方

使用範圍或選取範圍物件的文件中插入一個欄位

將欄位插入插入點目前位置。
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:=MyText
End Sub
本範例插入公式的欄位。結果會設為加上錢幣正負號的數字。

Sub InsertFormulaMethod()
   Selection.InsertFormula Formula:="=100,000.0-45,000.0", _
      NumberFormat:="$#,##0.0"
End Sub
回此頁最上方

複寫包括文字範圍的格式文字

這個屬性會從指定的範圍或選取範圍，使用字元格式和文字傳回 Range 物件。如果範圍或選取範圍中的段落記號，是會 Range 物件中包含段落格式設定。當您將此屬性設定對範圍內的文字會取代格式化文字。如果您不想取代現有文字，請使用此屬性之前，請先使用 Collapse 方法。
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).Range
End Sub
回此頁最上方

將文字放入頁首或頁尾

注意： HeaderFooter 屬性所需的選取範圍是位在頁首或頁尾，內，或將發生錯誤。
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 = wdSeekMainDocument
End Sub
下列範例會變更主標頭和使用中文件的第一節主要頁尾的文字。
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 With
End Sub
回此頁最上方

使用範圍或選取範圍的物件，插入使用 [時間] 欄位的日期

本範例將目前的日期插入時間] 欄位。可能的結果是 「 1996年 11 月 18日"。
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:=True
End Sub
回此頁最上方

使用範圍或選取範圍的物件，插入新段落

本範例插入一個新的段落下方的插入點目前位置。
Sub InsertParagraphMethod()
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   ' Selection Example:
   Selection.InsertParagraph
   ' Range Example:
   MyRange.Collapse Direction:=wdCollapseStart
   MyRange.InsertParagraph
End Sub
回此頁最上方

使用範圍或選取範圍的物件，插入的符號

本範例在插入點處插入雙箭號。
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:=False
End Sub
回此頁最上方

使用範圍或選取範圍的物件，從剪貼簿貼上

本範例插入文字放在插入點目前位置剪貼簿上。
Sub PasteMethod()
   Dim MyRange As Object
   Set MyRange = Selection.Range
   ' Selection Example:
   Selection.Paste
   ' Range Example:
   MyRange.Collapse Direction:=wdCollapseStart
   MyRange.Paste
End Sub

如需有關使用 「 Visual Basic 編輯器] 中 [範圍] 物件的詳細資訊，請按一下 [說明] 功能表上的 [Microsoft Visual Basic 說明，並在 「 Office 小幫手 」 或 「 解答精靈 」 中輸入 Range 物件 然後按一下 [搜尋] 以檢視主題。

如需有關如何使用 [選取範圍] 物件在 Visual Basic 編輯器的詳細資訊，請按一下 [說明] 功能表上的 [Microsoft Visual Basic 說明，並在 「 Office 小幫手 」 或 「 解答精靈 」 中輸入 選取範圍物件 然後按一下 [搜尋] 以檢視主題。

如需有關如何使用本文中的範例程式碼的詳細資訊，按一下 [下面的文件編號，檢視 「 Microsoft 知識庫 」 中的發行項]：
212536? (http://support.microsoft.com/kb/212536/EN-US/ ) OFF2000： 如何執行範例程式碼從眭舑恅梒
回此頁最上方

?考

如需有關如何取得應用程式的說明與 Visual Basic 的詳細資訊，請參閱 「 Microsoft 知識庫 」 中下列文：
226118? (http://support.microsoft.com/kb/226118/EN-US/ ) OFF2000： 應用程式的 Visual Basic 程式設計資源
回此頁最上方
這篇文章中的資訊適用於:
  • Microsoft Word 2000 Standard Edition
回此頁最上方
關鍵字：?
kbmt kbdtacode kbhowto kbmacroexample kbprogramming KB212682 KbMtzh
回此頁最上方
機器翻譯機器翻譯
重要：本文是以 Microsoft 機器翻譯軟體翻譯而成，而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章，讓使用者可以依其使用語言使用知識庫中的所有文章。但是，機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤，就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本：212682? (http://support.microsoft.com/kb/212682/en-us/ )
回此頁最上方
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。