也許你要用Word寫一本24頁的宣傳冊，但最後數來數去隻有21頁。當然，你不能讓最後3頁全部空白，而是應該適當調整文字，使它剛好有24頁。
這些問題你經常會遇到。本文的目標就是設計一個插件，實現Word自動擴展和收縮文檔，使文檔符合指定的打印頁數。以前人們常用的WordPerfect軟件有這個功能，但Word卻從來沒有完全實現這個功能。之所以說“沒有完全實現”，是因為Word也有一個簡單的“減少一頁”功能，可以在打印預覽工具條上找到，如圖一所示，但Word的這個功能無法與WordPerfect的相比。
圖一：打印預覽工具欄
點擊“減少一頁”按鈕，Wordhuichangshijianxiaowendangzhongmeizhongzitidedaxiao。tadezhuyaozuoyongshibimianjiangshaoliangneirongdandufangruyiye。anzhaoweiruandejianyi，zhegecaozuozuihaozhiyongyuzuihouyiyebaohanshaoliangneirongdeduanwendang。ruguodiyicicaozuomeiyoudadaoyuqidemubiao，nikeyizhongfuzhixing“減少一頁”命令，但最後可能得到一個字體小得難以接受的文檔。
相比之下，WordPerfect的這個功能靈活得多。首先，它既可以收縮文檔，也可以擴展文檔，隻要目標頁數和當前頁數的差異不超過50%即可。第二，你可以選擇通過哪些途徑使文檔符合指定的頁數要求，除了改變字體之外，你還可以調整行距以及頁的上、下、左、右邊距。WordPerfect會根據用戶指定的選項分析當前文檔，自動修改文檔格式，使文檔符合指定的頁數要求。
圖二：自動調整文檔頁數
本文的目標是模仿WordPerfect，在Word中實現文檔頁數自動調整功能。調整頁數的界麵如圖二所示，用戶可以選擇調整哪些項目、調整的範圍，然後點擊“確定”按鈕開始自動調整。當然，實現這種功能需要用到Word宏，也就是要用VBA編程。不過本文的代碼並不是特別複雜，隻要了解一些基礎知識，就很容易理解本文的代碼。本文的插件適用於Word 2000和XP，文章中凡是涉及菜單名字、對話框的地方，都以Word XP為標準。
一、調整文檔占用空間的基本手段
Word提供了七個改變字體大小和調整行距的內建命令，所有這些命令都可以用等價的VBA代碼表示。在圖三中，我把這些命令和“減少一頁”集中到了一個自定義的工具欄上。
圖三：調整文檔占用空間的內建命令
如果你也想得到這個工具欄，可按如下步驟設置：選擇菜單“工具->自定義”，選擇“工具欄”選項卡，新建一個工具欄，將它命名為“擴展與縮減文檔頁數”，然後選擇“自定義”對話框的“命令”頁，在“類別”列表中選擇“所有命令”，接著從“命令”列表把各個命令拖到新建的工具欄上就可以了。
1.1 調整字體
首先來看第一個命令“減少一頁”。在Word宏中，該命令對應的VBA指令是ActiveDocument.FitToPages。需要注意的是，調用該指令的代碼必須有健全的錯誤處理機製，因為如果 Word 無法將文檔的頁數減少一頁，則該方法會導致出錯。Word的幫助隻提到了編號為5538的錯誤“Word無法按一頁縮小文檔，因為此文檔隻有一頁”。但在實際應用中，出現另一個編號為5539的錯誤可能性更大。5539錯誤的意思是“經過數次嚐試，Word無法按一頁來縮小文檔”。據測試，隻要文檔的字體被縮小到6磅，Word會提示這個錯誤，也許Word認為這是可以保證文檔清晰可讀的最小字體，所以不再繼續縮小字體。
“縮小字體”和“增大字體”兩個命令分別對應Selection.Font.Shrink和Selection.Font.Grow，這兩個方法可用來調整選中區域的字體大小。Shrink方法把字體縮小一級，如果用戶選中的內容字體大小不一，則每種字體大小分別被縮減一級。Grow方法的作用恰好相反。“一級”這個概念的含義必須說明一下。如果文字的當前大小是20，則比它大一級不是21，而是22；比20小一級的不是19，而是18。也就是說，Word對文字大小級別的解釋與“格式”工具欄上列表框的值對應，如圖四所示。
圖四：Word的字體分級
仔(zai)細(xi)觀(guan)察(cha)圖(tu)四(si)的(de)列(lie)表(biao)，每(mei)一(yi)級(ji)之(zhi)間(jian)的(de)距(ju)離(li)沒(mei)有(you)任(ren)何(he)規(gui)律(lv)，有(you)的(de)距(ju)離(li)大(da)，有(you)的(de)距(ju)離(li)小(xiao)。微(wei)軟(ruan)沒(mei)有(you)解(jie)釋(shi)這(zhe)麼(me)安(an)排(pai)的(de)理(li)由(you)，但(dan)可(ke)以(yi)猜(cai)想(xiang)，如(ru)果(guo)一(yi)段(duan)文(wen)字(zi)既(ji)有(you)標(biao)題(ti)也(ye)有(you)正(zheng)文(wen)，用(yong)Shrink和Grow方法調整大小時，這種分級安排有利於維持某種平衡。
用FitToPages和Shrink方法縮減文檔頁數時，應注意兩者的工作方式有所不同。Shrink按照預定義的級別縮減字體大小，字體可以小到1磅。FitToPages不同，它按照0.5磅的精度精確調整字體大小，但不允許正文字體小於6磅。
VBA沒有提供直接與圖三“將字體縮小1磅”、“將字體增大1磅”對應的命令。如果用記錄宏的辦法獲取這兩個按鈕對應的代碼，可得到如下結果：
- 將字體縮小1磅：Selection.Font.Size = Selection.Font.Size - 1
- 將字體增加1磅：Selection.Font.Size = Selection.Font.Size + 1
如果選中一段包含多種字體大小的文字，然後點擊“將字體縮小1磅”按鈕，Word會自動根據原有的字體大小，分別將它們減小1磅。但是，如果將這個操作記錄成宏，然後再重新執行這個宏，Word會提示錯誤“運行時錯誤4120，參數無效”。有興趣的讀者，可在VB調試器中分析代碼的運行過程。對於“將字體增加1磅”按鈕，情況也完全一樣。可見，對於這兩個命令，VBA不支持包含多種字體大小的情形！
怎麼辦呢？我們知道，點擊“將字體縮小/增加1磅”按鈕不會因為存在多種字體大小而出現問題。因此，隻要我們模擬按鈕點擊動作，就可以繞過Selection和Font對象。
每一個Office的CommandBar按鈕都有一個數值型的ID屬性，“將字體縮小1磅”按鈕的ID是310，“將字體增加1磅”按鈕的ID是311。隻要有了按鈕的ID，就可以用CommandBars屬性的FindControl方法創建按鈕對象，然後利用Execute方法執行與CommandBar關聯的操作。也就是說，用下麵的代碼可以執行“將字體縮小1磅”和“將字體增加1磅”命令：
- CommandBars.FindControl(ID:=310).Execute
- CommandBars.FindControl(ID:=311).Execute
1.2 調整行距
下麵來看看如何模擬WordPerfect第二類調整文檔空間的方法，即調整行距。Word有三個內建的命令來調整行距（各個行之間的垂直距離），如圖三最下方的三個按鈕所示，它們對應的VBA代碼是：Selection.ParagraphFormat.Space1，Selection.ParagraphFormat.Space15，Selection.ParagraphFormat.Space2。
Space1方法為指定段落設置單倍行距，準確的間距將取決於各行內字符最大的字號。Space15方法為指定段落設置1.5倍行距，即各段內字符的最大字號加上6磅；Space2方法設置2倍行距，即各段內字符最大的字號加上12磅。
但是，利用這些方法來調整行間距不是最好的辦法，因為對於需要精確的場合，它們實在顯得太粗糙了。使用“格式->段落”菜單可以更精確地控製行距，如圖五所示：
圖五：指定行距的六種規則
“段落”對話框允許按照六種不同的規則指定行距。如果指定了後麵三種規則之一，還必須指定“設置值”。與此對應，在Word VBA中，行距是由兩個屬性控製的：LineSpacingRule和LineSpacing。Paragraph、ParagraphFormat、Paragraphs集合對象都提供了這些屬性。行距的規則通過LineSpacingRule屬性值設定，可以指定的常量值包括：wdLineSpaceSingle、wdLineSpace1pt5、wdLineSpaceDouble、wdLineSpaceAtLeast、wdLineSpaceExactly和wdLineSpaceMultiple。如果把規則設置成後麵三個常量值之一，同時還必須設定LineSpacing屬性。LineSpacing屬性用來返回或設置指定段落或範圍的行距，單位是磅。要在文檔中擴展或收縮文字，最好把LineSpacingRule屬性設置成wdLineSpaceMultiple。這樣，我們可以讓行距總是和段落中最大字體的大小有關。例如下麵的代碼將當前文檔所有段落的行距增加百分之三：
With ActiveDocument.Paragraphs
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(1.03)
End With
這裏用到了LinesToPoints方法。這個方法用來把度量單位從行轉換為磅（1行=12磅），返回值是Single類型。按照這種方法，行距值可以調整到相當精確的程度。但應當注意的是，Word會以二十分之一磅為單位調整最終的行距。例如在上麵的例子中，最終的行距不是12.36磅（1.03 X 12），而是12.35磅。
為了便於閱讀，最好不要將行距縮小到90-92%（約11磅）以yi下xia。如ru果guo小xiao於yu這zhe個ge值zhi，行xing的de高gao度du可ke能neng不bu夠gou，某mou些xie文wen字zi的de頂ding端duan或huo末mo端duan可ke能neng被bei切qie割ge。但dan是shi，如ru果guo要yao擴kuo展zhan一yi個ge文wen檔dang，這zhe種zhong辦ban法fa是shi非fei常chang理li想xiang的de，不bu僅jin效xiao果guo顯xian著zhu，而er且qie永yong遠yuan不bu會hui影ying響xiang文wen檔dang的de可ke讀du性xing。
1.3 頁邊距
WordPerfect允許修改頁四邊的空白距離，下麵來看看如何在Word中zhong作zuo類lei似si的de調tiao整zheng。不bu過guo首shou先xian需xu要yao注zhu意yi的de是shi，無wu限xian製zhi減jian小xiao頁ye邊bian距ju不bu一yi定ding安an全quan，因yin為wei可ke能neng與yu打da印yin機ji支zhi持chi的de邊bian距ju範fan圍wei產chan生sheng衝chong突tu。另ling外wai，如ru果guo文wen檔dang包bao含han頁ye眉mei、裝訂線等，調整整個文檔的邊距之後可能會出現意外的結果。
在Word VBA中，與四種邊距對應的TopMargin、BottomMargin、LeftMargin和RightMargin屬性屬於PageSetup對象，屬性的類型是Single，keyonglaishezhihuofanhuiyebianyuwenzibianyuandejuli，danweishibang。ruguonibuxiguanyongbangzuoweijiliangdanwei，keyijiezhuzhuanhuanhanshushiyongzijishuxidedanwei，liruyingcun。liru，xiamiandelizizhong，InchesToPoints函數把1.5英寸轉轉成108磅（1英寸等於72磅）：
With ActiveDocument.PageSetup .LeftMargin = InchesToPoints(1.5) .RightMargin = InchesToPoints(1.5) End With
PageSetup對象屬於Section對象。也就是說，如果一個文檔包含多個節（Section），就可以提取出多個PageSetup對象，每一個PageSetup對象可能有不同的邊距。所以，如果文檔包含多個節且各個節的左邊距不同，下麵的代碼不能得到正確結果，它將返回wdUndefined值（9999999）：
Debug.Print ActiveDocument.PageSetup.LeftMargin
如果要調整整個文檔的邊距，就必須分別處理各個節的邊距，如下麵的例子所示。這段代碼首先獲取各個節的當前左、右邊距，然後把它們縮小20%：
Dim ObjSection As SectionFor Each ObjSection In ActiveDocument.Sections With ObjSection.PageSetup .LeftMargin = .LeftMargin * 0.8 .RightMargin = .RightMargin * 0.8 End WithNext
二、實現自動調整功能
前麵分析了在VBA中調整文檔占用空間的各種途徑。利用這些技術可以編寫出下麵的DocSizer類，實現調整文檔頁數的核心功能。
DocSizer類主要提供了10個屬性和一個Execute方法。10個屬性的含義如表一所示。
表一 屬性 說明 AdjustItems 可選，Long。指定可以通過哪些項目來調整文檔占用的空間。允許使用下列枚舉常量的任意組合：adjFontSize（1），adjLineSpacing（2），adjMarginLeft（4），adjMarginRight（8），adjMarginTop（16），andadjMarginBottom（32）。如果忽略，則默認是adjAll常量（63），即前麵6個選項的組合。 NumTargetPages 必需，Long，可讀寫。指定目標頁數，與現有頁數的差距不能超過50%。
MinLeftMargin
MinRightMargin
MinTopMargin
MinBottomMargin
可選，Single。yonglaizhidingbixubaoliudezuixiaobianju，keyonglaifangzhibianjusuoxiaodetaiduoyizhiyuchaochudayinjiyunxudefanwei。ruguohulve，morenbaoliudezuixiaobianjushiwendangdiyijiebianjude70%。 MinFontSize 可選，Single。指定“正文”樣式的字體最小可以調整到多少。如果忽略，則默認最小允許的字體是6磅。 MinLineSpacing 可選，Single。指定“正文”樣式中的行距最小可以調整到多少。如果忽略，則默認11磅（相當於一行的92%）。如果行距小於11磅，字符可能被切割。 NumCurrentPages 隻讀，Long。返回文檔初始的頁數。執行Execute方法之後，返回值將是調整後的頁數。 UndoAfterFailure 可選，Boolean。如果設置成True，一旦調整之後未能達到預定的頁數要求，則撤銷所有對文檔格式的修改，恢複文檔的原始狀態。默認值是True，如果要保留調整後的結果（即使頁數不能達到預定的要求），則應當顯式地把該屬性設置成False。
Execute方法啟動調整文檔頁數的操作，如果能夠達到預期的頁數要求，返回True；否則返回False。另外，Execute方法還可能返回錯誤，利用Err.Description可獲得錯誤的描述信息。下麵是DocSizer的主要代碼：
'公用變量,可讀寫的屬性Public NumTargetPages As Long '目標頁數Public UndoAfterFailure As Boolean '調整失敗後恢複'可調整的項目'包括：字體，行距，左、右、上、下邊距Public Enum adjItems adjFontSize = 1 adjLineSpacing = 2 adjMarginLeft = 4 adjMarginRight = 8 adjMarginTop = 16 adjMarginBottom = 32End Enum'全部項目都可以調整Const ADJ_ALL = adjFontSize Or adjLineSpacing Or adjMarginLeft Or _ adjMarginRight Or adjMarginTop Or adjMarginBottom'錯誤信息'錯誤信息常量聲明,略...Const ERR_MSG_OPERATION_SUCCESSFUL = "操作成功！該文檔現在包含預定的頁數。"Const ERR_MSG_SHRINK_FAILED = "錯誤！無法把該文檔縮減到預定的頁數。"Const ERR_MSG_STRETCH_FAILED = "錯誤！無法把該文檔擴展到預定的頁數。"Const ERR_MSG_TARGETPAGES_OVERFLOW = "錯誤！目標頁數與現有頁數的差距不能超過50%。"Const ERR_MSG_TARGETPAGES_SAME_AS_CURRENT_PAGES = "錯誤！目標頁數與現有頁數完全一樣。"Const ERR_MSG_NO_TARGETPAGES = "錯誤！沒有指定目標頁數。"'默認允許的最小字體Const MIN_FONTSIZE As Single = 6'默認允許的最小行距Const MIN_LINESPACING As Single = 11'允許將頁邊距縮小到多少(百分比)Const MIN_MARGINS_PERCENTAGE As Single = 0.7Const DEF_MARGIN_ADJUSTMENT As Long = 12'聲明其他對象型變量,略...'======類的屬性和方法======='類初始化Private Sub Class_Initialize()If Documents.Count Then '用於撤銷已執行的格式修改操作 Set objUndoList = CommandBars.FindControl(ID:=128)End If'默認修改失敗後恢複UndoAfterFailure = TrueEnd SubPrivate Sub Class_Terminate()Set objUndoList = NothingEnd SubProperty Get CurPageCount() As Long'獲得文檔的當前頁數If Documents.Count Then CurPageCount = ActiveDocument.ComputeStatistics(wdStatisticPages)End IfEnd PropertyPrivate Property Get sDefaultLineSpacing()'返回"正文"樣式的行距，磅With ActiveDocument.Styles(wdStyleNormal).ParagraphFormat '行距規則？ Select Case .LineSpacingRule Case wdLineSpaceMultiple sDefaultLineSpacing = .LineSpacing Case wdLineSpaceSingle, wdLineSpace1pt5, wdLineSpaceDouble ' 0, 1,或 2 sDefaultLineSpacing = (.LineSpacingRule + 1) * 12 Case Else '忽略wdLineSpaceExactly和wdLineSpaceAtLeast sDefaultLineSpacing = 12 End SelectEnd WithEnd Property
Private Property Get DefaultFontRange() As Range
'找到一個按照"正文"樣式格式化的Range。
'縮小字體時，查看該Range就可以知道字體縮小
'到了什麼程度
If Documents.Count Then
With Selection
Set objOriginalSel = .Range
With .Find
.ClearFormatting
.Font.Size = ActiveDocument.Styles(wdStyleNormal).Font.Size
.Text = vbNullString
.Forward = True
.Wrap = wdFindContinue
.Format = True
If .Execute Then
Set DefaultFontRange = Selection.Range
Else
Set DefaultFontRange = Nothing
End If
End With
objOriginalSel.Select
End With
End If
End Property
Private Property Get nCurUndoItems()
'返回‘常用’工具欄‘撤消’列表的項目數
If IsObject(objUndoList) Then
With objUndoList
If .Enabled Then nCurUndoItems = .ListCount
End With
End If
End Property
Function Execute() As Boolean
'根據設定的參數，將文檔頁數調整到預定的數量
On Error Resume Next
nInitialPages = CurPageCount '初始頁數
'‘撤消’列表的當前項數
nInitialUndoItems = nCurUndoItems
'默認允許以所有手段調整文字占用的空間
If nAdjustItems = 0 Then nAdjustItems = ADJ_ALL
'是否允許調整邊距
bAdjustAnyMargin = CBool(nAdjustItems And adjMarginLeft) Or _
CBool(nAdjustItems And adjMarginRight) Or _
CBool(nAdjustItems And adjMarginTop) Or _
CBool(nAdjustItems And adjMarginBottom)
'根據目標頁數的不同，執行不同的操作（縮減頁數或擴展頁數）
Select Case NumTargetPages
Case 0
'沒有指定目標頁數
Err.Raise ERR_NO_TARGETPAGES, , ERR_MSG_NO_TARGETPAGES
Case Is > nInitialPages * 1.5, Is < (nInitialPages + 1) \ 2
'目標頁數與現有頁數的差距不能超過50%
Err.Raise ERR_TARGETPAGES_OVERFLOW, , ERR_MSG_TARGETPAGES_OVERFLOW
Case Is < nInitialPages
'縮減頁數
ShrinkToFit
Execute = (CurPageCount = NumTargetPages)
If Execute = True Then
'縮減頁數成功
Err.Raise ERR_OPERATION_SUCCESSFUL, , ERR_MSG_OPERATION_SUCCESSFUL
Else
'縮減頁數失敗
Err.Raise ERR_SHRINK_FAILED, , ERR_MSG_SHRINK_FAILED
'是否恢複到調整頁數之前的原始文檔？
If UndoAfterFailure Then UndoAll
End If
Case Is > nInitialPages
'擴展頁數
StretchToFit
Execute = (CurPageCount = NumTargetPages)
If Execute = True Then
'擴展頁數成功
Err.Raise ERR_OPERATION_SUCCESSFUL, , ERR_MSG_OPERATION_SUCCESSFUL
Else
'擴展頁數失敗
Err.Raise ERR_STRETCH_FAILED, , ERR_MSG_STRETCH_FAILED
'是否恢複到調整頁數之前的原始文檔？
If UndoAfterFailure Then UndoAll
End If
Case Else
End Select
If IsObjectValid(objOriginalSel) Then objOriginalSel.Select
'刷新屏幕
Application.ScreenRefresh
End Function
Private Sub StretchToFit()
'擴展文檔頁數
With ActiveDocument
'如果允許調整字體...
If CBool(nAdjustItems And adjFontSize) Then
Do Until bFontDone
'增大字體
.Range.Font.Grow
'分析頁數
nCurPages = CurPageCount
'當前頁數是否等於目標頁數？
If nCurPages = NumTargetPages Then
' 已經達到目標頁數
Exit Sub
ElseIf nCurPages > NumTargetPages Then
'頁數太多了。必須撤消最後一次修改操作
.Undo 1
bFontDone = True
Else
'文檔頁數仍舊太少，繼續擴展文檔
End If
Loop
End If
'調整行距,略...
'調整邊距,略...
End With
End Sub
Private Sub ShrinkToFit()
'縮減文檔頁數
With ActiveDocument
'如果允許調整字體...
If CBool(nAdjustItems And adjFontSize) Then
Dim sCurFontSize As Single
'確定最小字體
If sMinFontSize = 0 Then sMinFontSize = MIN_FONTSIZE
Dim rNormalFont As Range
Set rNormalFont = DefaultFontRange
Do Until bFontDone
' FitToPages執行失敗會出現5538和5539錯誤
On Error Resume Next
.FitToPages
Select Case Err
Case 5538, 5539
' FitToPages失敗，結束循環
Err.Clear
bFontDone = True
Case 0 'FitToPages執行成功
'文檔是否包含用‘正文’樣式格式化的文字？
If IsObjectValid(rNormalFont) Then
'它當前的字體大小是多少？
sCurFontSize = rNormalFont.Font.Size
'如果字體已經達到允許的最小極限，則結束循環
If sCurFontSize < sMinFontSize Then
.Undo 1
bFontDone = True
End If
Else
'文檔不包含‘正文’樣式大小的文字。字體可能被調整到6
'磅（FitToPages的下限）
End If
Case Else '其他不能確定的異常
Err.Clear
bFontDone = True
End Select
'分析頁數
nCurPages = CurPageCount
'當前頁數是否等於目標頁數？
If nCurPages = NumTargetPages Then
'已經達到目標頁數
Exit Sub
ElseIf nCurPages < NumTargetPages Then
'頁數太少了。如果不允許調整行距，撤消最後的操作
If Not CBool(nAdjustItems And adjLineSpacing) Then
.Undo 1
End If
bFontDone = True
Else
'頁數仍舊太多，繼續縮減頁數
End If
Loop
End If
'調整行距,略...
'調整邊距,略...
End With
End Sub
Private Sub UndoAll()
'撤消所有調整頁數的操作,略...
End Sub可以看到，擴展頁數的過程（StretchToFit）比較簡單，縮減頁數的過程（ShrinkToFit）稍微複雜一點。代碼的主要思路是：每次調整字體大小、行距或邊距之後，檢查一下CurPageCount屬性，看看是否已經達到目標頁數。如果已經達到，調整過程結束，Execute方法返回True；如果調整之後頁數變得太多（或太少），例(li)如(ru)縮(suo)小(xiao)字(zi)體(ti)之(zhi)後(hou)頁(ye)數(shu)小(xiao)於(yu)目(mu)標(biao)頁(ye)數(shu)，則(ze)撤(che)消(xiao)最(zui)後(hou)一(yi)次(ci)操(cao)作(zuo)，嚐(chang)試(shi)另(ling)一(yi)種(zhong)調(tiao)整(zheng)頁(ye)數(shu)的(de)辦(ban)法(fa)。當(dang)所(suo)有(you)調(tiao)整(zheng)頁(ye)數(shu)的(de)辦(ban)法(fa)都(dou)已(yi)經(jing)試(shi)遍(bian)，而(er)頁(ye)數(shu)仍(reng)未(wei)能(neng)達(da)到(dao)要(yao)求(qiu)，則(ze)Execute返回False。
建jian議yi至zhi少shao用yong字zi體ti和he行xing距ju兩liang種zhong辦ban法fa調tiao整zheng文wen檔dang的de頁ye數shu，這zhe樣yang可ke以yi大da大da增zeng加jia調tiao整zheng成cheng功gong的de可ke能neng性xing。當dang然ran，不bu能neng排pai除chu未wei能neng達da到dao目mu標biao頁ye數shu的de情qing形xing出chu現xian，導dao致zhi這zhe種zhong情qing形xing的de主zhu要yao原yuan因yin可ke能neng是shi文wen檔dang包bao含han太tai多duo手shou工gong插cha入ru的de分fen頁ye符fu、大型圖片，或者是因為目標頁數和現有頁數的差距太大。
三、設計用戶界麵
前麵介紹了調整文檔頁數的核心思路和代碼。下麵來看看製作用戶界麵的過程。用戶界麵主要包括兩部分：菜單和對話框。圖六是加入到“文件->打印預覽”前麵的“調整頁數”菜單。
圖六：“調整頁數”菜單“調整頁數”菜單包括三個選項。第一個選項允許指定目標頁數，然後根據默認的參數執行調整操作。第二個選項等同於Word的“減少一頁”功能，但原來這個功能隻能在打印預覽狀態下使用。第三個選項顯示出圖二的對話框，用戶自定義調整頁數的參數，然後點擊“確定”按鈕開始調整頁數。如果用戶試圖調整文檔頁數時，文檔沒有保存，會出現圖七的提示。
圖七：調整頁數之前保存文檔設置菜單的代碼和其他代碼一起保存在一個插件模板DocSizer.dot之中。DocSizer.dot的主要內容如圖八所示。其中：
- frmDocSizer窗體：包含圖二的對話框。
- Interface模塊：包括生成圖六菜單、根據默認參數調整文檔頁數、顯示圖二對話框的代碼。
- Context類模塊：處理上下文信息。
- DocSizer類模塊：實現調整文檔頁數的核心功能。
圖八：DocSizer模板的主要內容
DocSizer.dot必須放入Word的自動啟動目錄。對於Windows 2000/XP和Office 2000/XP，啟動目錄通常是\Documents and Settings\<用戶名字>\Application Data\Microsoft\Word\STARTUP。Word會自動加載該目錄下的模板，這樣我們就可以在Word啟動時加入“調整頁數”菜單。
因篇幅關係，這裏不再介紹Context類模塊和Interface模塊的代碼，但你可以參見本文的附件DocSizer.dot，代碼中包含了詳細的注釋。將DocSizer.dot安裝到Word的啟動目錄下，啟動Word就可以看到“文件->打印預覽”前麵增加了一個“調整頁數”菜單。啟動目錄的具體位置，可查看Word菜單“工具->選項”再選擇“文件位置”。如果你要查看DocSizer.dot的完整代碼，先按正常方式打開它，然後選擇菜單“工具->宏->宏”，再選擇“編輯”即可。
作為一種通用軟件，Word無法照顧到每一個用戶的特殊要求和使用習慣。但是，Word提供了VBA編程支持和完善的對象模型。正如本文例子所顯示的，利用這些技術，我們可以隨心所欲地定製Word，提高工作效率。
'調整行距,略...
'調整邊距,略...
End With
End Sub
Private Sub UndoAll()
'撤消所有調整頁數的操作,略...
End Sub
可以看到，擴展頁數的過程（StretchToFit）比較簡單，縮減頁數的過程（ShrinkToFit）稍微複雜一點。代碼的主要思路是：每次調整字體大小、行距或邊距之後，檢查一下CurPageCount屬性，看看是否已經達到目標頁數。如果已經達到，調整過程結束，Execute方法返回True；如果調整之後頁數變得太多（或太少），例(li)如(ru)縮(suo)小(xiao)字(zi)體(ti)之(zhi)後(hou)頁(ye)數(shu)小(xiao)於(yu)目(mu)標(biao)頁(ye)數(shu)，則(ze)撤(che)消(xiao)最(zui)後(hou)一(yi)次(ci)操(cao)作(zuo)，嚐(chang)試(shi)另(ling)一(yi)種(zhong)調(tiao)整(zheng)頁(ye)數(shu)的(de)辦(ban)法(fa)。當(dang)所(suo)有(you)調(tiao)整(zheng)頁(ye)數(shu)的(de)辦(ban)法(fa)都(dou)已(yi)經(jing)試(shi)遍(bian)，而(er)頁(ye)數(shu)仍(reng)未(wei)能(neng)達(da)到(dao)要(yao)求(qiu)，則(ze)Execute返回False。
建jian議yi至zhi少shao用yong字zi體ti和he行xing距ju兩liang種zhong辦ban法fa調tiao整zheng文wen檔dang的de頁ye數shu，這zhe樣yang可ke以yi大da大da增zeng加jia調tiao整zheng成cheng功gong的de可ke能neng性xing。當dang然ran，不bu能neng排pai除chu未wei能neng達da到dao目mu標biao頁ye數shu的de情qing形xing出chu現xian，導dao致zhi這zhe種zhong情qing形xing的de主zhu要yao原yuan因yin可ke能neng是shi文wen檔dang包bao含han太tai多duo手shou工gong插cha入ru的de分fen頁ye符fu、大型圖片，或者是因為目標頁數和現有頁數的差距太大。
三、設計用戶界麵
前麵介紹了調整文檔頁數的核心思路和代碼。下麵來看看製作用戶界麵的過程。用戶界麵主要包括兩部分：菜單和對話框。圖六是加入到“文件->打印預覽”前麵的“調整頁數”菜單。
圖六：“調整頁數”菜單
“調整頁數”菜單包括三個選項。第一個選項允許指定目標頁數，然後根據默認的參數執行調整操作。第二個選項等同於Word的“減少一頁”功能，但原來這個功能隻能在打印預覽狀態下使用。第三個選項顯示出圖二的對話框，用戶自定義調整頁數的參數，然後點擊“確定”按鈕開始調整頁數。如果用戶試圖調整文檔頁數時，文檔沒有保存，會出現圖七的提示。
圖七：調整頁數之前保存文檔
設置菜單的代碼和其他代碼一起保存在一個插件模板DocSizer.dot之中。DocSizer.dot的主要內容如圖八所示。其中：
- frmDocSizer窗體：包含圖二的對話框。
- Interface模塊：包括生成圖六菜單、根據默認參數調整文檔頁數、顯示圖二對話框的代碼。
- Context類模塊：處理上下文信息。
- DocSizer類模塊：實現調整文檔頁數的核心功能。
圖八：DocSizer模板的主要內容
DocSizer.dot必須放入Word的自動啟動目錄。對於Windows 2000/XP和Office 2000/XP，啟動目錄通常是\Documents and Settings\<用戶名字>\Application Data\Microsoft\Word\STARTUP。Word會自動加載該目錄下的模板，這樣我們就可以在Word啟動時加入“調整頁數”菜單。
因篇幅關係，這裏不再介紹Context類模塊和Interface模塊的代碼，但你可以參見本文的附件DocSizer.dot，代碼中包含了詳細的注釋。將DocSizer.dot安裝到Word的啟動目錄下，啟動Word就可以看到“文件->打印預覽”前麵增加了一個“調整頁數”菜單。啟動目錄的具體位置，可查看Word菜單“工具->選項”再選擇“文件位置”。如果你要查看DocSizer.dot的完整代碼，先按正常方式打開它，然後選擇菜單“工具->宏->宏”，再選擇“編輯”即可。
作為一種通用軟件，Word無法照顧到每一個用戶的特殊要求和使用習慣。但是，Word提供了VBA編程支持和完善的對象模型。正如本文例子所顯示的，利用這些技術，我們可以隨心所欲地定製Word，提高工作效率。