根据选择的行数进行替换为换行符

菜菜行者

如上图，
1、如果选中第一、第二行，则把第一行后面的换段符改为换行符，共换1处；
2、如果选中三行，则把第一、第二行后面的换段符也改为换行符，共换2处；
3、如果只是选中其中行，则不做任何处理。

求大神围观，先谢谢啦！

suse360

从你的描述完全没有了解到你要做什么事情。如果能贴一个附件实例最好。

菜菜行者

suse360 发表于 2016-9-6 11:51
从你的描述完全没有了解到你要做什么事情。如果能贴一个附件实例最好。

就三行文字，有必要上传附件？

讲得不够清楚？

413191246se

楼主，你好！——昨晚看了，开始以为很简单，但实际上 VBA 代码出错，我未搞定，等待高人吧！

duquancai

1. Sub shishi()
   
2.     With CreateObject("VBScript.Regexp")
   
3.         .Global = True: .MultiLine = True
   
4.         .Pattern = "^[^\r]*"
   
5.         n = .Execute(Selection.Text).Count
   
6.         If n >= 2 Then
   
7.             Selection.MoveLeft , 1, wdExtend
   
8.             .Pattern = Chr(13)
   
9.             Selection.Text = .Replace(Selection.Text, Chr(11))
   
10.         End If
    
11.     End With
    
12. End Sub

复制代码

菜菜行者

duquancai 发表于 2016-9-7 11:12

谢谢！太厉害了！

能否优化一下：
就是我用组合键选择的的内容不是连续的，
用ctrl+鼠标选择了几段内容不是在一起的，然后代码只替换了最后一组，能解决吗？

duquancai

菜菜行者 发表于 2016-9-8 18:31
谢谢！太厉害了！

能否优化一下：

朋友，对不起，首先声明：是Wordvba中，请看微软解释：

菜菜行者

duquancai 发表于 2016-9-8 20:35
朋友，对不起，首先声明：是Wordvba中，请看微软解释：

哦~
谢谢啦！