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:
ionela24 pe Simpatie.ro
Femeie
24 ani
Prahova
cauta Barbat
25 - 47 ani
Mrrrr's Forum (VIEW ONLY) / Tutoriale si Ghiduri Utile // Tutorials and useful guides / [WORD] VBA to Make Button to Add / Remove 6pt After Paragraph Moderat de TRaP, TonyTzu
Autor
Mesaj Pagini: 1
Mrrrr
AdMiN

Inregistrat: acum 17 ani
Postari: 2228
Based on:

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


_______________________________________
pus acum 6 ani
   
Pagini: 1  

Mergi la