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: 02:18 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: 22:48 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
Create customer quotes and invoices from within Trados Studio
Trados Business Manager Lite helps to simplify and speed up some of the daily tasks, such as invoicing and reporting, associated with running your freelance translation business.
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