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: 03:11 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:41 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 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.
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