[AccessD] OT: Word VBA - skip code?

Just read this in the help file....
 

pphowprotectfromviruses_2Security levels in Word


Microsoft Word offers the following levels of security to reduce the chances
that macro viruses will infect your documents, templates, or add-ins: 


*	High   You can run only macros that have been digitally
<javascript:HelpPopup('oftip9.hlp','IDH_ofdefDigitalSignature');> signed and
that you confirm are from a trusted source. Before trusting a source, you
should confirm that the source is responsible and uses a virus scanner
before signing macros. Unsigned macros are automatically disabled, and Word
opens the document without any warning.


Notice the last part that says "...opens the document without any warning."
Change your security settings to High and make sure the document is not
digitally signed and the document isn't from a trusted source (if you must,
delete the trusted source).
 
Scott

-----Original Message-----
From: Roz Clarke [mailto:roz.clarke at donnslaw.co.uk]
Sent: Tuesday, July 22, 2003 9:21 AM
To: AccessD (AccessD at databaseadvisors.com)
Subject: [AccessD] OT: Word VBA - skip code?



Hello everyone

Another nasty problem for you. :-)

I have been asked to insert an additional line into all our precedent
letters (there are a few thousand). So far so doody; I can find the right
insertion point and put the line in.

What's stopping me is that many of the precedent letters have code of their
own. Somewhere in the loop below, I need to prevent any code in the Open
event of the document from running.

If Application.FileSearch.Execute > 0 Then

 For i = 1 To Application.FileSearch.FoundFiles.Count

        strName = Application.FileSearch.FoundFiles(i)

        Set objDoc = wrdapp.Documents.Open(strName)

        If objDoc.ReadOnly = False Then

            Set myRange = objDoc.Content

            myRange.Find.Execute FindText:=strFindText, Forward:=True

            myRange.InsertAfter strTestText

        End If

        doc.Close

 Next i

The procedures I need to kaibosh all have the same name: Document_Open
(obviously), if that helps. How can I get my code to bypass those
procedures??

Yours hopefully

Roz

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030722/f46c2f01/attachment-0001.html>