Share via

Word 2010, I am trying to set the Heading Styles for Font 'Times Roman', Size '14', not Italic

Anonymous
2019-04-29T18:25:02+00:00

I have a lot of recipes and now going back over them and changing all formatting to just one format. but Word 2010 will change the formatting to something else from the macro that it running. Word mainly just changes the Heading format to be an Italic. Don't wish to have an Italic as Heading 2. Hope you all can help out this old man, retired for many years.

Here is the macro I had found on the web and currently using:

Sub MassFormatFilesw11pts()

'

' MassFormatFiles with 14pts Macro

'

' MassFormatFiles Macro

' Page Setup dialog box. Thus, things like paper size, margins, header and footer locations, and orientation

'

Dim JName As String

    Dialogs(wdDialogFileOpen).Show

    Application.ScreenUpdating = False

    JName = Dir("*.doc")

    While (JName > "")

        Application.Documents.Open FileName:=JName

            'Do formatting here

  With Selection.PageSetup

        .LineNumbering.Active = False

        .Orientation = wdOrientPortrait

        .TopMargin = InchesToPoints(0.3)

        .BottomMargin = InchesToPoints(0.9)

        .LeftMargin = InchesToPoints(0.5)

        .RightMargin = InchesToPoints(0.5)

        .Gutter = InchesToPoints(0)

        .HeaderDistance = InchesToPoints(0.5)

        .FooterDistance = InchesToPoints(0.5)

        .PageWidth = InchesToPoints(8.5)

        .PageHeight = InchesToPoints(11)

        .FirstPageTray = wdPrinterDefaultBin

        .OtherPagesTray = wdPrinterDefaultBin

        .SectionStart = wdSectionNewPage

        .OddAndEvenPagesHeaderFooter = False

        .DifferentFirstPageHeaderFooter = False

        .VerticalAlignment = wdAlignVerticalTop

        .SuppressEndnotes = False

        .MirrorMargins = False

        .TwoPagesOnOne = False

        .BookFoldPrinting = False

        .BookFoldRevPrinting = False

        .BookFoldPrintingSheets = 1

        .GutterPos = wdGutterPosLeft

    End With

    Selection.WholeStory

    Selection.Font.Name = "Times New Roman"

    Selection.Font.Size = 11

    Selection.HomeKey Unit:=wdStory

    Selection.EndKey Unit:=wdLine, Extend:=wdExtend

    Selection.Style = ActiveDocument.Styles("Heading 2")

    Selection.Font.Name = "Times New Roman"

    Selection.Font.Size = 14

    Selection.Font.Color = RGB(0, 0, 0)

        ActiveDocument.Close SaveChanges:=wdSaveChanges

        JName = Dir()

    Wend

    Application.ScreenUpdating = True

End Sub

How do I change this so the formatting in the Modify Style, Properties is set for a "Heading 2"

Formatting is set for "Times Roman", Size "14", "Bold" is Highlighted, "Italic & Underscore " is Not Highlighted

In the Format for Paragraph, Spacing is set for "Before" "0" After" "0"

Microsoft 365 and Office | Word | For home | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

19 answers

