如何验证每段首字母是否大写，若是小写则加一个空格并删除回车

sozega

  各位老师：
        在把pdf粘贴到word时，文字分成很多段，需要把他们接回去。
         比如：
Business and risk management strategies should strive for economic
performance, not accounting performance.
需要变成：
Business and risk management strategies should strive for economic performance, not accounting performance.

也就是要去掉一个回车，同时在第二行的performance,前面加一个空格，否则会变成
economicperformance ，字母都连在一起。


        在论坛找到一个代码，首先看每行的首字母是否大写，是则不变，否则去掉上一行的回车。
但对于我的文档来说就会出现部分单词连在一起的情况。请各位老师修改一下，或者帮忙写个新的代码，谢谢。

1. Sub deal()
   
2.      Dim i%, rng As Range
   
3.      For i = ActiveDocument.Paragraphs.Count To 2 Step -1
   
4.          If Not Paragraphs(i).Range.Characters.First Like "[A-Z]" Then
   
5.              Paragraphs(i).Previous.Range.Characters.Last.Delete
   
6.             
   
7.          End If
   
8.      Next
   
9.    
   
10. End Sub

复制代码

kqbt

这类问题还是要具体问题具体分析，下面的代码仅基于附件测试：

1. Sub deal()
   
2.      Dim i%, rng As Range
   
3.      For i = ActiveDocument.Paragraphs.Count To 2 Step -1
   
4.          If Paragraphs(i).Previous.Range.Characters.Last.Previous Like "[a-z]" Then
   
5.              Paragraphs(i).Previous.Range.Characters.Last = Space(2)
   
6.          End If
   
7.      Next
   
8. End Sub

复制代码

sozega

多谢老师帮忙

zjgwzj

提示“子过程或函数未定义”