Come accedere a una variabile pubblica di Word in Excel VBA

Question

Sto cercando di automatizzare la generazione di report in cui Excel VBA sta facendo tutto il lavoro. Il mio datore di lavoro ha una serie standardizzata di modelli di cui tutti i documenti dovrebbero essere generati. Devo compilare uno di questi modelli da VBA di Excel. I modelli di Word utilizzano estesamente VBA.

Si tratta di (alcune) il mio codice VBA di Excel:

Sub GenerateReport() ' (Tables, InputDataObj) 
    ' code generating the WordApp object (works!) 

    WordApp.Documents.Add Template:="Brev.dot" 

    ' Getting user information from Utilities.Userinfo macro in Document 
    Call WordApp.Run("Autoexec") ' generating a public variable 
    Call WordApp.Run("Utilities.UserInfo") 
    ' more code 
End sub 

Nel modulo VBA di Word Autoexec, una variabile pubblica di nome user è definito e dichiarato. Il modulo Userinfo secondario dal modulo Utilities popola user. Entrambe queste routine vengono eseguite senza alcun reclamo da VBA. Vorrei poi essere in grado di accedere alla variabile user nel mio Excel VBA, ma ottengo il seguente errore

Compile Error: Variable not yet created in this context.

Come posso accedere alla variabile Word VBA in Excel VBA? Pensavo che fosse più o meno lo stesso?

MODIFICA: la variabile user è un utente definito Type con solo attributi String. Copiare le funzioni di Word VBA che popolano la variabile user è assolutamente fattibile, solo più lavoro di quanto mi era necessario ...

Answer 1

In un modulo di Word:

Public Function GetUserVariable() As String '// or whatever data type 
    GetUserVariable = user 
End Function 

In un modulo Excel:

myUser = WordApp.Run("GetUserVariable") 

---

In alternativa, si potrebbe essere in grado di replicare il valore delle variabili - come si dice user Sospetto che stia restituendo alcune informazioni su un utente , o autore, di un documento. In tal caso una delle seguenti potrebbe essere quello che stai dopo:

'// Username assigned to the application 
MsgBox WordApp.UserName 

'// Username defined by the system 
MsgBox Environ$("USERNAME") 

'// Name of the author of the file specified 
MsgBox CreateObject("Shell.Application").Namespace("C:\Users\Documents").GetDetailsOf("MyDocument.doc", 9) 

Answer 2

Un'altra opzione - se si poteva solo aggiungere una riga di codice al Utilities.UserInfo sub (dopo aver impostato la variabile pubblica):

ActiveDocument.Variables("var_user") = user 

Poi si potrebbe accedervi facilmente in seguito in Excel:

Sub GenerateReport() ' (Tables, InputDataObj) 
    ' code generating the WordApp object (works!) 

    'I am assuming your WordApp object is public, as you don't declare it. 
    'Capture the new document object  
    Dim newdoc as Object 
    set newdoc = WordApp.Documents.Add(Template:="Brev.dot") 

    ' Getting user information from Utilities.Userinfo macro in Document 
    Call WordApp.Run("Autoexec") ' generating a public variable 
    Call WordApp.Run("Utilities.UserInfo") 

    'Get and show the value of "user" 
    Dim user as String 
    user = newdoc.Variables("var_user") 
    msgbox, user 
End Sub 

Ciò presuppone che user è una stringa.

EDIT: Poiché è necessario lavorare solo su VBA di Excel, proverei sicuramente l'approccio suggerito da Scott e MacroMan, replicando la stessa funzionalità dei macro di Word in Excel, se possibile.

Presumo che hai già escluso la possibilità di utilizzare una copia modificata del modello originale, ambientato in una cartella pubblica ...

Per ragioni di completezza, c'è un'altra possibilità: in realtà è possibile iniettare codice VBA in un documento di Word senza VBProject Object Model, per "forza bruta". Se si rinomina un documento di Word come file .zip e lo si apre, si noterà un file \word\vbaProject.bin al suo interno. Questo file contiene il progetto VBA per il documento e, in linea di principio, si potrebbe aggiungere o modificare il codice VBA modificandolo o sostituendolo.

Ho eseguito alcuni test per il trapianto di codice da un documento all'altro semplicemente copiando il file vbaProject.bin e il concetto funziona. Se sei interessato a saperne di più su questo file, this topic potrebbe essere utile.

Si noti, tuttavia, che fare ciò che si desidera con una tale tecnica sarebbe alquanto complesso (comporterebbe, per i principianti, l'aggiornamento dei file zip dal VBA di Excel) e richiederebbe molta sperimentazione per mitigare il rischio di corrompere accidentalmente i tuoi file. Sicuramente non è raccomandato se stai cercando una soluzione facile e semplice - ma è possibile.