WORD VBA to Make Button to Condense Expand Font Spacing

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:
Diana2019 pe Simpatie.ro

Femeie
25 ani
Vaslui
cauta Barbat
28 - 80 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: 795

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 6 ani

Pagini: 1

Mergi la