word2003中英文每句话开始第一个字母由小写改为大写。(每句的句尾有英文句号)我想用if语句,如果出现".",那么"."后面字母改为大写。并且编程后怎样应用到word中。
示例:把c:\1.doc中的“一”替换为“壹”:
Private Sub Command1_Click()
Dim wordObj
Set wordObj = CreateObject("Word.Application")
With wordObj.Documents.Open("c:\1.doc")
.Content.Find.Execute "一", , , , , , , , , "壹", 2
.Save
End With
wordObj.quit
End Sub追问
Private Sub Command1_Click()
Dim wordObj
Set wordObj = CreateObject("Word.Application")
With wordObj.Documents.Open("c:\1.doc")
.Content.Find.Execute "一", , , , , , , , , "壹", 2
.Save
End With
wordObj.quit
End Sub追问
您这是替换固定字,但是我要改的是不一样的,每句话首字母是不同的。
温馨提示:答案为网友推荐,仅供参考