一、問題描述

在word2003中可以使用滑鼠框選多個圖形，可是在word2010中卻只能使用ctrl+滑鼠一個個點選，非常不便。

如果要實現框選，需要先插入一個畫布，再在畫布中繪製圖形。已經繪製的圖形可以貼上到畫布中。

插入畫布操作：插入選項卡-->插圖命令組-->形狀-->新建繪圖畫布。繪製的畫布可以拖動邊框調整大小，還可以右鍵-->設定佈局選項-->文字環繞-->浮於文字之上，這樣可以使畫布突破頁邊距的設定，甚至放大到頁邊距之外使畫布看不到，感覺比較舒服些。

框選工具在：開始選項卡-->編輯命令組-->選擇-->選擇物件。

在畫布中繪製圖形可以框選了，但是發現選中了多個圖形以後卻不能使用對齊命令(格式選項卡-->排列命令組-->對齊下的：左對齊、右對齊……等等都是灰色的) 。

而不在畫布中繪製的圖形，卻能使用對齊命令。

怎樣才能在word2010中實現既能框選又能對齊呢，魚與熊掌難道不能兼得嗎？

二、解決方法

方法一：在PPT2010中繪製圖形，兩個功能都是可用的，不用畫布直接繪製，完後再複製到word2010中。先設定下PPT的頁面與word一致（如A4）：設定選項卡-->頁面設定-->幻燈片大小，在下拉列表中選擇，這樣可以直觀地看到在word中的大小，不會複製後發現太大或太小。

方法二：將文字另存為word97-2003格式，再開啟，此時兩個功能都可用，也是不用畫布直接繪製即可。缺點是如果word2010文件中有其它2003不支援的格式，就會導致文件格式失真。

方法三：使用VBA程式碼實現對齊功能(仍然需要在畫布中才能框選)。這是高人的程式碼：

Private Sub AlignHorizontal(ARate As Single)
Dim Min, Max, i As Integer
    Min = 32768
    Max = -32768
    For Each AShape In Selection.ChildShapeRange
        If Min > AShape.Left Then
            Min = AShape.Left
        End If
        i = AShape.Left + AShape.Width / 20
        If Max < i Then
            Max = i
        End If
    Next AShape
    For Each AShape In Selection.ChildShapeRange
        AShape.Left = Min * (1 - ARate) + Max * ARate - AShape.Width / 20 * ARate
    Next AShape
End Sub


Private Sub AlignVertical(ARate As Single)
Dim Min, Max, i As Integer
    Min = 32768
    Max = -32768
    For Each AShape In Selection.ChildShapeRange
        If Min > AShape.Top Then
            Min = AShape.Top
        End If
        i = AShape.Top + AShape.Height / 20
        If Max < i Then
            Max = i
        End If
    Next AShape
    For Each AShape In Selection.ChildShapeRange
        AShape.Top = Min * (1 - ARate) + Max * ARate - AShape.Height / 20 * ARate
    Next AShape
End Sub


Private Sub AlignShape(AHorizontal As Boolean, ARate As Single)
    If Selection.ChildShapeRange.Count = 0 Then
        Exit Sub
    End If
    If AHorizontal Then
        AlignHorizontal (ARate)
    Else
        AlignVertical (ARate)
    End If
End Sub


Sub AlignHorizontalLeft()
    AlignShape True, 0
End Sub


Sub AlignHorizontalCenter()
    AlignShape True, 0.5
End Sub


Sub AlignHorizontalRight()
    AlignShape True, 1
End Sub


Sub AlignVerticalTop()
    AlignShape False, 0
End Sub


Sub AlignVerticalMiddle()
    AlignShape False, 0.5
End Sub


Sub AlignVerticalBottom()
    AlignShape False, 1
End Sub

需要將以上程式碼新增到一個工具按鈕上，方便呼叫。方法如下：

(1)檔案選單-->選項-->自定義功能區-->勾選右側列表框中的“開發工具”，確定。此時多出一“開發工具”選項卡。(在功能區上點右鍵也可出現“自定義功能區”，下同)

(2)開發工具選項卡-->程式碼命令組-->Visual Basic(就是左邊第一個按鈕)，在 Normal上右鍵，依次選插入-模組，然後將上面程式碼複製貼上進來。點選工具欄上磁碟按鈕儲存。關閉開發工具。

(3)新增一個新建選項卡，以便將程式碼新增到此按鈕。

（當然也可以新增到原有選項卡上，如格式選項卡，方法類似。但我不想影響原有選項卡，且便於找到命令就單獨為其新建了一個選項卡）。

檔案選單-->選項-->自定義功能區-->在右側列表框下點“新建選項卡”按鈕，此時列表中多出一個“新建選項卡(自定義)”，其下有一個"新建組(自定義)"，分別右鍵-->重新命名，將選項卡命名為"圖形對齊"，將組命名為"對齊"(名稱隨你喜歡自定)。

(4)在“從下列位置選擇命令”下拉列表框中選擇“巨集”，此時列出6個巨集（Normal.模組1.Align...開頭的6個），在右側列表框中選擇剛新建的"對齊"命令組。依次選中6個巨集，點“新增”按鈕，新增到“對齊”組下面。在剛新增的命令上依次右鍵-->重新命名，其中：AlignVerticalBottom--底端對齊，AlignVerticalMiddle--上下居中，AlignVerticalTop--頂端對齊，AlignHorizontalRight--右對齊，AlignHorizonCenter--左右居中，AlignHorizontalLeft--左對齊。確定退出。

完成。

三、後記

方法三較好地解決了對齊的問題，但是它沒有實現平均分佈的功能，這不能不說是一大遺憾。

另外，Word2010中貌似沒有圖形布林運算的功能，在自定義功能區對話方塊中的命令裡沒找到，不知是真沒有還是我眼拙沒找到。而圖形運算功能在PPT2010中是有的。

如果這兩個問題解決了，那WORD2010的圖形功能就算完美了吧。

原文出處見http://www.docin.com/p-690220754.html，以上是結合我的實踐重新整理的。