word 2010 Macro.

[pacifico]

Buongiorno,

al documento Word, ho realizzato una macro con un MessaggioBox:
MsgBox ("Salvare il documento [1] o Chiudere il documento [2]")

Non riesco a trovare in rete un esempio per l'esecuzione e gradirei un suggerimento come si realizza.
fiducioso, anticipatamente ringrazio
Domenico.

[FRIEDRICH]

Ciao Domenico,
puoi postare la macro che hai realizzato? La funzione MsgBox di VBA non permette di usare risposte multiple diverse da quelle predefinite (ad es. OK, Sì/No, Sì/No/Annulla). Se hai bisogno di pulsanti con testo personalizzato la soluzione è usare una UserForm.

[pacifico]

Gent.mo Friedrich,

ringrazio della gentilezza e disponibilità.

Non sono pratico sulle macro ed è la prima volta per necessità.

Dal programma Visual Studio, apro il foglio Word che viene compilato. Attualmente se salvo e chiudo, il Word esegue regolarmente rimanendo in esecuzione il Visual Studio.
Ho pensato di inserire una macro al Word per la scelta: salvare o chiudere il documento tramite un msgbox.
riporto il codice della macro
Sub Messaggio()

MsgBox ("Salvare il documento [1] o Salvare il documento [2]")

End Sub

Secondo me è sbagliato dovrebbe essere inserito un Input per la scelta, ripeto è la prima volta che uso e non so come fare.

mi scuso se non sono stato chiaro auguro che si possa realizzare, saluto
Domenico

[Anthony47]

A me e’ poco chiaro il tuo ambiente e l’interfaccia utente che vuoi realizzare.
Evidentemente parti da una applicazione scritta in Visual Studio, e da questa applicazione apri delle sessioni Word in cui vengono creati dei documenti. Non so se Friedrich ha una sensazione diversa.
Se e’ così, dato che Word mette a disposizione i suoi comandi per editare, salvare o abortire il documento, che senso ha inventare una interfaccia diversa?
Prova a spiegare meglio la situazione in cui ti trovi e gli obiettivi che vorresti raggiungere, magari diventa piu' chiaro...

[Ricky0185]

Dal titolo sembra tu voglia risolvere con macro. Allora prova questa alternativa
Inserisci, dopo aver aperto il tuo file Word, questa macro in un modulo standard (Alt+F11 ed incollala sul pannello di destra)

Codice: Seleziona tutto

Sub MacroDaTastiera()
With Application
  .CustomizationContext = NormalTemplate
  .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyG), _
    KeyCategory:=wdKeyCategoryMacro, Command:="SalvaChiudi"
  End With
  Scelta = InputBox("Digita 1 per Salvare il documento, 2 per Chiudere il documento o Annulla per continuare")
    If Scelta = 1 Then
        ActiveDocument.Save
        ElseIf Scelta = 2 Then
            ActiveDocument.Close
            Else
        'Quello che vuoi tu
    End If
End Sub

Poi torna sul foglio Word e premi Ctrl+G e fai la tua scelta.
Entrando nella macro (sempre Alt+F11) puoi sostituire G con la lettera che vuoi

[Anthony47]

Ciao Ricky, puoi spiegare cosa dovrebbe fare il primo pezzo della macro?
A me sembra che dovrebbe assegnare la combinazione Contr-Maiusc-q a una Sub SalvaChiudi, che forse doveva fare quello che fa la seconda parte della Sub MacroDaTastiera che hai pubblicato

[Ricky0185]

Ciai indovinato. Le macro inizialmente erano 2, la prima che faceva apparire la Msgbox e conseguenze, la seconda che la attivava con Ctrl+G. Le ho unite: lanci la seconda che attiva la prima. Spero siano servite
Ti saluto

[Anthony47]

Ma se la Sub SalvaChiudi non esiste, quella parte di codice va in errore...
E poi il reso del codice si sovrappone ai comandi Word, ad esempio se scegli 2 Word ti chiede se vui salvare o no. Insomma un'automazione zoppa... Io non ho capito cosa ha in mente Pacifico, quindi non so suggerire niente per ora
Ciao

[Ricky0185]

Ciai ragione 2.
Nel modulo standard va inserita anche la macro SalvaChiudi, e cioè va inserito

Codice: Seleziona tutto

Sub SalvaChiudi()
  Scelta = InputBox("Digita 1 per Salvare il documento, 2 per Chiudere il documento o Annulla per continuare")
    If Scelta = 1 Then
        ActiveDocument.Save
        ElseIf Scelta = 2 Then
            ActiveDocument.Close
            Else
        'Quello che vuoi tu
    End If
End Sub
Sub MacroDaTastiera()
    With Application
      .CustomizationContext = NormalTemplate
      .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyG), _
        KeyCategory:=wdKeyCategoryMacro, Command:="SalvaChiudi"
      End With     
End Sub


Ciao