如何用代码把奇数行，全部改成偶数行的效果（鼠标点击行末后，光标停留在回车符号前面

chenlifeng123

1

2

1

2

1

2

以上写了数字的每行中(效果在附件中才能看到，本提问处体现不了)：

1、如果是奇数行，鼠标点击该行的回车符后面，光标还是停留在回车符后面；

2、如果是偶数行，鼠标点击该行的回车符后面，光标却停留在回车符的前面。

   我想这很可能是回车符号的原因。

请问：用代码把奇数行，全部改成偶数行的效果（鼠标点击停留在回车符号前面），

请问如何处理呢？

vbee

1. Sub vbee()
   
2. For i = 1 To ActiveDocument.Sentences.Count
   
3. C = ActiveDocument.Sentences(i).Characters.Count
   
4. If Asc(ActiveDocument.Sentences(i).Characters(C)) = 13 Then
   
5. ActiveDocument.Sentences(i).Characters(C).Delete
   
6. ActiveDocument.Sentences(i).Characters(C - 1).InsertAfter Chr(13)
   
7. End If
   
8. Next
   
9. End Sub
   

复制代码

chenlifeng123

vbee 发表于 2018-10-5 07:51

您好，请问您知道这种符号是怎么产生的吗？

vbee

是QQ或微信等软件中复制粘贴过来造成的

vbee

《Word 2013实战技巧精粹》中有相关内容说明

chenlifeng123

vbee 发表于 2018-10-5 07:51

反复尝试发现，您的办法非常管用。只是在文档内容多达好几页的时候，有一点慢。如果用replace等方法能达成效果，是不是会快一点呢？似乎也未必，也不会处理。

vbee

chenlifeng123 发表于 2018-10-10 10:26
反复尝试发现，您的办法非常管用。只是在文档内容多达好几页的时候，有一点慢。如果用replace等方法能达 ...

1. Sub vbee2()
   
2.    ActiveDocument.Select
   
3.     Selection.Find.ClearFormatting
   
4.     Selection.Find.Replacement.ClearFormatting
   
5.     With Selection.Find
   
6.         .Text = "^13"
   
7.         .Replacement.Text = "^p"
   
8.         .Forward = True
   
9.         .Wrap = wdFindContinue
   
10.         .Format = False
    
11.         .MatchCase = False
    
12.         .MatchWholeWord = False
    
13.         .MatchByte = False
    
14.         .MatchAllWordForms = False
    
15.         .MatchSoundsLike = False
    
16.         .MatchFuzzy = False
    
17.         .MatchWildcards = True
    
18.     End With
    
19.     Selection.Find.Execute Replace:=wdReplaceAll
    
20. End Sub
    

复制代码