D&D 4E 4e monster formatting tool

[Matrix Sorcica]

Never Mind I figured it out, it works great.

Could you please give a strp by step guide?

 

[WampusCat43]

FWIW, the following is a Word macro I created, which does something similar on existing WotC data.

If you're looking at a monster entry in the Compendium, you can:

• highlight the text,
• paste it into Word,
• highlight that text,
• then run this macro (which I assigned to the ctrl-Q key).

It formats it in the same style, just without the colors, which are easy to add with the ctrl key if you want. I just would rather leave it in B&W to save the ink. I use the results to create 4" wide initiative cards. If you have any questions, PM me.



Sub MM()
'
' MM Macro
' Macro recorded 3/3/2010 by Keith
'
Selection.Style = ActiveDocument.Styles("Normal")
Selection.Font.Name = "Calibri"
Selection.Font.Size = 10
Selection.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=1, _
NumRows:=11, InitialColumnWidth:=InchesToPoints(4), AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
.Style = "Table Grid"
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
End Sub