使用VBA在MS Word文檔中添加頁面會添加額外的頁面

Question

我有MS Word文件，其宏在第一頁中有表格。 （表格使用標籤創建）。

但是，當表格中的單元格不足時，我想添加另一個頁面，並使用其中的類似表格。

所以我想代碼如下

ActiveDocument.Sections（1）.Range.Copy

ActiveDocument.Sections.Add.Range.Paste

但是這個代碼有些時候改變了首頁的格式。 並創建第三個空白頁面，第二個頁面的內容爲第一個。

任何機構都可以讓我知道如何添加只有第一頁相同內容的頁面， 而不會在第一頁中進行更改。

感謝

Answer 1

表將自動流入下一個頁面，你可以指定重複標題行也。

不過，假設你需要一個新的表...

你原來的問題需要作一些澄清（見下面的一些點），但看看下面的代碼敗壞你的格式：

Sub copytable1() 
Dim rtarget As Word.Range 
With ActiveDocument 
    Set rtarget = .Range(.Content.End - 1, .Content.End - 1) 
    rtarget.InsertBreak Type:=Word.WdBreakType.wdPageBreak 
    Set rtarget = .Range(.Content.End - 1, .Content.End - 1) 
    rtarget.FormattedText = .Tables(1).Range.FormattedText 
    Set rtarget = Nothing 
End With 
End Sub 

它假定這

• 你要複製的表是文檔
• 在第一個表，你只是想插入在文檔的末尾添加新頁面，然後插入表格的副本。如果您的文檔可能已經是多頁面的，那麼您將需要截然不同的代碼。

當創建可編輯的Word文檔，作爲「好習慣」，你可以使用一個段落樣式與「分頁符之前」屬性設置爲實現了突破，而不是硬分頁符，因爲我已經做了。

另外，

Sub copytable3() 
Dim rtarget As Word.Range 
With ActiveDocument 
    Set rtarget = .Range 
    rtarget.Collapse wdCollapseEnd 
    rtarget.InsertParagraphAfter 
    Set rtarget = .Range 
    rtarget.Collapse wdCollapseEnd 
    rtarget.ParagraphFormat.PageBreakBefore = True 
    Set rtarget = .Range 
    rtarget.Collapse wdCollapseEnd 
    rtarget.InsertParagraphAfter 
    Set rtarget = .Range 
    rtarget.Collapse wdCollapseEnd 
    rtarget.ParagraphFormat.PageBreakBefore = False 
    Set rtarget = .Range 
    rtarget.Collapse wdCollapseEnd 
    rtarget.Select 
    rtarget.FormattedText = .Tables(1).Range.FormattedText 
    Set rtarget = Nothing 
End With 
End Sub