VBA Excel e Word

Question

Salve a tutti e grazie in anticipo per l'aiuto.

Volevo sapere, visto che VBA è presente in tutti i pacchetti Office io ho la necessità di richiamare una macro scritta in WORD che, ad esempio, fa la stampa unione di un documento da una Userform fatta in Excel o in generale da una macro di Excel.

E' possibile? Non ho ben capito come far comunicare i VBA di due application

Grazie mille per l'aiuto

Answer 1

Sì, è possibile.

Word espone le sue librerie come fa del resto Excel. Se per documento di Word compilato intendi di avere posizioni dove aggiungere testo da Excel, in se è banale servendosi ad esempio di segnalibri.

Answer 2

Puoi pilotare Word da Excel o viceversa. Non ho capito perché vuoi utilizzare una macro che si trova nell'altra applicazione.

Lo chiedo perché non l'ho mai fatto. Ho solo usato VBA con Excel e creato qualche Userform più o meno complessa. Non so dove reperire del codice da riciclare o da cui prendere spunto.

Ad esempio, dato un file word già compilato è possibile tramite Excel modificarlo in alcune parti e salvarlo con un altro nome?

Scusami per la mia completa ignoranza in materia.

Answer 3

Puoi pilotare Word da Excel o viceversa. Non ho capito perché vuoi utilizzare una macro che si trova nell'altra applicazione.

Answer 4

Grazie mille, penso che buona parte dei miei dubbi li hai risolti...

Comunque la mia necessità sarebbe quella di prendere delle informazioni da Excel ed usarle in una stampa unione di word modificando soltanto, di volta in volta, delle informazioni ( che è poi l'obiettivo di una stampa unione).

Grazie ancora

Answer 5

Non ho capito bene cosa tu voglia fare.

La macro qui sotto da inserire in un modulo standard di Excel, apre un file di Word ed esegue la macro Pippo che si trova in un modulo standard di quel programma:

Public Sub m()

On Error GoTo RigaErrore

    Dim objWord As Object

    Dim objDoc As Object

    Dim strPath As String

    strPath = "C:\Prova\Test.docm"

    If Dir(strPath) <> "" Then

        Set objWord = CreateObject("Word.Application")

        Set objDoc = objWord.Documents.Open(strPath)

    Else

        MsgBox "File non trovato"

        Exit Sub

    End If

    objWord.Visible = False

    objWord.Run ("Pippo")

RigaChiusura:

    objWord.Quit

    Set objDoc = Nothing

    Set objWord = Nothing

    Exit Sub

RigaErrore:

    MsgBox Err.Number & vbNewLine & Err.Description

    Resume RigaChiusura

End Sub

In grassetto i riferimenti al file di Word e alla sua macro.