Microsoft Office Forums - View Single Post - [Solved] Converts the words to actual All Capital Letters not workin macro??

Thread: [Solved] Converts the words to actual All Capital Letters not workin macro??

View Single Post

Old

12-08-2011, 03:31 PM

Stefan Blom Stefan Blom is offline

Stefan Blom is offline

Stefan Blom uses Windows 7 64bit

Windows 7 64bit Stefan Blom uses Office 2010 32bit

Stefan Blom uses Office 2010 32bit

Office 2010 32bit

Moderator

Join Date: Aug 2011

Posts: 4,036

Stefan Blom is a name known to all

Stefan Blom is a name known to all

Stefan Blom is a name known to all

Stefan Blom is a name known to all

Stefan Blom is a name known to all

Stefan Blom is a name known to all

Default

I suspect you have to look at this character by character for it to work properly:

Dim c As Range

For Each c In ActiveDocument.Characters
If c.Font.AllCaps = -1 Then
c.Case = wdUpperCase
End If
Next c

__________________
Stefan Blom
Microsoft Word MVP

Microsoft 365 apps for business
Windows 11 Professional

Reply With Quote