[AccessD] OT: Word VBA - skip code?

This works:
 
objWordApplication.AutomationSecurity = msoAutomationSecurityForceDisable
 
Why the MSDN article on Word startup code says you can't disable the code I
do not know.
 
Roz
 
-----Original Message-----
From: Roz Clarke [mailto:roz.clarke at donnslaw.co.uk] 
Sent: 22 July 2003 17:14
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] OT: Word VBA - skip code?
 
Thanks Scott, and sorry for calling you Marcus in my email to Charles :/
 
I will try both your suggestions in the morning.
 
Roz
 
-----Original Message-----
From: Marcus, Scott (GEAE, Contractor) [mailto:scott.marcus at ae.ge.com] 
Sent: 22 July 2003 15:06
To: 'Access Developers discussion and problem solving'
Subject: RE: [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/20030724/fa88210d/attachment-0001.html>