[JLW1]

I have a protected letter in Word 2007 (docx). When I select the Mailing tab
in the ribbon, the Envelope button is not available. Is it possible to allow
access to create an envelope when in a protected word document/

[Jay Freedman]

JLW1 wrote:
I have a protected letter in Word 2007 (docx). When I select the
Mailing tab in the ribbon, the Envelope button is not available. Is
it possible to allow access to create an envelope when in a protected
word document/

You'd need a macro that unprotects the document, inserts the envelope, and
reprotects the document. You can put a button on the Quick Access Toolbar to
run the macro.

Here's a fairly minimal macro to do the job. I tested it in Word 2003; I
don't have 2007 here, but it should work the same.

Sub ProtectedEnvelope()
Dim dlg As Dialog

With ActiveDocument
If .ProtectionType wdNoProtection Then
.Unprotect
End If

Set dlg = Dialogs(wdDialogToolsEnvelopesAndLabels)
dlg.DefaultTab = wdDialogToolsEnvelopesAndLabelsTabEnvelopes
dlg.Show

.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End With
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

[JLW1]

Shoot, that's what I feared. Thanks Jay!

"Jay Freedman" wrote:

JLW1 wrote:
I have a protected letter in Word 2007 (docx). When I select the
Mailing tab in the ribbon, the Envelope button is not available. Is
it possible to allow access to create an envelope when in a protected
word document/

You'd need a macro that unprotects the document, inserts the envelope, and
reprotects the document. You can put a button on the Quick Access Toolbar to
run the macro.

Here's a fairly minimal macro to do the job. I tested it in Word 2003; I
don't have 2007 here, but it should work the same.

Sub ProtectedEnvelope()
Dim dlg As Dialog

With ActiveDocument
If .ProtectionType wdNoProtection Then
.Unprotect
End If

Set dlg = Dialogs(wdDialogToolsEnvelopesAndLabels)
dlg.DefaultTab = wdDialogToolsEnvelopesAndLabelsTabEnvelopes
dlg.Show

.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End With
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.