Pentru a putea fi folosit în toate fişierele Word, se poate lucra direct în şablonul normal.dotm. Astfel, se inserează următorul cod în secţiunea Modules.
1 2 3 |
Sub CondensExpandFont() UserForm3.Show vbModeless ' Afisează UserForm-ul modal End Sub |
Tot în modul de lucru VBA, vom insera un formular (UserForm), apoi vom insera un control tip ListBox, unde vom adăuga următoarea plajă de valori, care ne-ar interesa.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Private Sub UserForm_Initialize() With ListBox1 .AddItem "-0.30" .AddItem "-0.25" .AddItem "-0.20" .AddItem "-0.15" .AddItem "-0.10" .AddItem "0" .AddItem "0.10" .AddItem "0.15" .AddItem "0.20" .AddItem "0.25" .AddItem "0.30" End With End Sub |
Vom prelua valoarea din ListBox şi vom acţiona instant, putând astfel să alegem în funcţie de ce ar fi util.
1 2 3 4 5 6 |
Private Sub ListBox1_Click() If ListBox1.ListIndex <> -1 Then Selection.Font.Spacing = Val(ListBox1.Value) ' Unload Me ' ar inchide formularul după fiecare alegere End If End Sub |
Ulterior, se poate crea în Quick Access Toolbar (QAT) un buton, prin alegerea macroului şi particularizarea detaliilor astfel încât să fie cât mai prietenos.