This site uses cookies.
Some of these cookies are essential to the operation of the site,
while others help to improve your experience by providing insights into how the site is being used.
For more information, please see the ProZ.com privacy policy.
Set paras = ActiveDocument.Paragraphs para_count = paras.Count
For i = 1 To para_count
Set first_char = paras(i).Range.Characters.Item(1) If IsLowerChar(first_char.Text) Then first_char.Select Selection.TypeText (UCase(first_char.Text)) End If
Set paras = ActiveDocument.Paragraphs para_count = paras.Count
For i = 1 To para_count
Set first_char = paras(i).Range.Characters.Item(1) If IsLowerChar(first_char.Text) Then first_char.Select Selection.TypeText (UCase(first_char.Text)) End If
Next i
End Sub
Function IsLowerChar(CHR As String) As Boolean CHR = Left(CHR, 1) X1 = (LCase(CHR) = CHR) X2 = (UCase(CHR) = CHR) IsLowerChar = X1 And (Not X2) End Function ▲ Collapse
Subject:
Comment:
The contents of this post will automatically be included in the ticket generated. Please add any additional comments or explanation (optional)
Exclusive discount for ProZ.com users!
Save over 13% when purchasing Wordfast Pro through ProZ.com. Wordfast is the world's #1 provider of platform-independent Translation Memory software. Consistently ranked the most user-friendly and highest value
Translate faster & easier, using a sophisticated CAT tool built by a translator / developer.
Accept jobs from clients who use Trados, MemoQ, Wordfast & major CAT tools.
Download and start using CafeTran Espresso -- for free