Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff. 		Lista Forumurilor Pe Tematici
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login

POZE MRRRR'S FORUM (VIEW ONLY)

Nu sunteti logat. 		Nou pe simpatie:
Profil Bianca xxx
Femeie
25 ani
Bucuresti
cauta Barbat
25 - 43 ani
Mrrrr's Forum (VIEW ONLY) / Tutoriale si Ghiduri Utile // Tutorials and useful guides / [WORD] VBA to Make Button to Condense / Expand Font Spacing Moderat de TRaP, TonyTzu
Autor
Mesaj Pagini: 1
TRaP
Moderator

Inregistrat: acum 6 ani
Postari: 748
Source:

I modified the codes a bit and set them as buttons in the QAT:



Sub FontSpacingCondense()
Dim unit As Single
    unit = 0.1
On Error Resume Next
    If (Selection.Type = wdSelectionNormal) Then Selection.Font.Spacing = (Selection.Font.Spacing - unit)
End Sub

Sub FontSpacingExpand()
Dim unit As Single
    unit = 0.1
On Error Resume Next
    If (Selection.Type = wdSelectionNormal) Then Selection.Font.Spacing = (Selection.Font.Spacing + unit)
End Sub
pus acum 5 ani
   
Pagini: 1  

Mergi la