Newsgroup: it.comp.appl.access
Titolo: Aprire Word da Access

Buongiorno,
ho la necessità di aprire un file di Word da Access.
con il seguente codice, legato all'evento Click di un pulsante, eseguo il comando:
 
Dim Word as Object
Set Word = CreateObject("Word.Application")
Word.Visible = True
Word.Documents.Open ("Percorso completo al file")
 
Il file si apre, solo che la finestra di Word rimane ridotta a icona, e spesso l'utente non se ne accorge; che cosa devo fare per ottenere che si apra a schermo intero?
 
Uso Access e Word 2013, l'utente ha il Runtime di Access e Word 2013.
 
Grazie
Franco Maggio


Ho risolto aggiungendo la seguente riga di codice:
 
Word.Activate


Come non detto, ha funzionato solo due volte (giusto per darmi l'illusione), poi tutto come prima.
Il problema permane. Word si apre ma ridotto a icona.
Franco Maggio


prova con
 
Word.Documents.Open ("Percorso completo al file")
Word.Documents.View.FullScreen = True
 
ciao


Ti ringrazio, ma la risposta è:
"Proprietà o metodo non supportato dall'oggetto"
 
Franco M.

franco...@gmail.com
 has brought this to us :

Te ne manca un pezzo... WordApp.Activate!
 
=========================================
Private Sub Command79_Click()
Dim WordApp As New Word.Application, WordDoc As Word.Document
 
Set WordDoc = WordApp.Documents.Open("D:\Test\RG.doc")
WordApp.Visible = True
WordApp.Activate
 
'WordApp.Application.Run "macro1"
 
End Sub
======================================
 
Il file viene aperto come finestra attiva, dimensionata
così come è stata chiusa.
 
Bruno


Niente da fare, neanche con questa tua versione (grazie)
Di seguito posto tutto il codice che ho utilizzato (remmato il vecchio codice, attivo il tuo). La risposta alla tua versione è: "Variabile non definita", riferita a "Dim WordApp As New Word.Application".
Forse non scrivo tutto correttamente:
 
Private Sub cmdGuida_Click()
On Error GoTo Err_cmdGuida_Click
    'Dim ObjWord As Object
    'Set ObjWord = CreateObject("Word.Application")
    'ObjWord.Documents.Open ("C:\FM\ScadenzaVisite\ScadenzaVisiteGuida.docx")
    'ObjWord.visible = True
    'ObjWord.Activate
 
    Dim WordApp As New Word.Application
    Dim WordDoc As Word.Document
    Set WordDoc = WordApp.Documents.Open("C:\FM\ScadenzaVisite\ScadenzaVisiteGuida.docx")
    WordApp.visible = True
    WordApp.Activate
Exit_cmdGuida_Click:
    Exit Sub
Err_cmdGuida_Click:
    MsgBox "Si è verificato il seguente errore: n° " & Err.Number & " - " & Err.Description
    Resume Exit_cmdGuida_Click
End Sub
 
I riferimenti alla libreria Office 15 sono caricati.
 
Grazie ancora,
Franco

 I riferimenti alla libreria Office 15 sono caricati.
 
Ti manca un altro pezzo:
Microsoft Word xx.x Object Library.
 
E non dire che la mia "versione" non funziona... quel che
non funziona è il tuo computer! lol lol lol
 
Che se invece la libreria Microsoft Word xx.x Object Library
l'avessi caricata... allora la mia proprio non sarebbe
una battuta.
 
Bruno


Grazie Bruno,
in effetti mi mancava la libreria Word 15.0.
Poi, incuriosito, sono andato a guardare i riferimenti ed ho trovato le librerie di ognuno dei programmi del pacchetto Office. Ma, allora, la libreria Office 15.0 a che serve? Io credevo che essa fosse onnicomprensiva di tutte le altre.
Franco