A4页面 想分割成15个小页面 3X5 准备打印装订‘手中本’，（随时背诵学习用的） 最好输入的时候可以看见表格 打印的时候不显表格 不知我说明白了没有？
ãã1ãå¨Wordéé¢æå¼é£ä¸ªéè¦åå²çææ¡£ï¼å设å®çæ件åå«åâåå§ææ¡£.docâï¼ï¼
ãã2ãé®å ¥ALT+F11æå¼VBAç¼è¾å¨ï¼éæ©èåâæå ¥-模åâï¼
ãã3ãç²è´´ä¸é¢ç代ç ï¼
Option Explicit
Sub SplitPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content
oRange.Collapse wdCollapseStart
oRange.Select
For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next
strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
Set oNewDoc = Documents.Add
Selection.Paste
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "ç»æï¼"
End Sub
ãã4ãé®å ¥F5è¿è¡ï¼çå°âå®æâç»æã
ãã5ãæ£æ¥å½åææ¡£æå¨è·¯å¾ä¸æ¯å¦çæè¥å¹²å为âåå§ææ¡£_n.docâï¼nä»£è¡¨å ¶å¯¹åºåå§ææ¡£ä¸ç第å 页ï¼çææ¡£ï¼æ£æ¥å®ä»¬çå 容æ¯å¦å°±å¯¹åºäºåå§ææ¡£æ¯ä¸ªé¡µé¢çå 容ã
ãã2ãé®å ¥ALT+F11æå¼VBAç¼è¾å¨ï¼éæ©èåâæå ¥-模åâï¼
ãã3ãç²è´´ä¸é¢ç代ç ï¼
Option Explicit
Sub SplitPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content
oRange.Collapse wdCollapseStart
oRange.Select
For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next
strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
Set oNewDoc = Documents.Add
Selection.Paste
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "ç»æï¼"
End Sub
ãã4ãé®å ¥F5è¿è¡ï¼çå°âå®æâç»æã
ãã5ãæ£æ¥å½åææ¡£æå¨è·¯å¾ä¸æ¯å¦çæè¥å¹²å为âåå§ææ¡£_n.docâï¼nä»£è¡¨å ¶å¯¹åºåå§ææ¡£ä¸ç第å 页ï¼çææ¡£ï¼æ£æ¥å®ä»¬çå 容æ¯å¦å°±å¯¹åºäºåå§ææ¡£æ¯ä¸ªé¡µé¢çå 容ã
温馨提示：答案为网友推荐，仅供参考
第1个回答 2012-04-13
可以插入文本框，把整个页面插入15个文本框就行了！追问
文本框插入了 可很乱 怎么调整大小让它们均匀布满整个页面啊？谢谢了
追答文本框的话，只能自己手动调整了。
还可以这么试一下，插入表格，5行3列的 试试看
