Insert footer text in a word document - (Moved)

[dpollard]

 

Hi Guys,

I'm writing a script that loops through all the word documents in a given folder and inserts text into the footer.
This is mostly working great.

I have run into a problem where the footer in a few documents is somehow protected.
If I open word manually I can select the text in the footer but I can't add to it.
I can update the main text in the document so it isn't simply password protected.
Rather than try and unprotect it I'm happy just to skip over it.

I currently get an error on the line shown below $oRange.Inserafter

      ; Insert the text
      $oRange.Insertafter($text1 & $LastSavedDay &'/'& $LastSavedMonth &'/'& $LastSavedYear & $text2)
      If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Insert Modified Date", _
        "Error 010 Setting first footer InsertAfter location" & $file & @CRLF & "@error = " & @error & ", @extended = " & @extended)

"E:\FileConversion\InsertCreationDate2.au3" (120) : ==> The requested action with this object has failed.:
$oRange.Insertafter($text1 & $LastSavedDay &'/'& $LastSavedMonth &'/'& $LastSavedYear & $text2)
$oRange^ ERROR

It stops at the above line and does not get to the @error statement.

I guess what I really need is to catch this error and jump to the next document in my for next loop.

I'm happy to add the entire script to this post if anyone thinks that will help.

Any Ideas?

David

[water]

Add a COM error handler to your script. Check ObjEvent in the help file for details and examples. 

[Melba23]

Moved to the appropriate forum.

Moderation Team

[dpollard]

21 hours ago, water said:

Add a COM error handler to your script. Check ObjEvent in the help file for details and examples. 

Hi Water,

Thanks for the point in the right direction.  I managed to figure it out from the help once I knew were to look.

My script now warns the user of the files that can't be modified and carries on which is exactly what I want to happen :)