新人向各路大神求助 VBA

huang10295

    经常都需要把文档里面的内容整理干净，已经折腾了好多天了，试了各种办法，还是不行。要么整篇文档空格全部删除了（表格外的空格另有其用）要么把带空格符的单元格内容全删了。

特向大神求助怎么把整个文档里的只删除表格部分内容，如单元格内删除多余空格，特别是合并单元格内的空格。


以下是网上抄的其他大神作品删除重复回车符的代码，请各路大神帮忙改改

  ' 删除所有单元格内重复回车符
     Dim 表格 As table, 单元格 As cell, 段落 As Paragraph, 内容 As String
  
       For Each 表格 In ActiveDocument.Tables
        For Each 单元格 In 表格.Range.Cells
            For Each 段落 In 单元格.Range.Paragraphs
               
                内容 = 段落.Range.text
               
                If 内容 = Chr(13) Then
               
                  
                    段落.Range.Delete
                  
                End If
            Next
            内容 = Right(单元格.Range.text, 3)
            If 内容 = Chr(13) & Chr(13) & Chr(7) Then
            单元格.Range.Characters(单元格.Range.Characters.Count - 1).Delete
            End If
        Next
    Next

batmanbbs

没太听懂，是删除表格中的所有空白字符吗？

vbee

Sub test1()

  ' 删除所有单元格内重复回车符
     Dim 表格 As Table, 单元格 As Cell
  
       For Each 表格 In ActiveDocument.Tables
        For Each 单元格 In 表格.Range.Cells
          T = 单元格.Range.Text
          T = Replace(T, " ", "")
          T = Replace(T, "　", "")
          T = Replace(T, Chr(11), "")
          T = Replace(T, Chr(13), "")
          单元格.Range.Text = T
        Next
    Next

End Sub

huang10295

谢谢两位大神，问题解决了。