VBA Alinea Eigenschap "Geen ruimte toevoegen tussen alinea's met dezelfde stijl"

[Rolf Elstrodt]

Hallo,

Een vraagje over Word 2007.
In het dialoogvenster 'Alinea', tabblad 'Inspringingen en afstand', staat in de groep 'Afstand' een vinkje: 'Geen ruimte toevoegen tussen alinea's met dezelfde stijl'.

Wie weet welke VBA Eigenschap dit kan aan- of uitzetten?
Onder de eigenschappen van ParagraphFormat kan ik het niet vinden.

 

[OctaFish]

De makkelijkste manier is om een macro op te nemen en die functie aan- of uit te zetten. Vervolgens kijk je in de VBA wat er staat.

 

[Rolf Elstrodt]

Beste Octafish,

Was het maar waar. Onderstaande coding komt uit de macrorecorder en daar staat het niet bij. In Macro1() wordt het vinkje aangezet, in Macro2() weer uitgezet. Er is geen verschil tussen beide macro's. Ook het uitvoeren van deze macro's laten het vinkje onaangetast, aan blijft aan en uit blijft uit.

Sub Macro1()
'
' Macro1 Macro
'
'
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 10
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(1.15)
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
End With
End Sub
Sub Macro2()
'
' Macro2 Macro
'
'
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 10
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(1.15)
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
End With
End Sub

 

[OctaFish]

Dat komt omdat je de verkeerde macro hebt gemaakt; je kunt de optie alleen instellen voor profielen. Het commando ziet er dan zo uit:

    ActiveDocument.Styles("Standaard").NoSpaceBetweenParagraphsOfSameStyle = False

Overigens doe je iedereen een plezier als je code opmaakt met de CODE tag (knop #). Dan blijft die een stuk leesbaarder.

 

[Rolf Elstrodt]

Hoi OctaFish,

Bedank voor de oplossing. Voortaan zal ik coding opmaken met de code-tag-knop. Zag op het forum wel van die mooie kadertjes, maar wist niet hoe dat moest.

Met vriendelijke groet,
Rolf Elstrodt