Prev: Word 2003/2007 Prompting To Save Document
Next: How can I remove an embedded image in Word?
From: Mona on 6 Jul 2008 22:35
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
From: StevenM on 6 Jul 2008 23:20
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

"Mona" wrote:

> 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
>
 | 
Pages: 1
Prev: Word 2003/2007 Prompting To Save Document
Next: How can I remove an embedded image in Word?