如何快速删除每行前的空格

hnlyswx · 发表于 2018-5-7 10:13

一篇文档每行前都有空格，想快速删除，请高手指点。具体内容请看附件。

相见是缘8 · 发表于 2018-5-7 10:36

Sub 删除段前的空格()
With ActiveDocument.Content.Find
      Selection.HomeKey unit:=wdLine
      .Parent.InsertBefore Text:=vbCr
      .Execute "^13　", , , 1, , , , , , "^p", 2
      .Parent.Paragraphs(1).Range.Delete
End With
End Sub

相见是缘8 · 发表于 2018-5-7 10:39

本帖最后由相见是缘8 于 2018-5-7 13:00 编辑

…………。

ming0018 · 发表于 2018-5-7 11:17

相见是缘8 发表于 2018-5-7 10:39
Sub 去掉段前的空格() With ActiveDocument.Content.Find Selection.HomeKey unit:=wdLine ...

不用selection试一下

duquancai · 发表于 2018-5-7 12:14

这些代码，都存在不少的坑！

ming0018 · 发表于 2018-5-7 12:51

duquancai 发表于 2018-5-7 12:14
这些代码，都存在不少的坑！

那我把坑列举一下：
1空格有多有少，可能全角，可能半角，也可能是连续空格；
2空格如果在段中，空格如果在段后，要删怎么办，虽然楼主现在没有这个需求；
3表格里有空格怎么办？（情况可能也包括段前段后）。
4如果你中间的空格要删，英文的空格要保留，又怎么办。
5待续……。

相见是缘8 · 发表于 2018-5-7 13:22

本帖最后由相见是缘8 于 2018-5-7 18:19 编辑

duquancai 发表于 2018-5-7 12:14
这些代码，都存在不少的坑！

大神好！
本代码只针对“楼主”提供的“附件”要求而言，至于坑不坑的，我现在的水平就只有这么多，希望能起一个“抛砖引玉”的作用，期待大神的代码！

相见是缘8 · 发表于 2018-5-7 13:24

ming0018 发表于 2018-5-7 12:51
那我把坑列举一下：
1空格有多有少，可能全角，可能半角，也可能是连续空格；
2空格如果在段中，空格如 ...

同样期待你的代码！

duquancai · 发表于 2018-5-7 13:29

相见是缘8 发表于 2018-5-7 13:22
大神好！
本代码只有针对“求助者”提供的“附件”要求而言，至于坑不坑的，我现在的水平就只有这么高， ...

我举例，详见图片，只删除段前的空格（这里的空格只说：ASCII值为32的，其它的先不说），你看看你的写的代码能否删除这两个坑！

hnlyswx · 发表于 2018-5-7 17:24

谢谢各位的回答，更好的解决办法还在期待中……

		自动登录	找回密码
密码			免费注册

[求助] 如何快速删除每行前的空格