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.

Nou pe simpatie:
Andreea_K pe Simpatie

Femeie
25 ani
Caras Severin
cauta Barbat
30 - 49 ani

Mrrrr's Forum (VIEW ONLY)Reguli Inregistrare Login PozeNu sunteti logat. Lista Forumurilor Pe Tematici

Mrrrr's Forum (VIEW ONLY) / Tutoriale si Ghiduri Utile // Tutorials and useful guides /

[WORD] VBA to Make Button to Condense / Expand Font Spacing

Pagini: 1

Moderat de TRaP, TonyTzu

TRaP
Moderator
Postari: 960

Source:
https://dutchgemini.wordpress.com/2010/ ... le-macros/

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

Pagini: 1

Mergi la