清除选择区域内段首的空格

菜菜行者

－－－－－－－－－－－－－－－－－－－－－－－－－－－
上面三行实现了用3个宏定义了不同的字体和行距，想增加下：
在分别运行宏时，把各自段首的空格给删除，这可以实现吗，谢谢各位！

菜菜行者

没人吗？
自己顶一个！

413191246se

整个宇宙唯一宏：

1. Sub 删除段落首尾空格()
   
2. '全选/居中/两端对齐
   
3. '[方法1]
   
4. '    SendKeys "^(aej)", True
   
5. '[方法2]
   
6. '    Selection.WholeStory
   
7. '    Application.Run "CenterPara"
   
8. '    Application.Run "LeftPara"
   
9. '[方法3]
   
10.     Selection.WholeStory
    
11.     CommandBars.FindControl(ID:=122).Execute
    
12.     CommandBars.FindControl(ID:=123).Execute
    
13. End Sub

复制代码

菜菜行者

413191246se 发表于 2016-4-11 11:00
整个宇宙唯一宏：

感谢se 的回复，3种方法都是在word2003测试。
第一种方法：没有清除行前的空格，只是全选了然后两端对齐。
第二种方法：一运行就卡死，看不到效果。
第三种方法：选择区域外的地方也替换了。
能否灵活一些，选择区域替换。

413191246se

楼主，确实我没好好看标题，清除选择区域内段首的空格。——该宏还真没有！下面我提供一下《删除所有空格》的宏，它的特点是：如果未选，则删除所有空格；如果选择了，则删除选定区域内所有空格。——你要的 宏还真没有，不过，似乎可以试试编程一下。

1. Sub 删除所有空格()
   
2.     Dim myRange As Range
   
3.     If Selection.Type = wdSelectionIP Then Selection.WholeStory
   
4.     Set myRange = Selection.Range
   
5.     myRange.Find.Execute FindText:="　", replacewith:="", Replace:=wdReplaceAll    '删除所有全角空格
   
6.     myRange.Find.Execute FindText:="^w", replacewith:="", Replace:=wdReplaceAll    '删除所有空白区域
   
7. End Sub

复制代码

413191246se

成功——其实就是将选定区域居中，再居左，就删除了段首段尾空格：
Sub 删除选定区域段落首尾空格()
    CommandBars.FindControl(ID:=122).Execute
    CommandBars.FindControl(ID:=123).Execute
End Sub

菜菜行者

413191246se 发表于 2016-4-13 15:34
成功——其实就是将选定区域居中，再居左，就删除了段首段尾空格：
Sub 删除选定区域段落首尾空格()
     ...

谢谢！
但如果是用shitf+回车的换行符就无效了！

413191246se

那就先执行此宏即可：

1. Sub 删除手动换行符和假段落标记()
   
2.     ActiveDocument.Content.Find.Execute findtext:="^l", replacewith:="^p", Replace:=wdReplaceAll
   
3.     ActiveDocument.Content.Find.Execute findtext:="^13", replacewith:="^p", Replace:=wdReplaceAll
   
4. End Sub

复制代码

菜菜行者

413191246se 发表于 2016-4-18 14:31
那就先执行此宏即可：

是的

谢谢！

11ww22

这个能否在同一文件夹里的多个word文档，批量处理？我试了下貌似不行？？没有焦点