Word中處理表格時,經常要遇到將一個表格的某些行復制到另一個表格的情形。看起來很簡單的一個問題,卻常常會出現意外的結果——即使兩個表格的列數完全一樣,粘貼結果卻經常“錯位”(如圖1),粘貼進來的行總是不能和它相鄰的行對齊。
1. 未雨綢繆,事前準備
要解決這個問題,第一種辦法是改進一下將行粘貼到目標表格的操作方式。
首先顯示出所有的格式標記。選擇菜單“工具→選項”,選擇“視圖”選項卡,選中“格式標記”下面的“全部”(如圖2)。完成后點擊“確定”。在目標表格的末尾添加一個空行,注意不要在這個行輸入任何內容。在源表格中,選中要復制的行所包含的單元格,但不要選中行末尾的結束標記。然后將選中的內容復制后粘貼在目標表格中,必要時,Word會自動插入新的行,新插入的行總是與現有的行完全對齊。
但這個辦法不是任何時候都適用的——如果我們要把粘貼進來的內容放入目標表格的其他位置(而不是最后),目標表格中原來的內容就有可能會被覆蓋——除非在粘貼之前,我們首先在目標表格中插入足夠的空行,不過這樣做似乎又太麻煩了。
2. 亡羊補牢,事后補救
我們再來看看錯位表格的事后補救辦法。首先,我們可以利用Word的表格“自動調整”功能。
選中整個錯位的表格,選擇菜單“表格→自動調整→根據內容自動調整表格”。但是,對于某些復雜的表格,特別是存在嵌套表格的情況下,這種辦法仍不一定奏效。這時可采用“表格→文本→表格”的轉換法。選中整個錯位的表格,將整個表格轉換成文本。方法是:選擇菜單“表格→轉換→表格轉換成文本”,出現一個對話框(如圖3)。任選一種表格中沒有出現的字符作為分隔符,點擊“確定”。最后再將文字轉換回表格,方法是:選擇菜單“表格→轉換→文本轉換為表格”,出現轉換對話框,選擇剛才使用的分隔符,然后點擊“確定”。
3. 一本萬利,單擊鼠標
如果經常要處理錯位表格,最方便的辦法還是創建一個簡單的宏。通過宏AutoFitAllTables查找Word文檔中所有的表格,對于每一個表格,分別調用其各個列的AutoFit方法——自動調整其列寬,最終的效果就是對齊所有行和列。
Sub AutoFitAllTables()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.Columns.AutoFit
Next oTbl
End Sub
打開Word宏的Visual Basic編輯器,輸入上面的宏,保存。選擇Word菜單“工具→自定義”,轉到“命令”選項卡(如圖4),將AutoFitAllTables宏拖到Word工具欄上適當的位置,Word自動添加以AutoFitAllTables命名的按鈕。右擊該按鈕,將按鈕命名為“對齊所有列”,最后關閉圖四的自定義對話框。以后,只要點擊“對齊所有列”按鈕,Word就會自動對齊所有錯位的表格,非常方便!
1. 未雨綢繆,事前準備
要解決這個問題,第一種辦法是改進一下將行粘貼到目標表格的操作方式。
首先顯示出所有的格式標記。選擇菜單“工具→選項”,選擇“視圖”選項卡,選中“格式標記”下面的“全部”(如圖2)。完成后點擊“確定”。在目標表格的末尾添加一個空行,注意不要在這個行輸入任何內容。在源表格中,選中要復制的行所包含的單元格,但不要選中行末尾的結束標記。然后將選中的內容復制后粘貼在目標表格中,必要時,Word會自動插入新的行,新插入的行總是與現有的行完全對齊。
但這個辦法不是任何時候都適用的——如果我們要把粘貼進來的內容放入目標表格的其他位置(而不是最后),目標表格中原來的內容就有可能會被覆蓋——除非在粘貼之前,我們首先在目標表格中插入足夠的空行,不過這樣做似乎又太麻煩了。
2. 亡羊補牢,事后補救
我們再來看看錯位表格的事后補救辦法。首先,我們可以利用Word的表格“自動調整”功能。
選中整個錯位的表格,選擇菜單“表格→自動調整→根據內容自動調整表格”。但是,對于某些復雜的表格,特別是存在嵌套表格的情況下,這種辦法仍不一定奏效。這時可采用“表格→文本→表格”的轉換法。選中整個錯位的表格,將整個表格轉換成文本。方法是:選擇菜單“表格→轉換→表格轉換成文本”,出現一個對話框(如圖3)。任選一種表格中沒有出現的字符作為分隔符,點擊“確定”。最后再將文字轉換回表格,方法是:選擇菜單“表格→轉換→文本轉換為表格”,出現轉換對話框,選擇剛才使用的分隔符,然后點擊“確定”。
3. 一本萬利,單擊鼠標
如果經常要處理錯位表格,最方便的辦法還是創建一個簡單的宏。通過宏AutoFitAllTables查找Word文檔中所有的表格,對于每一個表格,分別調用其各個列的AutoFit方法——自動調整其列寬,最終的效果就是對齊所有行和列。
Sub AutoFitAllTables()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.Columns.AutoFit
Next oTbl
End Sub
打開Word宏的Visual Basic編輯器,輸入上面的宏,保存。選擇Word菜單“工具→自定義”,轉到“命令”選項卡(如圖4),將AutoFitAllTables宏拖到Word工具欄上適當的位置,Word自動添加以AutoFitAllTables命名的按鈕。右擊該按鈕,將按鈕命名為“對齊所有列”,最后關閉圖四的自定義對話框。以后,只要點擊“對齊所有列”按鈕,Word就會自動對齊所有錯位的表格,非常方便!