TRIM（）不表

Question

我不得不solve a little problem today（即PDF轉換器已經加入到每一個細胞一個MS Word文檔中修剪尾隨空白）工作，我很快發現，這種使用是不可能的在每個單元結束

Sub TrimCellSpaces() 
    Dim itable As Table 
    Dim C As Cell 
    For Each itable In ThisDocument.Tables 
     For Each C In itable.Range.Cells 
      C.Range.Text = Trim(C.Range.Text) 
     Next 
    Next 
End Sub 

我很驚訝，這不僅無法刪除尾隨空白，它甚至還添加段落標記：標準Word界面，所以寫了一個小VBA腳本。所以我嘗試了一個正則表達式的方法：

Sub TrimCellSpaces() 
    Dim myRE As New RegExp 
    Dim itable As Table 
    Dim C As Cell 
    myRE.Pattern = "\s+$" 
    For Each itable In ThisDocument.Tables 
     For Each C In itable.Range.Cells 
      With myRE 
       C.Range.Text = .Replace(C.Range.Text, "") 
      End With 
     Next 
    Next 
End Sub 

相同的結果。我添加了一個斷點，將C.Range.Text（替換前）的值複製到十六進制編輯器中，並發現它以十六進制序列0D 0D 07（07是ASCII Bell字符（！））結束。

我改變了正則表達式來\s+(?!.*\w)，和腳本完美無缺。替換操作後，C.Range.Text的值僅在0D 07（少一個0D）處結束。

我也有一個新創建的表試過，沒有一個通過Word的PDF進口商產生的 - 相同的結果。

這是怎麼回事？ Word是否使用0D 0D 07作爲「細胞末端」標記？或者是0D 07？爲什麼\s+只刪除一個0D？

Answer 1

在ANSI 13 + 07 ANSI字結尾的所有細胞 - 這是「電池的末端」標誌（有點「陽光」，如果你有非打印字符在UI通的顯示）。 Word使用它來構建表格並存儲與單元相關的信息。

這是不可能從表格單元格中刪除此字符組合 - Word需要它。如果你能刪除它，桌子就會破裂。所以Word只會阻止你刪除它們。

如果您需要的表格單元格的內容，你基本上需要檢查的最後兩個字符的字符代碼，並使用字符串之前刪除他們的文本字符串。您需要檢查兩個字符，因爲Microsoft改變了文本從幾個版本的單元格返回的方式。有時它只返回其中一個字符，有時也會返回兩個字符，具體取決於您如何獲取信息以及涉及哪個版本的Word。