envelopes and labels

[Sabrina913]

Is there a way to put the "envelopes and labels" button on the desktop? I
print alot of envelopes and instead of having to open word each time and then
going to tools etc. I would like to just click a button on the desktop that
opens for envelopes and labels.

 

[Jezebel]

Not as such. You could write a macro to go directly to Envelopes and Labels;
then create a desktop icon to start Word and run that macro.

 

[Charles Kenyon]

As Jezebel says, you could write a macro to do this and access the macro.
However, a simpler method might be to create an envelope template and put a
shortcut to that on your desktop. I would incorporate macrobutton fields in
the address block of the envelope template for ease of use. I have such a
template and use an AutoNew macro to select the first field upon document
creation.

I use hidden text (displayed) to remind me to use the F11 key to move to the
next field. My complete set of macros is:

Option Explicit
Dim bEnvHidden As Boolean ' setting for display of hidden text
Dim iEnvFieldCodes As Integer ' setting for field code shading

Sub AutoOpen()
'
' AutoOpen Macro
' Macro recorded 10/13/01 by Charles K. Kenyon
' Macro rewritten 15 April 2002 by Charles K. Kenyon adding settings
portions
'
' Get user options in global variables and then set for this doc
With ActiveWindow.View
iEnvFieldCodes = .FieldShading
bEnvHidden = .ShowHiddenText
.FieldShading = wdFieldShadingWhenSelected
.ShowHiddenText = True
End With
End Sub

Sub AutoNew()
AutoOpen
'
' Move to field to type text
Selection.HomeKey Unit:=wdStory
Selection.NextField.Select
Selection.NextField.Select
End Sub

Sub AutoClose()
' Macro written by Charles K. Kenyon 15 April 2002
'
' reset views to what they were when document opened
With ActiveWindow.View
.FieldShading = iEnvFieldCodes
.ShowHiddenText = bEnvHidden
End With
'
' clear variables
iEnvFieldCodes = Empty
bEnvHidden = Empty
End Sub