Change text to uppercase?

[StargateFanFromWork]

I'm still grappling with vb code. I try to avoid the code that needs
selecting even if the recorded keystrokes give that. How can I get the same
results as below without using "Selection", pls?
****************************************************
Sub Uppercase()
'
Selection.WholeStory
Selection.Range.Case = wdUpperCase
End Sub
****************************************************

TIA. D

 

[Jonathan West]

I'm still grappling with vb code. I try to avoid the code that needs
selecting even if the recorded keystrokes give that. How can I get the
same results as below without using "Selection", pls?
****************************************************
Sub Uppercase()
'
Selection.WholeStory
Selection.Range.Case = wdUpperCase
End Sub
****************************************************

TIA. D

ActiveDocument.Range.Case = wdUpperCase


--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

 

[Greg Maxey]

If the cursor is the only indicator of the story that you are in then you
would have to do it something like this:

Sub Test()
ActiveDocument.StoryRanges(Selection.StoryType).Case = wdUpperCase
End Sub

 

[StargateFanFromWork]

ActiveDocument.Range.Case = wdUpperCase

Perfect! Thanks, Jonathan. I'll get the hang of it yet. D