[筆記] Chrome 擴充功能

2013年1月21日 星期一

用習慣的紀錄一下

  • Adblock Plus 1.3.4
  • BBSFox Google Chrome 擴充套件 0.0.13
  • Minimize Chrome to tray 1.4.1.74
  • Proxy Switchy! 1.6.3

巨集刪除word表格的空列

2013年1月9日 星期三

『Alt+F11』開啟Microsoft Visual Basic,『插入→模組』右側空白處貼上


Sub 刪除表格空列()
Dim aTable As Table, aRow As Row
Application.ScreenUpdating = False
For Each aTable In ActiveDocument.Tables
    For Each aRow In aTable.Rows
        If Len(aRow.Range) < aRow.Cells.Count * 2 + 3 Then aRow.Delete
    Next
Next
Application.ScreenUpdating = True
End Sub

巨集是儲存在該word檔,執行巨集執行即可。