macro to create a 2 column page

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

sydney - 29 Jul 2005 06:25 GMT

Hi

Can anyone help me write a macro to create a 2 column page layout with
column 1 width = 6.5cm, column 2 width = 9.32cm?

Thanks in advance

Reply to this Message

Jezebel - 29 Jul 2005 07:04 GMT

What have you tried so far and what are you having trouble with?

> Hi
>
> Can anyone help me write a macro to create a 2 column page layout with
> column 1 width = 6.5cm, column 2 width = 9.32cm?
>
> Thanks in advance

Reply to this Message

sydney - 01 Aug 2005 00:40 GMT

I just found this on on microsoft:

Sub InsertColumnBreaks()
'http://support.microsoft.com/?kbid=218500
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
With ActiveDocument.PageSetup.TextColumns
.SetCount NumColumns:=2
End With

With ActiveDocument.PageSetup.TextColumns
.SetCount NumColumns:=1
.Add width:=InchesToPoints(2)
End With

Thanks!

> What have you tried so far and what are you having trouble with?
>
[quoted text clipped - 4 lines]
> >
> > Thanks in advance

Reply to this Message