Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Problema word application
Forum - Visual Basic 6 - Problema word application

Avatar
Claudio16 (Normal User)
Newbie


Messaggi: 2
Iscritto: 01/07/2015

Segnala al moderatore
Postato alle 0:13
Giovedì, 02/07/2015
Salve a tutti
ho un sorgente che mi crea ed apre un doc

    Dim Wrd As Object        ' Word Object
    
    Set Wrd = Nothing
    Set Wrd = CreateObject("Word.Basic")
    Wrd.FileNewDefault
    Wrd.AppShow

    Selection.Paragraphs.Alignment = wdAlignParagraphJustify
    Wrd.Insert "bla, bla..."
.......
poi vado a scrivere sul  doc con un pulsante che mi attiva la scrittura (tutto ok)

Sullo stesso file dovrei ripetere l'operazione di scrittura con lo stesso pulsante
(naturalmente sono variati i dati nei text box nei quali il pulsante va a prendere i dati)
non aprendo un nuovo file ma scivendo di seguito su quello già aperto...
e qui non ci riesco.
In poche parole necessiteri delle istruzioni per:
* Verificare se c'è un doc aperto,
* se è aperto ignorare l'apertura di un nuovo doc e scrivere di seguito
* se non è aperto un doc crearlo ...

Grazie

Claudio


PM Quote
Avatar
Claudio16 (Normal User)
Newbie


Messaggi: 2
Iscritto: 01/07/2015

Segnala al moderatore
Postato alle 16:02
Venerdì, 03/07/2015

Risolto.

    Dim Wrd As Object

    On Error Resume Next
    Set Wrd = GetObject(, "Word.Basic")
    
    Wrd.Activate

    If Wrd Is Nothing Then
        Set Wrd = CreateObject("Word.Basic")
        Wrd.FileNewDefault
        Wrd.AppShow
        Wrd.Activate
    End If

Bye

PM Quote