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 Indie Local time: 07:18 francuski > angielski + ...
NOWY TEMAT
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 Niemcy Local time: 03:48 angielski > niemiecki
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
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
Create your account in minutes, and start working! 3-month trial for agencies, and free for freelancers!
The system lets you keep client/vendor database, with contacts and rates, manage projects and assign jobs to vendors, issue invoices, track payments, store and manage project files, generate business reports on turnover profit per client/manager etc.