Newsgroup: it.comp.lang.visual-basic
Titolo: Problema Interazione con Word

In un mio programma ho la necessità di aprire dei files di word, il problema
è che quando ci provo, in qualunque modo dichiaro l'oggetto mi viene
risposto "IL COMPONENTE ACTIVEX NON PUO' CREARE L'OGGETTO"
Premesso che la libreria che uso è MSWORD8.OLB, e in quanto OLB non può
essere registrata con il regsrv32, qualcuno ha qualche idea sul come poter
risolvere il problema?!?!?!

Lo devi aprire per leggerlo solo ?
usa Microsoft Internet Control (shdowc.dll) con il metodo navigate2 gli
passi la path del file..
-- 
Posted from 
c000-h011.c000.muc.cp.net
 [209.228.29.35] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 passi la path del file..
si', pero' a me mostrava delle schifezze notevoli, quasi come ad aprirlo con
un editor.
c'e' modo di mostrarlo come si deve ?
ciao, a.

> Gabriele Campisi:

Curiosita`: hai installato Word?
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Se vuoi aprire i file di word utilizzando Word io uso il codice seguente:
Dim oWord As Object 'New Word.Application
Dim oDocument As Object 'New Word.Document
Public Sub RunMSWord()
    On Error GoTo Errore
    Dim strDocumentName As String
    Screen.MousePointer = vbHourglass
    Set oWord = CreateObject("Word.Application")
    Set oDocument = CreateObject("Word.Document")
    strDocumentName = "Tuo_documento_word.doc"
    If Dir(strDocumentName) = "" Then
        ' Il file non c'è quindi lo creo
        oWord.Documents.Add.SaveAs FileName:=strDocumentName
    Else
        Set oDocument = oWord.Documents.Open(strDocumentName)
    End If
    Screen.MousePointer = vbNormal
    oWord.Visible = True
    oWord.Activate
    Exit Sub
Errore:
    Screen.MousePointer = vbNormal
    If Err.Number = 429 Then
        MsgBox "Su questo computer non è installato MS Word" & vbCrLf & _
               "Non è quindi possibile eseguire l'operazione richiesta",
vbInformation
    End If
    oDocument.Close
    oWord.Quit
    Set oWord = Nothing
    Exit Sub
End Sub
--
        Pino Saffioti
-------------------------------------
pino.s...@tiscalinet.it
pino.s...@asl1.to.it

> Pino Saffioti:

Ciao Pino, permettimi qualche considerazione sul codice che hai postato
perche' mi sembra sia il caso.
Cominciamo dal fondo. Se non e` installato Word, dopo il tuo messaggio "Su
questo computer..." presente, bada bene, nella porzione di codice per
l'intercettazione degli errori, scrivi oDocument.Close. Ma Word non c'e`.
Quindi otterrai un nuovo errore. Che non verra` intercettato. Sei sicuro di
aver testato questo codice in una installazione priva di Word?
Qual e` lo scopo della linea:
    Set oDocument = CreateObject("Word.Document")
?
Se il file non esiste e lo crei, quando esci da "RunMSWord" la variabile
oggetto "oDocument" a cosa punta? Non certo al file appena creato. E allora?
Ancora. Il confronto nella linea:
    If Dir(strDocumentName) = "" Then
potrebbe essere sempre True, con conseguente sovrascrittura di un documento
che invece esiste. Dopo aver fatto girare una prima volta il programma fai
questo esperimento: poni di sola lettura il file "Tuo_documento_word.doc",
quindi fai girare una seconda volta.


Ciao!
Nel PC è installato il Word, e mi serve necessariamente interagire con VBA,
ma mi continua a dare lo stesso errore!!!!

 Nel PC è installato il Word, e mi serve necessariamente interagire con
VBA, ma mi continua a dare lo stesso errore!!!!
Alle ore 20.00 di questa sera poggia la tua fronte sul vetro del monitor per
10 minuti. Io faro` altrettanto e invito a fare altrettanto tutti i
frequentatori del ng. Vedrai che insieme troveremo una soluzione al tuo
problema. Tutti online, quindi. Non mancate!
--
Ciao;-))


 Alle ore 20.00 di questa sera poggia la tua fronte sul vetro del monitor
per 10 minuti. Io faro` altrettanto e invito a fare altrettanto tutti i
frequentatori del ng. Vedrai che insieme troveremo una soluzione al tuo
problema. Tutti online, quindi. Non mancate!
Io non ho "sentito" nessuno. Spero sia dipeso dal fatto che realmente
nessuno fosse connesso. Riproviamo domani sera stessa ora?



Hai detto per 10 minuti ancora non sono passati !!!
Ciao VB

> Valter:

Oops! Grazie, non avevo notato che l'orologio di questo pc fosse sballato.
Confido sul fatto che molti altri avranno fatto "mente remota" all'ora
giusta.
--
Ciao.


Grazie Maurizio, controllerň meglio il codice testandolo in varie
configurazioni.
