Question

word表格，查找替换问题

一个word表格，部分格中，格首有空格，格尾有逗号，想通过查找替换的方式将格首的空格和格尾的逗号去掉。不要告诉我一个一个地删呀，表格很庞大的。（答得好的话再追加50分，我的分都用不完。）
有的词中间有空格，我不想去除，但格首的空格必须去掉。

Answer 1

　　要完成要求必须经过两步替换：
　　1、用F5命令，调出查找与替换对话框，点击替换，在“查找”行输入半角空格，光标移到“替换为……”中，选择“全部替换”替换掉所有空格。
　　2、用F5命令，调出查找与替换对话框，点击替换，在“查找”行输入“，^p”,光标移到“替换为……”中输入“^p”，选择“全部替换”替换掉所有行末逗号。
　　

追问

注意是格首的空格，不能去掉别的地方的空格。
“，^p”这招我都用了N次了，在word表格中不好 使，不知你事先试过没有。

追答

　　我看到你的表格中除了格首，其他地方没空格，所以了“全部替换”命令既然不能“全部替换”，就来个“半自动”的，找一个换一个，不换的查找下一个，除了这法没其他的。
　　如果“，^p”这招失灵，只有手动换了。逗号太多，手动比电脑查找快。
　　现在想起CCED的好了。CCED能将表格转换为文字。能复制过来就能替换，到CCED里又能变成表格。

Answer 2

查找替换里面第三个叫"定位"，定位目标选"表格"，点"定位"然后替换你表格中的空格和逗号，"替换为"里面不填，点"全部替换"。
但是词中间的空格要保留的话就不能用"全部替换"。

Answer 3

空格的话，查找“ ”（就是输入一个空格），替换为空（就是什么也不填）；逗号的话，查找输入“，^p”，替换为，输入"^p"；说明：引号去掉

Answer 4

这个不用在word表格里查找替换只要你关键字选对了就可以不用一个一个的吧空格这些删掉

Answer 5

空格好办，逗号不好处理，似乎只能VBA处理了。

追答

写了个VBA代码。附件已上传，演示效果和代码如下。

需要注意的是，代码中的操作对象是Tabales(1)，也就是文件中的第一个表格。不清楚你的表格是整个文件中的第几个，您可以自行修订一下。

Private Sub CommandButton1_Click()
On Error Resume Next
Dim i, j As Integer
Dim s As String
With ActiveDocument.Tables(1)
    For i = 1 To .Rows.Count
        For j = 1 To .Columns.Count
            s = .Cell(Row:=i, Column:=j).Range.Text
            s = Left(s, Len(s) - 2)
            If Right(s, 1) = "，" Then s = Left(s, Len(s) - 1)
            If Left(s, 1) = " " Then s = Trim(s)
            .Cell(Row:=i, Column:=j).Range.Text = s
        Next
    Next
End With
End Sub