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:
crazylife pe Simpatie
Femeie
25 ani
Bucuresti
cauta Barbat
25 - 47 ani
Mrrrr's Forum (VIEW ONLY) / Tutoriale si Ghiduri Utile // Tutorials and useful guides / [WORD] Toggle Insert Page Break / Toggle Reset Paragraph Moderat de TRaP, TonyTzu
Autor
Mesaj Pagini: 1
TRaP
Moderator

Inregistrat: acum 6 ani
Postari: 748
Two codes for two functions. Though unconnected, I added them in the same topic. These can both be recorded with macro recording button.

Insert Page Break from current pointer location:


Sub InsertPageBreak()
    Selection.InsertBreak Type:=wdPageBreak
End Sub


Reset paragraph (space between lines to zero, no indent etc.)


Sub ResetParagraph()

    With Selection.ParagraphFormat
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .CollapsedByDefault = False
    End With
End Sub


Modificat de TRaP (acum 5 ani)
pus acum 5 ani
   
TRaP
Moderator

Inregistrat: acum 6 ani
Postari: 748
Button to remove spaces before and after paragraph if they exist in 3 pt increments:


Sub ParagraphRemove3ptBeforeAndAfter()
Dim unit As Single
    unit = 3
On Error Resume Next
    If (Selection.ParagraphFormat.SpaceBefore > 0) Then _
        Selection.ParagraphFormat.SpaceBefore = (Selection.ParagraphFormat.SpaceAfter - unit)
       
        If (Selection.ParagraphFormat.SpaceAfter > 0) Then _
            Selection.ParagraphFormat.SpaceAfter = (Selection.ParagraphFormat.SpaceAfter - unit)

End Sub
pus acum 5 ani
   
Pagini: 1  

Mergi la