<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<TITLE></TITLE>
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2>Terri,</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff size=2>You
could use the following code....</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff size=2>Dim
ref as Reference</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff size=2>Dim
strFilename as String</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff size=2>Dim
strName as String</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff size=2>Din
intLoc as Integer</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2>strFilename = "c:\windows\system\mso8.dll"
'Change this to desired path</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff size=2>For
each ref in References</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2> strName =
ref.FullPath<BR> intLoc =
1<BR> While intLoc <>
0<BR> intLoc = InStr(1, strName,
"\")<BR> strName = Right(strName,
Len(strName) - intLoc)</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2> Wend<BR> If LEFT(strName, 3) =
"MSO" Then 'Find the Office object
Reference<BR> If strName <>
"MSO8.DLL" Then 'See if the reference is
correct<BR>
References.Remove
ref
'Wrong reference so remove it</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2> <SPAN
class=155540520-07042003><FONT face=Arial color=#0000ff
size=2>References.AddFromFile (strFilename)</FONT></SPAN></FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2> Exit
For</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2> End
If</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003> <FONT face=Arial
color=#0000ff size=2>End If</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff size=2>Next
ref</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff size=2>I
think that late binding(like Marty suggests) would be a better solution
tho.</FONT></SPAN></DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=155540520-07042003><FONT face=Arial color=#0000ff
size=2>Scott</DIV></FONT></SPAN>
<BLOCKQUOTE>
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> MartyConnelly
[mailto:martyconnelly@shaw.ca]<BR><B>Sent:</B> Monday, April 07, 2003 3:42
PM<BR><B>To:</B> accessd@databaseadvisors.com<BR><B>Subject:</B> Re: [AccessD]
A97 - References<BR><BR></FONT></DIV>You could just use late binding then it
grabs the latest version available.<BR><BR>Terri Jarus wrote:<BR>
<BLOCKQUOTE cite=midse918832.034@an-mail.amerinet-gpo.com type="cite"><PRE wrap="">You're right - olb - the one I want to keep constant is msword8.olb. We
are sharing the application over the network.
</PRE>
<BLOCKQUOTE type="cite">
<BLOCKQUOTE type="cite">
<BLOCKQUOTE type="cite"><PRE wrap=""><A class=moz-txt-link-abbreviated href="mailto:scott.marcus@ae.ge.com">scott.marcus@ae.ge.com</A> 04/07/03 12:02PM >>>
</PRE></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE><PRE wrap=""><!---->Do you mean 'olb' file instead of dll? Are you sharing this application
on the
network? I would guess that the file in question has a different name
per
version of word (mine is msword9.olb). You could set this reference
based on
which file you find on the computer. This wont work if you are sharing
the
application on the network.
Scott
-----Original Message-----
From: Terri Jarus [<A class=moz-txt-link-freetext href="mailto:jarus@amerinet-gpo.com">mailto:jarus@amerinet-gpo.com</A>]
Sent: Monday, April 07, 2003 11:49 AM
To: <A class=moz-txt-link-abbreviated href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A>
Subject: [AccessD] A97 - References
I have several users of the same database on a network - all works
fairly well - except, now some folks have gotten new computers and new
versions of Access (AXP). They also have A97 on their computer,
because
I don't want to switch until everyone has AXP.
There is a button on a form that creates a Word document. Since
everyone does not have Word97 (many have WXP), I have copied the Word
8.0 dll (set a reference) to a shared location so that this works on
everyone's computer. However, somehow (I don't know how) the
reference
is getting changed to the Word 10 dll, which screws things up. All I
have to do is change the reference back and all is well.
Is there a way to ensure that the reference cannot be changed?
Any ideas? Let me know if this does not make sense.
_______________________________________________
AccessD mailing list
<A class=moz-txt-link-abbreviated href="mailto:AccessD@databaseadvisors.com">AccessD@databaseadvisors.com</A>
<A class=moz-txt-link-freetext href="http://databaseadvisors.com/mailman/listinfo/accessd">http://databaseadvisors.com/mailman/listinfo/accessd</A>
Website: <A class=moz-txt-link-freetext href="http://www.databaseadvisors.com">http://www.databaseadvisors.com</A>
_______________________________________________
AccessD mailing list
<A class=moz-txt-link-abbreviated href="mailto:AccessD@databaseadvisors.com">AccessD@databaseadvisors.com</A>
<A class=moz-txt-link-freetext href="http://databaseadvisors.com/mailman/listinfo/accessd">http://databaseadvisors.com/mailman/listinfo/accessd</A>
Website: <A class=moz-txt-link-freetext href="http://www.databaseadvisors.com">http://www.databaseadvisors.com</A>
_______________________________________________
AccessD mailing list
<A class=moz-txt-link-abbreviated href="mailto:AccessD@databaseadvisors.com">AccessD@databaseadvisors.com</A>
<A class=moz-txt-link-freetext href="http://databaseadvisors.com/mailman/listinfo/accessd">http://databaseadvisors.com/mailman/listinfo/accessd</A>
Website: <A class=moz-txt-link-freetext href="http://www.databaseadvisors.com">http://www.databaseadvisors.com</A>
</PRE></BLOCKQUOTE><BR></BLOCKQUOTE></BODY></HTML>