View Single Post
Old 12-09-2006, 03:40 PM   #33
diabloNL
Gadget ForceŽ
diabloNL plays well with othersdiabloNL plays well with othersdiabloNL plays well with othersdiabloNL plays well with othersdiabloNL plays well with othersdiabloNL plays well with othersdiabloNL plays well with othersdiabloNL plays well with othersdiabloNL plays well with othersdiabloNL plays well with othersdiabloNL plays well with others
 
diabloNL's Avatar
 
Posts: 705
Karma: 2733
Join Date: Jun 2006
Location: The Netherlands
Device: Sony PRS-300 + Cybook with funny screen :P
I have added some things to the macro for my personal use but thought that It would be good to share it.

What will it do?
It will center all titles, chapter numbers etc. The original Macro alligned everything to the left.

It will justify all paragraphs, but it won't affect your centered titles etc.

Where to add it in the original macro?
Be sure you use the latest original Macro. Add my code just before "End sub" at the end of the original code.

I also attached a sample file where you can try my code on in case it doesn't work with your file. Then you can edit where needed.

Here is the code:

Code:
'This following section will bring left outlined titles/chapters to the center
'and justifies all paragraphs but won't affect titles etc.

With Selection.Find 'This prevents paragraphs from being centered.
.Text = ".^p"
.Replacement.Text = "#*"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll


With Selection.Find 'Bring left outlined titles/chapters to the center
   
   .Text = "^p^p"
   .Replacement.Text = ""
   .Forward = True
   .Wrap = wdFindStop
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
While Selection.Find.Execute
  Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Wend

With Selection.Find 'Restores the paragraph marks at the end of the paragraphs
.Text = "#*"
.Replacement.Text = ".^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll



Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"   'Take cursor at beginning of document

With Selection.Find 'This step will justify all paragraphs, but not titles etc.
   .Text = ".^p"
   .Replacement.Text = ""
   .Forward = True
   .Wrap = wdFindStop
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
While Selection.Find.Execute
  Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
Wend


Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"   'Take cursor at beginning of document
Attached Files
File Type: doc Test.doc (25.5 KB, 422 views)
diabloNL is offline   Reply With Quote