macro to create a 2 column page

[sydney]

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

 

[Jezebel]

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

 

[sydney]

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!