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:
Lorena13

Femeie
24 ani
Bucuresti
cauta Barbat
26 - 40 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 Add / Remove 6pt After Paragraph

Pagini: 1

Moderat de TRaP, TonyTzu

Mrrrr
AdMiN
Postari: 2388

Based on:
http://mrrrr.3xforum.ro/post/1688/1/WOR ... t_Spacing/

I made a very similar code to add / remove 6pt from any paragraph:

Sub ParagraphAdd6pt()
Dim unit As Single
unit = 6
On Error Resume Next
If (Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle) Then _
Selection.ParagraphFormat.SpaceAfter = (Selection.ParagraphFormat.SpaceAfter + unit)
End Sub

Sub ParagraphRemove6pt()
Dim unit As Single
unit = 6
On Error Resume Next
If (Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle) Then _
Selection.ParagraphFormat.SpaceAfter = (Selection.ParagraphFormat.SpaceAfter - unit)
End Sub

_______________________________________

Pagini: 1

Mergi la