遇到如下格式的一篇WORD文檔，格式混亂，不適合打印：

由于沒有接觸過Word VBA，因此決定用Excel VBA來處理這篇文檔。首先全選該文檔的內(nèi)容，粘貼到Excel文檔中。然后創(chuàng)建一個新的macro,修改該Macro為以下代碼：

Sub FormatSheet()'' FormatSheet Macro' Macro recorded 6/13/2010 by Bo Yang'' Keyboard Shortcut: Ctrl+f' Dim str As String Dim i As Long ' Remove blank rows rownumber = Range("A65536").End(xlUp).Row Do While rownumber >= 1 If Cells(rownumber, 1).Value = "" Then Rows(rownumber).Delete rownumber = rownumber - 1 End If rownumber = rownumber - 1 Loop ' Copy the Chinese intepretation For rownumber = 2 To 65535 Cells(rownumber, 2).Value = Cells(rownumber + 1, 1).Value Next ' Delete rows which contians Chinese character ' in their first cells For rownumber = 2 To 65535 For i = 1 To Len(Cells(rownumber, 1).Value) str = Mid(Cells(rownumber, 1).Value, i, 1) If str Like "[ò?￡-y?]" Then Rows(rownumber).Delete End If Next Next End Sub

然后按自定義快捷鍵Ctrl+f， 數(shù)秒鐘后，文檔處理完畢，秩序井然矣。

利用Excel VBA處理文檔