Macro formattazione paragrafo in word - parte seconda

Macro formattazione paragrafo in Word - Parte seconda

Nel numero precedente avevamo spiegato che per eseguire la macro che apre lo UserForm1 si doveva prima premere <Alt>+F8, visualizzare l'elenco delle macro salvate nel documento corrente, quindi selezionare la macro 'aprifuserform'.

E' possibile anche saltare questo passaggio associando direttamente alla macro 'apriuserform' la combinazione di tasti preferita (ad esempio <Ctrl>+F12).

Per fare ciò occorre eliminare la macro 'apriuserform' e registrarla di nuovo, copiandone poi all'interno il codice:
 
Sub ApriUserForm
   Doevents
   userForm1.Show 0
End Sub
 
Quando inizia la registrazione della macro, fare clic sul pulsante con l'icona della tastiera (visibile nella figura qui sotto), selezionare la casella di testo Nuova combinazione al centro della finestra di dialogo 'Personalizza tastiera', premere contemporaneamente i tasti <CTRL> e F12
 
Impostare quindi MacroParagrafoEsempio.doc anzichè Normal.dot in 'Salva le modifiche', fare clic sul pulsante 'Assegna' quindi sul pulsante 'Chiudi, interrompere la registrazionene della nuova macro e infine ricopiare il codice di cui sopra all'interno della macro dall'ambiente VBA, modulo NewMacros.

Ora sarà possibile  in qualsiasi momento richiamare l'apertura dello UserForm1 direttamente dal documento Word premendo <CTRL> e F12.
 
Ora vediamo come funziona il codice VBA all'interno dello UserForm1.

Richiamiamo la finestra di progettazione del Visual Basic Editor in uno dei 2 modi consueti (Strumenti / Macro / Visual Basic Editor oppure <ALT>+F11 combinazione tasti scorciatoia dal documento Word).

Nel pannello di sinistra (Progetto - Project), agendo sul controllo ad albero (treeview) apriamo:
Project(MacroParagrafoEsempio) quindi Form e infine facciamo doppio clic su UserForm1.
 

 
Iniziamo dalla routine evento UserForm_Activate() (per entrarvi basta fare doppio clic su di un qualsiasi punto dello UserForm1)
Le istruzioni seguenti verranno eseguite ad ogni nuova apertura dello UserForm:

Private Sub UserForm_Activate()
  Dim riga$
  SettingFile = Application.ActiveDocument.Path + '\' &
       Application.ActiveDocument.Name + '.macrosettings.txt'
  Close #1
  Open SettingFile For Input As #1
     Do While Not EOF(1)
       Line Input #1, riga$
       Me.ListBox1.AddItem riga$
     Loop
  Close #1
  AggiornaInfoSelezione
End Sub
 
La variabile SettingFile specifica il nome del file di testo che contiene le impostazioni precedentemente e nel quale verranno salvate le nuove e deve risidere nella stessa cartella in cui si trova il documento word principale.

Quindi se il documento word si chiama MacroParagrafoEsempio.doc, il file di testo delle impostazioni si chiamerà:
MacroParagrafoEsempio.doc.macrosettings.txt