Aprire Word da Access

[franco...@gmail.com]

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

[franco...@gmail.com]

Ho risolto aggiungendo la seguente riga di codice:

Word.Activate

[franco...@gmail.com]

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

[BFS]

prova con

Word.Documents.Open ("Percorso completo al file")

Word.Documents.View.FullScreen = True

ciao

[franco...@gmail.com]

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

Franco M.

[Bruno Campanini]

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

[franco...@gmail.com]

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

[Bruno Campanini]

on 17-05-18, franco...@gmail.com supposed :

[...]

> 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.

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

[franco...@gmail.com]

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