Sort by: Most helpful
Most helpful Newest Oldest
  1. Anonymous
    2019-05-02T17:34:05+00:00

    Lesson learned the hard way!

    I have the following recipes sizes:

    2.37 gigbytes

    12,790 files

    398 folders or directories

    Formatting the Directions, Instructions & Notes, Tips to a Heading would look really crazy in a PDF having Bookmarks.

    For instance in a PDF file the Bookmarks for the recipe would look like this:

    Tortellini Emilia Recipe

       Instructions:

       Directions:

       Notes:

    Vodka Cream Pasta Recipe

       Instructions:

       Directions:

       Notes:

    Texas Noodles

       Instructions:

       Directions:

       Notes:

    I convert all of my recipes over to PDF's and then using a DVD disc make disc for family members and friends to have. Most recipes (maybe 95%) will fit on one page.

    So converting the Directions, Instructions & Notes to headers sounds like a terrific idea, but it's too late now for me since I have:

    2.37 gigabytes of files

    398 folders or directories

    12,790 files (PDFs not including .docx files)

    But right now I need to go back & correct 1,841 files and put them back the way I had them before the Macro was ran.

    Learned my lesson - Test any Macro on a small group of files first, if ran okay and no issues occured then implement on the real files & folders.

    Thanks,

    Bill n Texas

    Was this answer helpful?

    1 person found this answer helpful.
    0 comments
  2. Anonymous
    2019-05-02T16:06:41+00:00

    Thanks for getting back so quickly.

    The Bold and Italics used beyond the Heading 1, 2, 3, or 4 is to denote the beginnings for the Ingredients, Directions, Notes, Tips and important instructions that one needs in preparing the particular recipe. I started a long time back with my recipes, but never thought about and standard formats, I simply just started typing the recipe. Later on I changed the looks, and again, and again and so on. Now I have completely redesigned the format like this:

    Heading 1, 2, 3, or 4

    a hyperlink of web page where recipe could be found: https://www.foodnetwork.com/recipes/cheese-stuffed-mini-meat-loaves-recipe-2108972

    A short description about the recipe.

    Progresso® bread crumbs and Progresso™ Recipe Starters™ tomato sauce provide a simple addition to these ground beef-cheese filled mini meat loaves – ready in 30 minutes.

    Author | Date

    Prep Time: hour/minutes | Cook Time: hours/minutes | Total Time: hours/minutes

    Yields or Serves:

    (skip a line)

    Ingredients: (list the ingredients)

    1/2 cup Progresso® Italian Style Panko crispy bread crumbs

    1 can (18 oz.) Progresso™ Recipe Starters™ fire roasted tomato cooking sauce

    2 sticks (1 oz. each) string cheese*

    1 lb extra-lean (at least 93%) ground beef

    1 egg

    1/4 cup sliced green onions (4 medium)

    Hot cooked mashed potatoes, if desired

    (skip a line)

    (skip a line)

    Directions:

    Heat oven to 350°F. In large bowl, stir bread crumbs and 1 cup of the cooking sauce until well mixed; let stand 5 minutes.

    Meanwhile, cut twelve 1/2-inch pieces from cheese sticks (store remaining portion of cheese stick for another use). Set aside. Add beef, egg, green onions, 1/2 teaspoon salt and 1/4 teaspoon pepper to bread crumb mixture until well mixed.

    (skip a line)

    Notes or Tips:

    Make the Most of This Recipe With Tips From The Pillsbury® Kitchens

    The above is just a short sample for a recipe. One can see why it is important to have the Bold and Italics in there especially for a recipe having many steps in the Directions along with cautions & tips:

    Thanks for of your help and time,

    Bill N Texas

    Was this answer helpful?

    1 person found this answer helpful.
    0 comments
  3. Anonymous
    2019-05-02T08:48:18+00:00

    Bill

    The Bold and Italics were removed for the sake of making your documents standardised.

    If you still have a copy of the original files before that standardisation, it is possible to rewrite the macro to preserve all those inconsistencies and just touch the first paragraph. If you don't have the originals, there may not be a way to identify the content that was bold or italic before so perhaps we can't re-instate those other formats.

    Was this answer helpful?

    1 person found this answer helpful.
    0 comments
  4. Anonymous
    2019-05-02T02:54:28+00:00

    That did work, however lost all Bold & Italics on text below Heading's...

    I don't mean to be a pain.

    Thanks for all who have helped.

    Bill n Texas

    Was this answer helpful?

    1 person found this answer helpful.
    0 comments
  5. Anonymous
    2019-04-29T21:25:44+00:00

    Thanks for the quick response, but sad to say this fix did not help me out. This is my type of luck.

    Was this answer helpful?

    0 comments