关于word中利用宏解决文档第一个英文字母大字的问题想录制一个宏,例子:在其它地方粘贴过来一段:ALLthatcertain….,把它粘贴到一个空白文档后,想录制一个宏,利用录制后相应的宏的相应激发

Question

关于word 中利用宏解决文档第一个英文字母大字的问题
想录制一个宏,
例子:在其它地方粘贴过来一段:ALL that certain….,把它粘贴到一个空白文档后,想录制一个宏,利用录制后相应的宏的相应激发键,使它变为:All that certain…,意思就是说使ALL 变成All,要提醒大家的是,此时ALL位于文档的第一个单词,其前面没有任何单词了.
下面是我个人对这个问题的猜想,我感觉解决此问题的关键是自动分页符,不过我不知道这个自动分页符的数字符号是什么,比如 回车的符号是^P,但是自动分页符呢?

Answer 1

Sub Macro1()
Dim oParagraph
Dim strContent
Dim i,s
For Each oParagraph In ActiveDocument.Paragraphs
strContent = LTrim(oParagraph.Range.Text)
If Len(strContent) 0 Then
i = InStr(strContent," ")
If i Then
s = Left(strContent,i - 1)
strContent = Mid(strContent,i)
End If
oParagraph.Range.Text = StrConv(s,vbProperCase) & strContent
Exit Sub
End If
Next
End Sub