如何批量處理word中的表格

lhrbest發表於2014-07-11

如何批量處理word中的表格


1 . 批量設定word中的表格寬度

比如，我這有一個word文件有200多個表格（全部是3列的），現在要求第一列寬度3cm，第二列4cm，第三列5cm。一個一個改不太可能吧？？？執行如下的巨集程式碼就搞定：



點選(此處)摺疊或開啟

  1. Sub Macro1()
  2. Dim MyTable As Table
  3. For Each MyTable In ActiveDocument.Tables
  4.     MyTable.PreferredWidth = CentimetersToPoints(16)
  5.     MyTable.Columns(1).PreferredWidth = CentimetersToPoints(3)
  6.     MyTable.Columns(2).PreferredWidth = CentimetersToPoints(4)
  7.     MyTable.Columns(3).PreferredWidth = CentimetersToPoints(5)
  8. Next
  9. End Sub



2.  word中批量選中所有的表格

執行如下的巨集程式碼即可：


點選(此處)摺疊或開啟

  1. Sub select_all_tables()
  2.      Dim mytable As Table
  3.       Application.ScreenUpdating = False
  4.       For Each mytable In ActiveDocument.Tables
  5.          mytable.Range.Editors.Add wdEditorEveryone
  6.      Next
  7.     ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
  8.     ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
  9.      Application.ScreenUpdating = True
  10. End Sub

方便大家檢視，這裡給出 word中批量選中所有的表格 例子，第一個類似：




按快捷鍵 ALT+F11後，


執行巨集程式碼之後就選定了



3、 讓word中所有的表格按照頁面寬度調整



點選(此處)摺疊或開啟

  1. Private Sub Document_New()
  2. End Sub
  3. Private Sub Document_Open()
  4. Application.Browser.Target = wdBrowseTable
  6. For i = 1 To ActiveDocument.Tables.Count
  8. ' ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent) '根據內容自動調整表格
  10. ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根據視窗自動調整表格
  12. 'ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
  14. 'ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中
  16. Next i
  17. End Sub




About Me

...............................................................................................................................

● 本文作者：小麥苗，只專注於資料庫的技術，更注重技術的運用

● 本文在itpub（http://blog.itpub.net/26736162）、部落格園（http://www.cnblogs.com/lhrbest）和個人微信公眾號（xiaomaimiaolhr）上有同步更新

● 本文itpub地址：http://blog.itpub.net/26736162/abstract/1/

● 本文部落格園地址：http://www.cnblogs.com/lhrbest

● 本文pdf版及小麥苗雲盤地址：http://blog.itpub.net/26736162/viewspace-1624453/

● 資料庫筆試面試題庫及解答：http://blog.itpub.net/26736162/viewspace-2134706/

● QQ群：230161599     微信群：私聊

● 聯絡我請加QQ好友(646634621)，註明新增緣由

● 於 2017-04-28 09:00 ~ 2017-04-30 22:00 在魔都完成

● 文章內容來源於小麥苗的學習筆記，部分整理自網路，若有侵權或不當之處還請諒解

● 版權所有，歡迎分享本文，轉載請保留出處

...............................................................................................................................

拿起手機使用微信客戶端掃描下邊的左邊圖片來關注小麥苗的微信公眾號：xiaomaimiaolhr，掃描右邊的二維碼加入小麥苗的QQ群，學習最實用的資料庫技術。

如何批量處理word中的表格
 DBA筆試面試講解
 歡迎與我聯絡

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/26736162/viewspace-1216192/，如需轉載，請註明出處，否則將追究法律責任。

相關文章