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

honey_bee

表格单元格中最后以空格结束时如何删除

wangd111

用“替换”。

如果不能达到你的要求，那么发个附件上来看看。

wdwc

我不会写Vba，所以用查找和替换给你试一下。

1、你的意思是只删除表格里面的而不删除正文中的是吗？这样的话如果表格少你可以先把表格复制出来到新文件，然后查找“( @)(^13)”，替换为“\2”，然后把使用通配符勾上，注意第一个括号里有空格，输入时不带引号。

2、如果正文中段落标记之前的空格不保留的话，直接替换以上代码。

3、如果你的正文中的保留，又有很多的表格的话，请高手写个代码吧。

honey_bee

QUOTE:

以下是引用wdwc在2007-12-20 13:15:36的发言：

我不会写Vba，所以用查找和替换给你试一下。

1、你的意思是只删除表格里面的而不删除正文中的是吗？这样的话如果表格少你可以先把表格复制出来到新文件，然后查找“( @)(^13)”，替换为“\2”，然后把使用通配符勾上，注意第一个括号里有空格，输入时不带引号。

2、如果正文中段落标记之前的空格不保留的话，直接替换以上代码。

3、如果你的正文中的保留，又有很多的表格的话，请高手写个代码吧。

这个似乎无法替换表格最后一个空格，见附件。

Hr4f0Hek.rar (5.63 KB, 下载次数: 18)

2007-12-20 14:42 上传

点击文件名下载附件

[此贴子已经被作者于2007-12-20 14:43:05编辑过]

wdwc

你说的正确，表格最后的一个段落标记与其他的不大一样，用^13好像不行，我再看看

sylun

如表格不多，可试试如下办法：将光标移至表格首行上边框位置，当光标变成向下箭头状时，按下鼠标，以拖动方式选中表格各列（不是选中整个表格），然后按Ctrl+E（或工具栏的“居中”按钮），再按Ctrl+J（或工具栏的“两端对齐”按钮），如此转换一两次，这样单元格两端的空格可清除。不过此法有可能影响单元格段落对齐格式。

wdwc

试一下这个宏

Sub 删除单元格段落标记前空格()
'
' 删除单元格段落标记前空格 Macro
' 宏在 2007-12-21 由 User 录制
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^32"
        .Replacement.Text = "$"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "($)[!^13]"
        .Replacement.Text = "^32"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "$"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ActiveDocument.Save
End Sub

wdwc

这个宏先将所有空格替换为$，然后将所有的后面不是段落标记的$替换为空格，然后删除所有的$,

如果你的文档中没有$不会出错，如果有的话，那就把$改成一个别的标记。

表格的最后一个段落标记上边有个小横，这不是段落标记，所以用^13好像不行。这是一个单元格结束标记，用查找和替换找不到它的代码。

honey_bee

QUOTE:

以下是引用wdwc在2007-12-21 10:16:58的发言：

这个宏先将所有空格替换为$，然后将所有的后面不是段落标记的$替换为空格，然后删除所有的$,

如果你的文档中没有$不会出错，如果有的话，那就把$改成一个别的标记。

表格的最后一个段落标记上边有个小横，这不是段落标记，所以用^13好像不行。这是一个单元格结束标记，用查找和替换找不到它的代码。

好像多删除了字符

honey_bee

我刚才又试了一下，似乎有的空格没删掉。

顶起来再看看别的方案