表格单元格中段落标记前空格如何一次性删除

sylun

试试这个：

Sub test()
Dim myTable As Table, myCell As Cell, myRange As Range
With ActiveDocument
    For Each myTable In .Tables
        myTable.Range.Find.Execute findtext:="^32^p", replacewith:="^p", Replace:=wdReplaceAll
        For Each myCell In myTable.Range.Cells
            Set myRange = myCell.Range
            myRange.SetRange myRange.Start, myRange.End - 1
            myRange.Text = VBA.RTrim(myRange)
        Next
    Next
End With
End Sub

[此贴子已经被作者于2008-3-22 0:15:22编辑过]

honey_bee

这个工作正常，谢谢各位。

tangqingfu

谢谢分享！

hikosu

11楼的代码运行正常，有效，受教了{:soso_e179:}

ggmmlol

Word表格中，每一个单元格的字符串内容，都不包含其末尾的段落标记符\r和响铃符\x07
所以，其单元格字符串可以如下函数获取：

1. Function CellText(myCell As Cell) As String
   
2.     Dim s$
   
3.     s = myCell.Range.Text
   
4.     CellText = Left(s, Len(s) - 2)
   
5. End Function

复制代码

然后就可以用各种方法判断处理了。比如：

1. Sub WORD表格单元格中字符处理()
   
2.     Dim myTable As Table, myCell As Cell
   
3.     Dim reg As New RegExp
   
4. '    reg.Pattern = " +(?=\v)"'手动换行符(以Shift+Enter输入的)之前的空格
   
5.     reg.Pattern = " +(?=\r|$)" '换行符(用Enter键输入的)之前的空格
   
6.     reg.Global = True
   
7.     With ActiveDocument
   
8.         For Each myTable In .Tables
   
9.             For Each myCell In myTable.Range.Cells
   
10.                 myCell.Range.Text = reg.Replace(CellText(myCell), "")
    
11.             Next
    
12.         Next
    
13.     End With
    
14. End Sub

复制代码

WORD表格单元格中字符处理.rar (22.09 KB, 下载次数: 1)

2025-3-8 17:28 上传

点击文件名下载附件