Dynamic reference to Word

N

Newbie

Hello,
With the help of RB Smissaert, I wrote a VBA proc which set a ref on Word
before the main macro, then another which remove this ref.
I tried to adapt this macro in a MS Project module:

Sub BuildWordReference()
Dim Ref As String
Ref = "{00020905-0000-0000-C000-000000000046}"
ActiveProject.VBProject.References.AddFromGuid Ref, 0, 0
End Sub

The macro above worked 5 times, but doesn't work anymore ... ;-(
Sometimes, I get the error message : "runtime error '32813' Module name,
project or object library already used"
The second macro, which is supposed to remove the ref, *never* worked ;-(((
(No error message)

Sub RemoveWordReference()
RemoveReference "Word" 'Call
End Sub

Sub RemoveReference(strReference As String)
On Error GoTo ERROROUT
Dim R As Object
For Each R In ActiveProject.VBProject.References
If R.Name = strReference Then
ActiveProject.VBProject.References.Remove R
Exit Sub
End If
Next
ERROROUT:
On Error GoTo 0
End Sub

Could you help me? Thanks ahead!
 
T

Tom Ogilvy

Assuming the code is being run from the workbook containing the reference or
that will contain the reference,
Maybe using ActiveProject would be a crap shoot as to what the activeproject
is.

Thisworkbook.VBProject.References

might be a better reference.

Also, why not use the GUID to identify it:

Sub RemoveWordReference()
Dim Ref as String
Ref = "{00020905-0000-0000-C000-000000000046}"
RemoveReference Ref
End Sub

Sub RemoveReference(strReference As String)
On Error GoTo ERROROUT
Dim R As Object
For Each R In ThisWorkbook.VBProject.References
If R.Guid = strReference Then
ThisWorkbook.VBProject.References.Remove R
End If
Next
ERROROUT:
On Error GoTo 0
End Sub

If you run RemoveWordReference from this workbook, maybe it will help your
problem.
 
N

Newbie

Thanks a lot Tom!
The trick was that I used ActiveProject instead of ThisProject. Now that
works!
Thanks again

Newbie
 
N

Newbie

Now, the Word references are working fine, but I can't use anymore the Step
by Step [F8] : I get the message:
"Impossible to enter in Stop Mode now"
Why? How can I bypass this trick?
Thanks
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top