VBA小試牛刀

今天在看一本電子書《諸葛亮的十堂哲學課》時，突然想將其重新編輯成PDF格式。當我將書的第一章內容複寫到Word中時才發現字元中混雜了太多的斷行符號符。這時我想起前幾天學習的VBA課程，在這裡小試牛刀咯。
下面就是我寫的一段VBA程式，可以將文本中的多餘空行刪除。其演算法是漸進式掃描文檔，當發現該行只有一個符號（必為斷行符號符）時就將其刪除。
iCount = 0
Dim ps As Paragraph
Dim rngRange As Range
For Each ps In ActiveDocument.Paragraphs
iCount = iCount + 1
Set rngRange = ps.Range

If rngRange.Characters.Count = 1 Then
'MsgBox (rngRange.Characters(1))
rngRange.Delete
End If
Next
但我還沒想出如何能刪除段末尾的斷行符號符，我不知道如何判斷，雖然可以通過
If rngRange.Characters(rngRange.Characters.Count) = Chr(13) Then
來判斷段落結尾處的字元是否是斷行符號符，但如果簡單刪除，則會將原有的段落去除。且這樣會引起迴圈的錯誤，在進行段落遍曆的時候產生錯誤。
我想到可以用一個數組來存放單個斷行符號符的位置，然後利用原文檔中段落間有兩個斷行符號符的特點，將單斷行符號符刪除就可以了。
下面是代碼，其可以在短文檔中用，在長文檔時還是會有數組溢出。要重新考慮演算法咯。
Sub ClearBlankReturnChar()
Dim iCount, iIndex, iParagraphsNum
iCount = 0
iIndex = 0
Dim aLines(10000)

Dim ps As Paragraph
Dim rngRange As Range
For Each ps In ActiveDocument.Paragraphs
iCount = iCount + 1
Set rngRange = ps.Range
If rngRange.Characters.Count > iMaxRangeCount Then
iMaxRangeCount = rngRange.Characters.Count
End If

If rngRange.Characters.Count > 1 Then
iIndex = iIndex + 1
aLines(iIndex) = rngRange.End
End If
Next

For i = 1 To iIndex - 1
Selection.SetRange aLines(i) - i, aLines(i) - i + 1
'MsgBox (i)
Selection.Delete
Next
End Sub

夜已經很深了，早點睡咯！
=======================================================================