WD2000: 範例 Visual Basic 程式碼來插入區段]、 [頁面],] 及 [資料行線

文章翻譯 文章翻譯
文章編號: 218500 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

在此頁中

結論

這份文件包含巨集的程式碼範例,示範下列 WordBasic 陳述式或函式的使用:
  • 插入分節符號
  • 插入分頁符號
  • 插入分欄符號
為了說明下列的巨集範例,建立一份範例 Word 文件包含三個或多個段落的文字。 如需有關在 Word 建立範例文字的詳細資訊的文件,請按一下下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項件:
212251WD2000: 如何插入文件中的範例文字

其他相關資訊

Microsoft 僅,為了說明提供程式設計範例,不提供任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能,但它們不會修改這些範例以提供附加功能或建構程序,以符合您特定需求。
如需有關如何使用本文中的範例程式碼的詳細資訊,按一下 [下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項]:
212536OFF2000: 如何執行範例程式碼從眭舑恅梒

若要插入分節符號

使用下列的巨集範例來插入點位置插入本頁的分節符號:
Sub InsertContinuousBreak()
   Selection.InsertBreak Type:=wdSectionBreakContinuous
End Sub
				
使用下列的巨集範例來 Word 文件的第二個段落前後插入本頁的分節符號,然後再變更左邊界與右邊界新區段的:
Sub InsertContinuousBreaks()
    With ActiveDocument.Paragraphs(2).Range
        .Collapse direction:=wdCollapseEnd
        .InsertBreak Type:=wdSectionBreakContinuous
        
        With ActiveDocument.Paragraphs(2).Range
            .Collapse direction:=wdCollapseStart
            .InsertBreak Type:=wdSectionBreakContinuous
        End With
        
    ActiveDocument.Sections(2).PageSetup.LeftMargin = 180
    ActiveDocument.Sections(2).PageSetup.RightMargin = 180

    End With
End Sub
				

若要插入分頁符號

使用下列的巨集範例在插入點位置插入分頁符號:
Sub InsertPageBreak()
   Selection.InsertBreak Type:=wdPageBreak
End Sub
				
使用下列的巨集範例,以 Word 文件的第二段之後插入分頁符號:
Sub InsertPageBreak()
    With ActiveDocument.Paragraphs(2).Range
        .Collapse direction:=wdCollapseEnd
        .InsertBreak Type:=wdPageBreak
    End With
End Sub
				

若要插入分欄符號

使用下列的巨集範例來插入點位置插入分欄符號:
Sub InsertColumnBreak()
   Selection.InsertBreak Type:=wdPageBreak
End Sub
				
使用下列的巨集範例來格式化您的 Word 文件為三個資料行,然後在 Word 文件的第二個段落前後插入分欄符號。巨集然後離開第二個段落在文件的第二欄中:
Sub InsertColumnBreaks()

   If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
      ActiveWindow.Panes(2).Close
   End If
   If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
      ActiveWindow.ActivePane.View.Type = wdPrintView
   End If
   With ActiveDocument.PageSetup.TextColumns
      .SetCount NumColumns:=3
   End With

   With ActiveDocument.Paragraphs(2).Range
      .Collapse direction:=wdCollapseEnd
      .InsertBreak Type:=wdColumnBreak
        
      With ActiveDocument.Paragraphs(2).Range
         .Collapse direction:=wdCollapseStart
         .InsertBreak Type:=wdColumnBreak
      End With
        
   End With
End Sub
				

?考

如需有關 InsertBreak 方法在 Visual Basic 編輯器] 中,按一下 [說明] 功能表上的 [Microsoft Visual Basic 說明],並在 「 Office 小幫手 」 或 「 解答精靈 」 中輸入 insertbreak 再按一下 [搜尋] 以檢視主題。

屬性

文章編號: 218500 - 上次校閱: 2006年10月11日 - 版次: 3.2
這篇文章中的資訊適用於:
  • Microsoft Word 2000 Standard Edition
關鍵字:?
kbmt kbdtacode kbhowto kbmacroexample kbprogramming KB218500 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:218500
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com