Results 1 to 5 of 5
  1. #1
    New Lounger
    Join Date
    Dec 2009
    Location
    Illinois
    Posts
    3
    Thanks
    3
    Thanked 0 Times in 0 Posts

    Need help creating an outline style

    Hi, everyone. My college wants us to create our course outlines using the following formatting:

    outline.jpg
    I've tried multiple methods to get this to format automatically (i.e. when I hit the Enter key after each line) but am having no luck. I ended up creating a macro to indent the outcomes & assessment statements. That works, but it's clumsy. Is this format possible? Lesson titles should be lettered. The words, Outcomes and Assessment: should be underlined. Outcomes and Assessments should be aligned under the first letter of the unit title, and not lettered or numbered.

    I was thinking I need to modify the Heading 1 style (which is what Word uses for the first element of a multi-level list), and set the "paragraph following" to the correct alignment and indent level, but I'm not sure how to get the first word underlined (if that is even possible).

    I'm using Word 2016 from Office 365.

    Any help greatly appreciated!

  2. #2
    Silver Lounger Charles Kenyon's Avatar
    Join Date
    Jan 2001
    Location
    Sun Prairie, Wisconsin, Wisconsin, USA
    Posts
    2,049
    Thanks
    124
    Thanked 119 Times in 116 Posts
    First, review http://www.shaunakelly.com/word/numb...g20072010.html

    Yes, you want a different, indented, style to follow Heading 1.

    Consider creating an AutoText entry with all three elements and with plain text content controls where you want people to type.

    http://www.addbalance.com/usersguide...utocorrect.htm
    Charles Kyle Kenyon
    Madison, Wisconsin

  3. The Following User Says Thank You to Charles Kenyon For This Useful Post:

    ILGal (2016-11-04)

  4. #3
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,852
    Thanks
    4
    Thanked 259 Times in 239 Posts
    This macro creates the three styles and sets up the parameters you asked for. You should be able to simply type and press return to get the next style.
    Code:
      ActiveDocument.Styles.Add Name:="Lesson", Type:=wdStyleTypeParagraph
      With ActiveDocument.Styles("Lesson")
        .AutomaticallyUpdate = False
        .BaseStyle = "Normal"
      End With
      Selection.Style = ActiveDocument.Styles("Lesson")
      
      ActiveDocument.Styles.Add Name:="Outcomes", Type:=wdStyleTypeParagraph
      With ActiveDocument.Styles("Outcomes")
        .AutomaticallyUpdate = False
        .BaseStyle = "Normal"
      End With
      ActiveDocument.Styles.Add Name:="Assessment", Type:=wdStyleTypeParagraph
      With ActiveDocument.Styles("Assessment")
        .AutomaticallyUpdate = False
        .BaseStyle = "Normal"
        .NextParagraphStyle = "Lesson"
      End With
      ActiveDocument.Styles("Outcomes").NextParagraphStyle = "Assessment"
      ActiveDocument.Styles("Lesson").NextParagraphStyle = "Outcomes"
      
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = "%1."
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleUppercaseLetter
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        .LinkedStyle = "Lesson"
      End With
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(2)
        .NumberFormat = "Outcomes:"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleNone
        .NumberPosition = CentimetersToPoints(1)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1)
        .TabPosition = wdUndefined
        .ResetOnHigher = 1
        .StartAt = 1
        .Font.Underline = wdUnderlineSingle
        .LinkedStyle = "Outcomes"
      End With
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(3)
        .NumberFormat = "Assessment:"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleNone
        .NumberPosition = CentimetersToPoints(1)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1)
        .TabPosition = wdUndefined
        .ResetOnHigher = 2
        .StartAt = 1
        .Font.Underline = wdUnderlineSingle
        .LinkedStyle = "Assessment"
      End With
    
      ListGalleries(wdOutlineNumberGallery).ListTemplates(1).Name = ""
      Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
          ListGalleries(wdOutlineNumberGallery).ListTemplates(1), _
          ContinuePreviousList:=False, ApplyTo:=wdListApplyToWholeList, _
          DefaultListBehavior:=wdWord10ListBehavior
    End Sub
    You can then tinker with the styles to get the rest of the look you wanted.
    Andrew Lockton, Chrysalis Design, Melbourne Australia

  5. The Following User Says Thank You to Andrew Lockton For This Useful Post:

    ILGal (2016-11-04)

  6. #4
    New Lounger
    Join Date
    Dec 2009
    Location
    Illinois
    Posts
    3
    Thanks
    3
    Thanked 0 Times in 0 Posts
    Lots to consider! Thanks for the extra guidance. I'll fiddle around and see which method fits my project. Your help is much appreciated!

  7. #5
    New Lounger
    Join Date
    Dec 2009
    Location
    Illinois
    Posts
    3
    Thanks
    3
    Thanked 0 Times in 0 Posts
    This is pretty amazing!! Reading through the code, I'm not entirely sure how you worked the Word magic, but wow. Thank much!!


    Quote Originally Posted by Andrew Lockton View Post
    This macro creates the three styles and sets up the parameters you asked for. You should be able to simply type and press return to get the next style.
    Code:
      ActiveDocument.Styles.Add Name:="Lesson", Type:=wdStyleTypeParagraph
      With ActiveDocument.Styles("Lesson")
        .AutomaticallyUpdate = False
        .BaseStyle = "Normal"
      End With
      Selection.Style = ActiveDocument.Styles("Lesson")
      
      ActiveDocument.Styles.Add Name:="Outcomes", Type:=wdStyleTypeParagraph
      With ActiveDocument.Styles("Outcomes")
        .AutomaticallyUpdate = False
        .BaseStyle = "Normal"
      End With
      ActiveDocument.Styles.Add Name:="Assessment", Type:=wdStyleTypeParagraph
      With ActiveDocument.Styles("Assessment")
        .AutomaticallyUpdate = False
        .BaseStyle = "Normal"
        .NextParagraphStyle = "Lesson"
      End With
      ActiveDocument.Styles("Outcomes").NextParagraphStyle = "Assessment"
      ActiveDocument.Styles("Lesson").NextParagraphStyle = "Outcomes"
      
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = "%1."
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleUppercaseLetter
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        .LinkedStyle = "Lesson"
      End With
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(2)
        .NumberFormat = "Outcomes:"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleNone
        .NumberPosition = CentimetersToPoints(1)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1)
        .TabPosition = wdUndefined
        .ResetOnHigher = 1
        .StartAt = 1
        .Font.Underline = wdUnderlineSingle
        .LinkedStyle = "Outcomes"
      End With
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(3)
        .NumberFormat = "Assessment:"
        .TrailingCharacter = wdTrailingSpace
        .NumberStyle = wdListNumberStyleNone
        .NumberPosition = CentimetersToPoints(1)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1)
        .TabPosition = wdUndefined
        .ResetOnHigher = 2
        .StartAt = 1
        .Font.Underline = wdUnderlineSingle
        .LinkedStyle = "Assessment"
      End With
    
      ListGalleries(wdOutlineNumberGallery).ListTemplates(1).Name = ""
      Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
          ListGalleries(wdOutlineNumberGallery).ListTemplates(1), _
          ContinuePreviousList:=False, ApplyTo:=wdListApplyToWholeList, _
          DefaultListBehavior:=wdWord10ListBehavior
    End Sub
    You can then tinker with the styles to get the rest of the look you wanted.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •