textColumns

[Mona]

greetings.

i need to copy the following values of the active document to a new
document. Can someone help me with this?


With Selection.PageSetup.TextColumns
.SetCount NumColumns:=1
.EvenlySpaced = True
.LineBetween = False
.Width = InchesToPoints(3.46)
.Spacing = InchesToPoints(0.5)
End With

thanks,
mona

 

[StevenM]

To: Mona,

Of course, it depends on what you are trying to accomplish.

Dim newDoc As Document
Set newDoc = Documents.Add
newDoc.PageSetup.TextColumns.Add _
Width:=InchesToPoints(3.46), _
Spacing:=InchesToPoints(0.5)

One cannot have both "EvenlySpaced:=True & Width:=InchesToPoints(3.46)

What this above code does is to create a second column with a width of 3.46"
and spacing between the first and second column of 0.5". The width of the
first column is the width of the page minus the left and right margins, the
width of the second column, and the width of the space between the columns.

Steven Craig Miller