<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:st1="urn:schemas-microsoft-com:office:smarttags" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 10">
<meta name=Originator content="Microsoft Word 10">
<link rel=File-List href="cid:filelist.xml@01C351D8.703122C0">
<title>OT: Word VBA - skip code?</title>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="time"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="date"/>
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:SpellingState>Clean</w:SpellingState>
<w:GrammarState>Clean</w:GrammarState>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:EnvelopeVis/>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]--><!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;
mso-font-charset:2;
mso-generic-font-family:auto;
mso-font-pitch:variable;
mso-font-signature:0 268435456 0 0 -2147483648 0;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;
mso-font-charset:0;
mso-generic-font-family:swiss;
mso-font-pitch:variable;
mso-font-signature:1627421319 -2147483648 8 0 66047 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
h1
{mso-style-next:Normal;
margin-top:12.0pt;
margin-right:0cm;
margin-bottom:3.0pt;
margin-left:21.6pt;
text-indent:-21.6pt;
mso-pagination:widow-orphan;
page-break-after:avoid;
mso-outline-level:1;
mso-list:l1 level1 lfo4;
tab-stops:list 21.6pt;
font-size:12.0pt;
mso-bidi-font-size:16.0pt;
font-family:Arial;
mso-font-kerning:16.0pt;
mso-ansi-language:EN-GB;
font-weight:bold;}
h2
{mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
mso-pagination:widow-orphan;
mso-outline-level:2;
font-size:18.0pt;
font-family:"Times New Roman";
font-weight:bold;}
p.MsoTitle, li.MsoTitle, div.MsoTitle
{mso-style-update:auto;
margin-top:12.0pt;
margin-right:0cm;
margin-bottom:3.0pt;
margin-left:18.0pt;
mso-pagination:widow-orphan;
mso-outline-level:1;
font-size:16.0pt;
font-family:Arial;
mso-fareast-font-family:"Times New Roman";
mso-font-kerning:14.0pt;
mso-ansi-language:EN-GB;
font-weight:bold;}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;
text-underline:single;}
a:visited, span.MsoHyperlinkFollowed
{color:blue;
text-decoration:underline;
text-underline:single;}
p
{mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
p.t, li.t, div.t
{mso-style-name:t;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
span.EmailStyle20
{mso-style-type:personal;
mso-style-noshow:yes;
mso-ansi-font-size:10.0pt;
mso-bidi-font-size:10.0pt;
font-family:Arial;
mso-ascii-font-family:Arial;
mso-hansi-font-family:Arial;
mso-bidi-font-family:Arial;
color:navy;}
span.EmailStyle21
{mso-style-type:personal-reply;
mso-style-noshow:yes;
mso-ansi-font-size:10.0pt;
mso-bidi-font-size:10.0pt;
font-family:Arial;
mso-ascii-font-family:Arial;
mso-hansi-font-family:Arial;
mso-bidi-font-family:Arial;
color:navy;}
span.SpellE
{mso-style-name:"";
mso-spl-e:yes;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;
mso-header-margin:35.4pt;
mso-footer-margin:35.4pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
/* List Definitions */
@list l0
{mso-list-id:1876649119;
mso-list-template-ids:-737140762;}
@list l0:level1
{mso-level-number-format:bullet;
mso-level-text:\F0B7;
mso-level-tab-stop:36.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;
mso-ansi-font-size:10.0pt;
font-family:Symbol;}
@list l0:level2
{mso-level-tab-stop:72.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level3
{mso-level-tab-stop:108.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level4
{mso-level-tab-stop:144.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level5
{mso-level-tab-stop:180.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level6
{mso-level-tab-stop:216.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level7
{mso-level-tab-stop:252.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level8
{mso-level-tab-stop:288.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level9
{mso-level-tab-stop:324.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l1
{mso-list-id:2014408913;
mso-list-template-ids:-1194055714;}
@list l1:level1
{mso-level-style-link:"Heading 1";
mso-level-text:%1;
mso-level-tab-stop:21.6pt;
mso-level-number-position:left;
margin-left:21.6pt;
text-indent:-21.6pt;}
@list l1:level2
{mso-level-style-link:"Heading 2";
mso-level-text:"%1\.%2";
mso-level-tab-stop:28.8pt;
mso-level-number-position:left;
margin-left:28.8pt;
text-indent:-28.8pt;}
@list l1:level3
{mso-level-text:"%1\.%2\.%3";
mso-level-tab-stop:36.0pt;
mso-level-number-position:left;
margin-left:36.0pt;
text-indent:-36.0pt;}
@list l1:level4
{mso-level-text:"%1\.%2\.%3\.%4";
mso-level-tab-stop:43.2pt;
mso-level-number-position:left;
margin-left:43.2pt;
text-indent:-43.2pt;}
@list l1:level5
{mso-level-text:"%1\.%2\.%3\.%4\.%5";
mso-level-tab-stop:50.4pt;
mso-level-number-position:left;
margin-left:50.4pt;
text-indent:-50.4pt;}
@list l1:level6
{mso-level-text:"%1\.%2\.%3\.%4\.%5\.%6";
mso-level-tab-stop:57.6pt;
mso-level-number-position:left;
margin-left:57.6pt;
text-indent:-57.6pt;}
@list l1:level7
{mso-level-text:"%1\.%2\.%3\.%4\.%5\.%6\.%7";
mso-level-tab-stop:64.8pt;
mso-level-number-position:left;
margin-left:64.8pt;
text-indent:-64.8pt;}
@list l1:level8
{mso-level-text:"%1\.%2\.%3\.%4\.%5\.%6\.%7\.%8";
mso-level-tab-stop:72.0pt;
mso-level-number-position:left;
margin-left:72.0pt;
text-indent:-72.0pt;}
@list l1:level9
{mso-level-text:"%1\.%2\.%3\.%4\.%5\.%6\.%7\.%8\.%9";
mso-level-tab-stop:79.2pt;
mso-level-number-position:left;
margin-left:79.2pt;
text-indent:-79.2pt;}
ol
{margin-bottom:0cm;}
ul
{margin-bottom:0cm;}
-->
</style>
<!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";}
</style>
<![endif]-->
</head>
<body lang=EN-US link=blue vlink=blue style='tab-interval:36.0pt'>
<div class=Section1>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>This works:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><span class=SpellE><font size=2 color=navy face=Arial><span
style='font-size:10.0pt;font-family:Arial;color:navy'>objWordApplication.AutomationSecurity</span></font></span><font
size=2 color=navy face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:navy'> = <span class=SpellE>msoAutomationSecurityForceDisable</span><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Why the MSDN article on Word startup code
says you can't disable the code I do not know.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Roz<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2 face=Tahoma><span
style='font-size:10.0pt;font-family:Tahoma'>-----Original Message-----<br>
<b><span style='font-weight:bold'>From:</span></b> Roz Clarke
[mailto:roz.clarke@donnslaw.co.uk] <br>
<b><span style='font-weight:bold'>Sent:</span></b> </span></font><st1:date
Month="7" Day="22" Year="2003"><font size=2 face=Tahoma><span style='font-size:
10.0pt;font-family:Tahoma'>22 July 2003</span></font></st1:date><font size=2
face=Tahoma><span style='font-size:10.0pt;font-family:Tahoma'> </span></font><st1:time
Hour="17" Minute="14"><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'>17:14</span></font></st1:time><font size=2 face=Tahoma><span
style='font-size:10.0pt;font-family:Tahoma'><br>
<b><span style='font-weight:bold'>To:</span></b> 'Access Developers discussion
and problem solving'<br>
<b><span style='font-weight:bold'>Subject:</span></b> RE: [AccessD] OT: Word
VBA - skip code?</span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2 color=navy
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:navy'>Thanks
Scott, and sorry for calling you Marcus in my email to Charles :/<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2 color=navy
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2 color=navy
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:navy'>I will
try both your suggestions in the morning.<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2 color=navy
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2 color=navy
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:navy'>Roz<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2 color=navy
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:72.0pt'><font size=2 face=Tahoma><span
style='font-size:10.0pt;font-family:Tahoma'>-----Original Message-----<br>
<b><span style='font-weight:bold'>From:</span></b> Marcus, Scott (GEAE,
Contractor) [mailto:scott.marcus@ae.ge.com] <br>
<b><span style='font-weight:bold'>Sent:</span></b> </span></font><st1:date
Month="7" Day="22" Year="2003"><font size=2 face=Tahoma><span style='font-size:
10.0pt;font-family:Tahoma'>22 July 2003</span></font></st1:date><font size=2
face=Tahoma><span style='font-size:10.0pt;font-family:Tahoma'> </span></font><st1:time
Hour="15" Minute="6"><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'>15:06</span></font></st1:time><font size=2 face=Tahoma><span
style='font-size:10.0pt;font-family:Tahoma'><br>
<b><span style='font-weight:bold'>To:</span></b> 'Access Developers discussion
and problem solving'<br>
<b><span style='font-weight:bold'>Subject:</span></b> RE: [AccessD] OT: Word
VBA - skip code?</span></font><o:p></o:p></p>
<p class=MsoNormal style='margin-left:72.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<div>
<p class=MsoNormal style='margin-left:72.0pt'><font size=2 color=blue
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:blue'>Just
read this in the help file....</span></font><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='margin-left:72.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'> <o:p></o:p></span></font></p>
</div>
<h2 style='margin-left:72.0pt'><a name="pphowprotectfromviruses_2"></a><b><font
size=5 face="Times New Roman"><span style='font-size:18.0pt'>Security levels in
Word<o:p></o:p></span></font></b></h2>
<p class=t style='margin-left:72.0pt'><font size=3 face="Times New Roman"><span
style='font-size:12.0pt'>Microsoft Word offers the following levels of security
to reduce the chances that macro viruses will infect your documents, templates,
or add-ins: <o:p></o:p></span></font></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
margin-left:108.0pt;text-indent:-18.0pt;mso-list:l0 level1 lfo6;tab-stops:list 108.0pt'><![if !supportLists]><font
size=2 face=Symbol><span style='font-size:10.0pt;mso-bidi-font-size:12.0pt;
font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-family:Symbol'><span
style='mso-list:Ignore'>·<font size=1 face="Times New Roman"><span
style='font:7.0pt "Times New Roman"'>
</span></font></span></span></font><![endif]><b><span style='font-weight:bold'>High</span></b>
You can run only macros that have been <a
href="javascript:HelpPopup('oftip9.hlp','IDH_ofdefDigitalSignature');">digitally
signed</a> 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.<o:p></o:p></p>
<div>
<p class=MsoNormal style='margin-left:72.0pt'><font size=2 color=blue
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:blue'>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).</span></font><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='margin-left:72.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'> <o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal style='margin-left:72.0pt'><font size=2 color=blue
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:blue'>Scott</span></font><o:p></o:p></p>
</div>
<blockquote style='margin-top:5.0pt;margin-right:0cm;margin-bottom:5.0pt'>
<p class=MsoNormal style='mso-margin-top-alt:0cm;margin-right:0cm;margin-bottom:
12.0pt;margin-left:72.0pt'><font size=2 face=Tahoma><span style='font-size:
10.0pt;font-family:Tahoma'>-----Original Message-----<br>
<b><span style='font-weight:bold'>From:</span></b> Roz Clarke [mailto:roz.clarke@donnslaw.co.uk]<br>
<b><span style='font-weight:bold'>Sent:</span></b> Tuesday, July 22, 2003 9:21
AM<br>
<b><span style='font-weight:bold'>To:</span></b> AccessD
(AccessD@databaseadvisors.com)<br>
<b><span style='font-weight:bold'>Subject:</span></b> [AccessD] OT: Word VBA -
skip code?</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>Hello everyone</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>Another nasty problem for you.</span></font> <font
size=2 face=Wingdings><span style='font-size:10.0pt;font-family:Wingdings'>J</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>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.</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>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.</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>If Application.FileSearch.Execute > 0 Then</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'> For i = 1 To
Application.FileSearch.FoundFiles.Count</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'> </span></font>
<font size=2 face=Arial><span style='font-size:10.0pt;font-family:Arial'>strName
= Application.FileSearch.FoundFiles(i)</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'> Set</span></font>
<font size=2 face=Arial><span style='font-size:10.0pt;font-family:Arial'>objDoc
= wrdapp.Documents.Open(strName)</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'> If</span></font>
<font size=2 face=Arial><span style='font-size:10.0pt;font-family:Arial'>objDoc.ReadOnly
= False Then</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>
Set myRange =</span></font> <font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>objDoc.Content</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>
myRange.Find.Execute FindText:=strFindText, Forward:=True</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>
myRange.InsertAfter strTestText</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'> End If</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'> doc.Close</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'> Next i</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>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??</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>Yours hopefully</span></font><o:p></o:p></p>
<p style='margin-left:72.0pt'><font size=2 face=Arial><span style='font-size:
10.0pt;font-family:Arial'>Roz</span></font><o:p></o:p></p>
</blockquote>
</div>
</body>
</html>