Newsgroup: it.comp.appl.access
Titolo: attivare via codice vba (access 2003) il riferimento a Microsoft Word 11.0 Object Library

Buongiorno a tutti,
avrei bisogno di un aiuto circa il seguente problema:
- vorrei poter attivare via codice vba (access 2003) il riferimento a 
Microsoft Word 11.0 Object Library.
Quale codice devo inserire nella routine ?
Potreste inoltre spiegarmi brevemente il significato del codice consigliato 
e dirmi dove trovare letteratura al riguardo (potrei trovarmi nella 
necessità di attivare via codice anche altri riferimenti: per esempio 
microsoft word di versioni successive di access quali 2007, 2010. 2013).
Grazie a tutti.
Un saluto
Lucky
 
 


 
ti consiglio di usare il late binding per non aver mai problemi con le 
varie versioni di word excel etc
 
http://support.microsoft.com/kb/245115/it
 
 
piï¿œ in generale
 
https://www.google.it/?gws_rd=ssl#q=late+binding+vs+early+binding
 
 
 
ciao
BFS
 

Lucky pretended :

Per verificare l'esistenza di una Reference devi conoscerne il nome.
Per aggiungere una Reference o per rimuoverla devi conoscere
il file e il suo path ovvera il codice GUID + Major + Minor
======================================
Private Sub Command15_Click()
Dim i As Reference
For Each i In Application.References
    If i.Name = "Word" Then
        Exit Sub
    End If
Next
 
' Aggiunge Word_Reference se non esiste
'Application.References.AddFromFile _
"C:\Program Files\Microsoft Office\office15\MSWORD.OLB"
 
Application.References.AddFromGuid _
"{00020905-0000-0000-C000-000000000046}", 8, 6
 
End Sub
===========================================
 
 
Elenca le Reference esistenti e i loro parametri
=================================================
Private Sub Command27_Click()
Dim i As Reference
 
For Each i In Application.References
    MsgBox "Name" & vbTab & i.Name & vbCrLf & _
           "File" & vbTab & i.FullPath & vbCrLf & _
           "GUID" & vbTab & i.Guid & vbCrLf & _
           "Major" & vbTab & i.Major & vbCrLf & _
           "Minor" & vbTab & i.Minor
Next
 
End Sub
=================================================
 
Bruno

> nella necessit� di attivare via codice anche altri riferimenti: per 

Grazie Bruno,
la tua risposta � preziosissima ed utilissima: proprio quello che cercavo 
!!!
Ti disturbo ulteriormente con la seguente domanda:
Per rimuovere una Reference, quale � il codice ?
Grazie mille
Saluti
Lucky 
 
 

 Grazie mille
 
 
Tieni per� conto del suggerimento di BFS: tranne casi rari l'associazione 
tardiva � la soluzione migliore.
Oltretutto, se non ricordo male, i riferimenti non si possono aggiungere se 
l'applicativo � in formato .MDE/AccDE
 
Saluti.
 
 

 Per rimuovere una Reference, quale ï¿œ il codice ?
 
========================================
Private Sub Command28_Click()
Dim i As Reference
For Each i In Application.References
    If i.Name = "Word" Then
        GoTo RemoveRef
    End If
Next
Exit Sub
 
RemoveRef:
    Application.References.Remove i
 
End Sub
=========================================
 
Bruno

 Saluti.

 Potendo scegliere preferisco la soluzione di Lucky.
 
 
De gustibus.
 
Saluti.
 
 
 

Scusami ancora Bruno, potresti per cortesia rispondermi a questa domanda:
per rimuovere una Reference, quale codice devo  usare ?
Grazie mille
Saluti
Lucky
 


> Per rimuovere una Reference, quale � il codice ?
