[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?

[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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Carygee wrote:
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?

[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)

Graham Mayor wrote:
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.