NoSpaceBetweenParagraphsOfSameStyle

[Tony Logan]

Is there a way I can write the below code without refering ActiveDocument?

ActiveDocument.Styles("Normal").NoSpaceBetweenParagraphsOfSameStyle = True

I'm out of practice with VBA, and am running it inside a VB script that
creates some Word templates. However, this line causes the script to bomb.

The following code works just fine:

Dim objSelection
Set objSelection = Word.Selection
objSelection.Font.Name = "Arial"
objSelection.Font.Size = "14"

My goal is somehow to make NoSpaceBetweenParagraphsOfSameStyle = True.

Thanks.

[Graham Mayor]

How about

objSelection.Style.NoSpaceBetweenParagraphsOfSameStyle = True

but it will only work if all the selection is formatted in the same style so
applying a common style first should work eg

With objSelection
.Style = "Normal"
.Style.NoSpaceBetweenParagraphsOfSameStyle = True
.Font.name = "Arial"
.Font.Size = "14"
End With
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Post by Tony Logan
Is there a way I can write the below code without refering
ActiveDocument?
ActiveDocument.Styles("Normal").NoSpaceBetweenParagraphsOfSameStyle = True
I'm out of practice with VBA, and am running it inside a VB script
that creates some Word templates. However, this line causes the
script to bomb.
Dim objSelection
Set objSelection = Word.Selection
objSelection.Font.Name = "Arial"
objSelection.Font.Size = "14"
My goal is somehow to make NoSpaceBetweenParagraphsOfSameStyle = True.
Thanks.

[wowens]

--
wowens

Post by Tony Logan
Is there a way I can write the below code without refering ActiveDocument?
ActiveDocument.Styles("Normal").NoSpaceBetweenParagraphsOfSameStyle = True
I'm out of practice with VBA, and am running it inside a VB script that
creates some Word templates. However, this line causes the script to bomb.
Dim objSelection
Set objSelection = Word.Selection
objSelection.Font.Name = "Arial"
objSelection.Font.Size = "14"
My goal is somehow to make NoSpaceBetweenParagraphsOfSameStyle = True.
Thanks.