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)
Jigar Kantharia India Local time: 16:58 French to English + ...
TOPIC STARTER
Excellent
Jul 27, 2017
This working very fast... however, at many places it did not change the case, for e.g. (actif totale et)
Subject:
Comment:
The contents of this post will automatically be included in the ticket generated. Please add any additional comments or explanation (optional)
Rolf Keller Germany Local time: 13:28 English to German
Oops, my proposal worked too fast
Jul 27, 2017
This should work fast & correct:
Sub captalize()
' captalize the first letter of each line and uncaptitalize the rest
Manage your TMs and Terms ... and boost your translation business
Are you ready for something fresh in the industry? TM-Town is a unique new site for you -- the freelance translator -- to store, manage and share translation memories (TMs) and glossaries...and potentially meet new clients on the basis of your prior work.
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