You are here:---Rispondi a: [RISOLTO] aprire Popup
Rispondi a: [RISOLTO] aprire Popup2019-06-13T15:48:52+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] aprire Popup Rispondi a: [RISOLTO] aprire Popup

sidsid
Moderatore
    Post totali: 701

    nel modulo hai messo la function?

    Function bRunning(ByVal sApp As String) As Boolean
    Dim x As Object
    On Error Resume Next
    Set x = GetObject(, sApp)
    bRunning = (Err = 0)
    Set x = Nothing
    End Function

    Prova il codice così:

    Sub ApriFileWord()
    Dim objWord As Object, objDoc As Object
    Dim n As Long
    Dim sApp As String
    
    'paramentro che passo alla function
    sApp = "Word.Application"
    
    If Not bRunning(sApp) Then
       Set objWord = CreateObject(sApp)
    Else
        Set objWord = GetObject(, sApp)
    End If
    
    On Error Resume Next
    'qui verifico se il file è aperto, verificando la lunghezza del nome del file;
    'se è chiuso e senza l'uso di "On Error Resume Next", scatta il debug
    n = Len(objWord.Documents("prova.docx").Name)
    
    'qui verifico la lunghezza del nome del file; se è >0 sigifica che il file è aperto
    If n > 0 Then
        ' se il file è aperto gli assegno un riferimento....
        Set objDoc = objWord.Documents("prova.docx")
    Else
        '...altrimenti gli imposto il riferimento alla sua apertura
        Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "/" & "prova.docx") 'qui scegli il percorso
    End If
    
    'restituisco ad excel la gestione dell'errore
    On Error GoTo 0
    
    'se il file non è visibile lo rendo tale
    If Not objWord.Visible = True Then
        objWord.Visible = True
    End If
    
    VBA.AppActivate objWord.Windows(1).Caption
    objDoc.PrintPreview
    
      objWord.Dialogs(88).Show
    '  Set objDoc = Nothing
    '  Set objWord = Nothing
    
    Set objDoc = Nothing
    Set objWord = Nothing
    
    End Sub

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi