Mister Ian's Weblog

Category: Word

  • Word to Excel Breaks

    —

    by

    Ian
    in , ,

    In Word replace all the paragraph marks with a unique character. In Excel replace the unique character with the Excel line break character. In the Replace field, enter the following Alt code: Alt+0010. This code enters in a single line break. You will not see this character but the cursor may change. Note, to enter…

  • Clean Up and Assign Template

    —

    by

    Ian
    in

  • Document Clean Up

    —

    by

    Ian
    in

    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” .Replacement.Text = ” ” .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False…

  • Delete Unused Styles

    —

    by

    Ian
    in

    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 Application.ScreenUpdating = False ‘ try to speed it up For Each oStyle In…

  • Table Cleanup

    —

    by

    Ian
    in

    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 ‘ Selection.SelectCell Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft With Selection.ParagraphFormat ‘ .RightIndent = InchesToPoints(0) ‘ .LeftIndent = InchesToPoints(0) .SpaceBefore = 1 .SpaceBeforeAuto = False .SpaceAfter = 1 .SpaceAfterAuto = False…