vodkasoda
01-11-2012, 03:23 AM
Hopefully very quick & easy for somebody ... I receive an E:Mailed Zip file on a regular basis, within which are a number of files. One is called Test.rtf & I have to work from it, but not save it, I just access data from it. It is easier for me to use when in Landscape, so I run the following code against it as soon as I open it, but I can't UnSelect the data, how do I do this please ?!?
Sub KA_Test_Formatter()
'
' KA_Test_Formatter Macro
'
'
Application.ScreenUpdating = False
Selection.WholeStory
With Selection
.Font.Name = "Courier New"
.Font.Size = 8
.PageSetup.Orientation = wdOrientLandscape
End With
Selection.??? <<< Here, how do I UnSelect the data ?
Application.ScreenUpdating = True
End Sub
Sub KA_Test_Formatter()
'
' KA_Test_Formatter Macro
'
'
Application.ScreenUpdating = False
Selection.WholeStory
With Selection
.Font.Name = "Courier New"
.Font.Size = 8
.PageSetup.Orientation = wdOrientLandscape
End With
Selection.??? <<< Here, how do I UnSelect the data ?
Application.ScreenUpdating = True
End Sub