[VB6] Apertura di file Word con versioni differenti

[bobovieri]

Buonasera a tutti!!!

Forse nel titolo non sono stato abbastanza chiaro; cerco di rimediare subito: ho un gestionale che ha la possibilità di interagire con file Word ed Excel (carta intestata per il Word e fatture/preventivi per Excel). Ora viene il bello:

i file Excel li apre senza problemi; il file Word mi si apre sul portatile ma sul pc del cliente no:

why????

L'unica cosa che ho notato è che sul portatile ho Office 2003 mentre il cliente ha Office XP (quindi 2002).

Grazie a tutti coloro che mi aiuteranno!!!

[alka]

Cosa significa "non si apre"? Qual è l'errore che ottieni?

Se non indichi i "sintomi", difficilmente sarà possibile determinare la causa del problema.

[Boolean]

non hai indicato se il documento lo apri tramite OLE Automation...

se è così, probabilmente, hai referenziato direttamente la libreria di word nel tuo progetto, ed in questo modo lo "leghi" alla versione presente sul tuo PC.

quello che ti consiglio di fare è utilizzare il Late Binding, ovvero, dichiarare l'applicazione Word come Object e poi anzichè fare:

Set oWord As New Word.Application

scrivere:

Set oWord = CreateObject("Word.Application")

Boolean

[bobovieri]

Innanzittutto buongiorno a tutti!!! Rispondo:

[Per Alka]
Purtroppo non ho nessun tipo di errore; faccio clic sul pulsante, mi parte Word e poi si chiude il mio gestionale e mi rimane aperta la finestra di Word ma senza nessun documento aperto dentro, solo la cornice.

[Per boolean]
posto direttamente il codice che utilizzo per far aprire il documento Word:

'dichiarazione preliminare
Dim objWord As Word.Application
'definisce objWord come nuova applicazione Word
Set objWord = New Word.Application
objWord.Visible = True
Dim objDoc As Word.Document
'crea un nuovo documento Word
'Set objDoc = New Word.Document
'apre un documento Word esistente
Set objDoc = objWord.Documents.Open("C:\F3\Carta_intestata.doc")

Questo è il tutto. Quello che non riesco a capire è che fino alla versione precedente funzionava; nell'ultima e quindi quella attuale, ho solo cambiato disposizione ai controlli nelle form; a livello di codice non ho fatto nulla.

Comunque grazie un miliardo ha chi mi saprà aiutare.

A presto!!!

[Boolean]

beh, te l'ho detto nel post precedente... devi utilizzare il Late BInding per fare in modo che il riferimento alla Libreri di Word sia dinamenicamente creato sulla base della versione trovata sulla macchina su cui gira il programma.

quindi:

'dichiarazione preliminare
Dim objWord As Object
'definisce objWord come nuova applicazione Word
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Dim objDoc As Object
'crea un nuovo documento Word
Set objDoc = objWord.Documents.Open("C:\F3\Carta_intestata.doc")

l'unico lato "negativo" di questo sistema è che, se lo usi durante la programmazione, non hai a disposizione proprietà e medodi degli oggetti Word istanziati.
per porre rimedio a questo, generalmente, si usa dichiarare gli oggetti come hai fatto tu, durante la programmazione per poi usare il Late Binding, prima della compilazione.

Boolean

[bobovieri]

Grazie a tutti!!!

Al più presto provo sulla macchina del cliente perchè sulla mia non da problemi, quindi.....

Grazie ancora ragazzi, siete sempre i migliori.

A presto