Setting TextColumns

[DrkMAtter]

Greetings,
I must set a certain range to have 3 TextColumns. The problem is that the formatting is always applied to the whole document, which is of course not what I meant to do.

Here is the code I am using right now:


Dim c As Long
Dim x As Range


For c = 2 To InlineShapes.Count
Set x = ThisDocument.Range(InlineShapes(c).Range.End, InlineShapes(c + 1).Range.Start)

x.PageSetup.TextColumns.SetCount 3

Next c


Thanks for any help,
-Eric Fournier

 

[TonyJollans]

Hi Eric,

Despite the fact that you explicitly apply the column formatting to your own range, Word applies it to the whole section it is in. To stop this you need to make sure it is in its own section by inserting section breaks before and after it before making it into columns.

Add the following code, or something similar, before you set your range variable:

ThisDocument.Range(Start:=InlineShapes(c).Range.End, _
                   End:=InlineShapes(c).Range.End). _
    InsertBreak Type:=wdSectionBreakContinuous

ThisDocument.Range(Start:=InlineShapes(c + 1).Range.Start, _
                   End:=InlineShapes(c + 1).Range.Start). _
    InsertBreak Type:=wdSectionBreakContinuous

Enjoy,
Tony

 

[DrkMAtter]

That worked. Thanks a lot. =)