Creating a 3-column section style

C

Carygee

I often create sections within a document that have three equal-sized
columns with custome small gutters etc. It's a bore to do this time and
time again.

How can I set up a section style which will contain paragraph and column
spacing settings etc.? Can one also add, say, auto hyphenation to this
style?
 
G

Graham Mayor

You can't create a 'style' as such, but you could store your preferences in
a macro to apply the section break, columns and hyphenation eg

Sub ThreeCols()
Dim sView As String
sView = ActiveWindow.View
ActiveWindow.View.Type = wdPrintView
Selection.InsertBreak Type:=wdSectionBreakContinuous
With Selection.PageSetup.TextColumns
.SetCount NumColumns:=3
.EvenlySpaced = False
.LineBetween = False
.Width = CentimetersToPoints(3.55)
.Spacing = CentimetersToPoints(1)
End With
ActiveDocument.AutoHyphenation = True
ActiveWindow.View = sView
End Sub

http://www.gmayor.com/installing_macro.htm

The width of the columns and the spacing between them can be set to match
your preferences.


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
C

Carygee

Thanks loads. And I learned a lot in the process. I also had to adapt it
to Word 2007 norms (Took ages to find and install the "Developer" tab).

Unfortunately, I couldn't save the macro "due to a file permission
error" whatever this means. (Oh please don't tell me this is a revival
of the Live One Care bug)
 
Top