<div>
It the document is not protected then the code will do nothing
</div>


It the document is not protected then the code will do nothing

<div>
If it is protected, you remove the protection, then you test it again. That test will be false and so nothing will be done.
</div>


If it is protected, you remove the protection, then you test it again. That test will be false and so nothing will be done.

<div>
Solved my first question, but not my second
</div>


Solved my first question, but not my second

<div>
<div class="content wysiwyg-content">
I have created a word document with form protected text boxes and assigned a makro with a keyboard shortcut that unprotects and reprotects the sheet after it goes to the end of the document, and I enters a specified auto text. &nbsp;However, the makro doesn't produce an outcome &nbsp;(nothing changes) with some random text to be insterted.<br />
<br />
So here my questions:<br />
<br />
How do I assign the &nbsp;autotext &quot;abc&quot; instead of the random text?<br />
And what, if anything is wrong with the makro, since it doesn’t work? one reason I could come up with might be that a macbook does not have an EndKey. Does that matter?<br />
<br />
So this is the current Makro:<br />
<br />
Sub Macro3()<br />
Set aDoc = ActiveDocument<br />
If aDoc.ProtectionType &lt;&gt;&nbsp;wdNoProtection Then<br />
&nbsp;aDoc.Unprotect<br />
&nbsp; &nbsp; Selection.EndKey Unit:=wdStory<br />
Set aDoc = ActiveDocument<br />
If aDoc.ProtectionType &lt;&gt;&nbsp;wdNoProtection Then<br />
&nbsp;aDoc.Unprotect<br />
&nbsp;Selection.InsertBefore &quot;department six&quot;<br />
&nbsp;aDoc.Protect Type:=wdAllowOnlyRevisions<wbr />, Password:=strPassword<br />
End If<br />
End Sub<br />
<br />
thanks.
</div>
</div>


I have created a word document with form protected text boxes and assigned a makro with a keyboard shortcut that unprotects and reprotects the sheet after it goes to the end of the document, and I enters a specified auto text.  However, the makro doesn't produce an outcome  (nothing changes) with some random text to be insterted.

So here my questions:

How do I assign the  autotext "abc" instead of the random text?
And what, if anything is wrong with the makro, since it doesn’t work? one reason I could come up with might be that a macbook does not have an EndKey. Does that matter?

So this is the current Makro:

Sub Macro3()
Set aDoc = ActiveDocument
If aDoc.ProtectionType <> wdNoProtection Then
 aDoc.Unprotect
    Selection.EndKey Unit:=wdStory
Set aDoc = ActiveDocument
If aDoc.ProtectionType <> wdNoProtection Then
 aDoc.Unprotect
 Selection.InsertBefore "department six"
 aDoc.Protect Type:=wdAllowOnlyRevisions, Password:=strPassword
End If
End Sub

thanks.

Word Makro

Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.