word選擇所有表格

1、竭誠為您提供優(yōu)質(zhì)文檔 /雙擊可除第1頁共 15 頁word 選擇所有表格篇一：批量操作word表格一、批量選擇word表格subkonggs()dimmytableastableapplication.screenupdating=FalseForeachmytableinactivedocument.tablesmytable.Range.editors.addwdeditoreveryone nextactivedocument.selectalleditableRanges(wdeditoreveryone)activedocument.deletealleditableRanges(w

2、deditorever yone)application.screenupdating=trueendsub二、實現(xiàn)同時將一個word文檔中的所有表格執(zhí)行“自動調(diào)整一一根據(jù)窗口調(diào)整表格”操作第2頁共 15 頁subwww()dimodocasdocumentdimotableastablesetodoc=documents.open(d:testsr.doc)指定文件路徑Foreachotableinodoc.tablesotable.autoFitbehavior(wdautoFitwindow)根據(jù)窗口調(diào)整內(nèi)容nextmsgbox完成！”endsub三、word文檔中選擇所有表格假如wor

3、d文檔中有多個表格，需要一次性同時選擇做一些設置，該如何運用簡便方法做到呢？方法如下：1.按alt+F11鍵，開啟Vba程序窗口2.菜單欄-“插入”菜單宀“模塊”，在其中放入如下代碼?；蛘咪浿坪暌部梢浴ptionexplicitsubselectalltable()dimtemptableastable第3頁共 15 頁application.screenupdating=FalseForeachtemptableinactivedocument.tablestemptable.Range.editors.addwdeditoreveryonenextactivedocument.selec

4、talleditableRangeswdeditorevery oneactivedocument.deletealleditableRangeswdeditorevery oneapplication.screenupdating=trueendsub3.運行代碼就可以選中所有表格了四、把所有表格則設置縮進為0,居中對齊subaa_no_indent_table表縮進為0()dimssastableaa_no_indent_table表縮進為0Foreachssinactivedocument.tablesss.Range.paragraphFormat.characterunitFirst

5、lineindent=0取消字符單位的首行縮進ss.Range.paragraphFormat.Firstlineindent=0取消取行縮進next endsub第4頁共 15 頁這個不用宏，直接用格式刷就能辦到。弄好了一個格子的坐縮進，雙擊格式刷，刷其他的所有（拉黑）即可。下面的表格也帶著刷子去操作一下就行了。篇二：wordVba全選文檔內(nèi)所有表格的代碼sub全選所有表格（）全選所有表格macro dimtemptableastableapplication.screenupdating=False判斷文檔是否被保護tectiontype=wdall

6、owonlyFormFieldsthenmsgbox文檔已保護，此時不能選中多個表格！exitsub endif刪除所有可編輯的區(qū)域activedocument.deletealleditableRangeswdeditoreveryone添加可編輯區(qū)域第5頁共 15 頁Foreachtemptableinactivedocument.tablestemptable.Range.editors.addwdeditoreveryone next選中所有可編輯區(qū)域activedocument.selectalleditableRangeswdeditoreveryone刪除所有可編輯的區(qū)域acti

7、vedocument.deletealleditableRangeswdeditoreveryoneapplication.screenupdating=trueendsub篇三：word中表格編輯技巧大全word中表格編輯等技巧設計斜線表頭將插入點定位在單元格中，單擊“表格-繪制斜線表頭” 命令，出現(xiàn)對話框，單擊“表頭樣式”下拉菜單選擇一種樣 式 （共有5種可選擇） ， 分別填入“行標題”（右上角的項目）“列標題”（左下角的項目）和“數(shù)據(jù)標題”（中間格的項目）以及“字體大小”等，最后單擊“確定”退出。刪除斜線表 頭的方法是，單擊要刪除的斜線表頭，當周圍出現(xiàn)選定標記 時，按del鍵即可刪除該斜

