Clean Up and Assign Template

Sub cleanup() ‘ ‘ cleanup Macro ‘ ‘With ActiveDocument.Styles(wdStyleNormal).Font With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = InchesToPoints(0.7) .BottomMargin = InchesToPoints(0.7)...

Document Clean Up

Here’s a general bunch of stuff to clean up a document inherited from someone. Sub docfix() ‘ ‘ docfix Macro ‘ ‘ Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ” ^t^t”...

Delete Unused Styles

I don’t recall where I found this on the interwebs. It seems to work well. If anyone finds the original source, please comment and I’ll give the credit where credit is due! Sub DeleteUnusedStyles() Dim oStyle As Style On Error GoTo ErrorHandler...

Table Cleanup

This is a moderately generic macro to clean up tables. Sub tfixtest() ‘ ‘ tfixtest Macro ‘ On Error GoTo ErrorHandler Selection.Tables(1).Select Selection.Rows.HeightRule = wdRowHeightAuto Selection.Rows.AllowBreakAcrossPages = False ‘...