8、線表頭。自由修改斜線表頭斜線表頭繪制好后，如果改變字號，或者調(diào)整斜線位置，斜線表頭便出現(xiàn)諸如字與字互相疊壓或線條移動等不匹配 的情況，往往令許多人感到束手無策。其實，我們可利用word第6頁共 15 頁的繪圖功能加以調(diào)整，具體作法是：1.選中該表頭（其實表格斜線是由線條組合在一起的圖形），使之周圍出現(xiàn)8個控點；2.在“繪圖工具欄”上單擊“繪圖”按鈕， 在彈出的菜 單中選擇“取消組合”命令，并在斜線表頭所在的單元格之 外的區(qū)域單擊（即取消選定狀態(tài)）；3.這時表頭中的線條和文字（其實是文本框）均成為獨 立可調(diào)整狀態(tài)，我們可以任意調(diào)整表頭的線條和每一個文字 的位置，直到滿意為止；4.按shift鍵，

9、依次選擇每個線條和每個文字塊；5.再次在“繪圖工具欄”上單擊“繪圖”按鈕，選擇“組 合”。在上面第三步中，你還可能遇到另一種令人頭疼的事情：那就是雖然可獨立移動斜線位置，但就是移動不到準確的位 置，或者說誤差非常大。這時，你可嘗試如下的步驟：1.選中該表頭；2.在“繪圖工具欄”上單擊“繪圖”按鈕，選擇“繪圖網(wǎng)格”，彈出“繪圖網(wǎng)格”對話框（圖2）；圖23.在“繪圖網(wǎng)格”對話框中將“水平間距”和“垂直間距”均調(diào)整成最小值，然后單擊“確定”，表頭中的內(nèi)容便第7頁共 15 頁可任意調(diào)整大小、位置了。143把文字轉(zhuǎn)換成表格選中需要轉(zhuǎn)換的文字，單擊“表格-轉(zhuǎn)換-文本轉(zhuǎn)換成 表格”命令，設置好需要轉(zhuǎn)換的列數(shù)

10、、行數(shù)和套用的格式， 在“文字分隔位置”中選中文字分隔符（圖3）,按“確定”按鈕就可以把文字轉(zhuǎn)換成表格。圖3144把表格轉(zhuǎn)換成文字選中表格，單擊“表格-轉(zhuǎn)換-表格轉(zhuǎn)換成文本” 命令， 在打開的對話框中選好文字分隔符（圖4）,單擊“確定”按 鈕即可。圖41.4.5快速選定整張表格按“alt+5（數(shù)字鍵盤上的數(shù)字，且numlock鍵處于關 閉狀態(tài)）”，就可以快速選定整張表格。1.4.6隨心所欲調(diào)整單元格中的文字對齊方式對于單元格中的文字，你可以隨意調(diào)整它的位置，上、 下、左、右、中間任意設定，設置的方法是：在單元格中右鍵單擊，彈出快捷菜單，在“單元格對齊”子菜單中單擊相 應的命令即可，共有9種設定

11、可供選擇。第8頁共 15 頁1.4.7更方便地調(diào)整表格的位置這是在word中重新定位表格的一個捷徑。單擊“視圖頁面”命令，轉(zhuǎn)換到頁面視圖模式，在頁面視圖中，把鼠 標指針放在表格的左上角直到出現(xiàn)移動柄（框中有一個4個頭的箭頭），點擊移動柄，用它把表格拖動到一個新位置。148整體縮放表格將光標停留在表格內(nèi)部，直到表格尺寸控點（一個小“口”）出現(xiàn)在表格右下角，將鼠標移至表格尺寸控點上， 待向左傾斜的雙向箭頭出現(xiàn)，沿需要的方向拖動即可整體縮 放表格。149使你的列標題可見當你在word中創(chuàng)建一個表格時，你可以利用列標題來描述每一列是什么信息。但如果表格很長，超過一頁時，第 一頁后面的頁列標題將看不到， 這樣你很難分辨每一列的主 題是什么。 這里將介紹一種使標題可見的技巧：