Okay, so I'm working on the "1.1.X" header.

I create my header here:

VB Code:
  1. Set oHeader1 = objDoc.Content.Paragraphs.Add

  2.             With oHeader1

  3.                 .Range.Text = STR_IOS_PAGE_NAME

  4.                 .Range.Font.AllCaps = True

  5.                 .Range.Underline = wdUnderlineThick

  6.                 .Range.ParagraphFormat.KeepWithNext = True

  7.                 .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

  8.                 .Range.Style = "Heading 3"

  9.  
  10.                 .Range.ListFormat.ApplyNumberDefault  'e.g. 1.

  11.             

  12.                 .Range.Font.Bold = True

  13.                 .Format.SpaceAfter = 24    '24 pt spacing after paragraph.

  14.                 .Range.InsertParagraphAfter

  15.         

  16.                 .Range.Font.AllCaps = False

  17.                 .Range.ParagraphFormat.Alignment = wdAlignParagraphLeft

  18.                 .Range.ParagraphFormat.KeepWithNext = False

  19.             End With

But then I took the VB code from Word here (I'm not taking all of it, just the one I need):

VB Code:
  1. With ListGalleries(wdOutlineNumberGallery).ListTemplates(5).ListLevels(1)

  2.             'I only care about List Level 1 since Normal Text data will come after this.

  3.             'And, NumberFormat will be hardcoded since it will be merged into another larger document

  4.             ' at section 3.1

  5.                 .NumberFormat = "3.1.%1"

  6.                 .TrailingCharacter = wdTrailingTab

  7.                 .NumberStyle = wdListNumberStyleArabic

  8.                 .NumberPosition = InchesToPoints(0)

  9.                 .Alignment = wdListLevelAlignLeft

  10.                 .TextPosition = InchesToPoints(0.3)

  11.                 .TabPosition = InchesToPoints(0.3)

  12.                 .ResetOnHigher = 0

  13.                 .StartAt = 1

  14.                 With .Font

  15.                     .Bold = wdUndefined

  16.                     .Italic = wdUndefined

  17.                     .Strikethrough = wdUndefined

  18.                     .Subscript = wdUndefined

  19.                     .Superscript = wdUndefined

  20.                     .Shadow = wdUndefined

  21.                     .Outline = wdUndefined

  22.                     .Emboss = wdUndefined

  23.                     .Engrave = wdUndefined

  24.                     .AllCaps = wdUndefined

  25.                     .Hidden = wdUndefined

  26.                     .Underline = wdUndefined

  27.                     .Color = wdUndefined

  28.                     .Size = wdUndefined

  29.                     .Animation = wdUndefined

  30.                     .DoubleStrikeThrough = wdUndefined

  31.                     .Name = ""

  32.                 End With

  33.                 .LinkedStyle = ""

  34.             End With

  35.             ListGalleries(wdOutlineNumberGallery).ListTemplates(5).Name = ""

  36.             Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _

  37.                 wdOutlineNumberGallery).ListTemplates(5), ContinuePreviousList:=True, _

  38.                 ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _

  39.                 wdWord10ListBehavior


Now, I changed "Selection" to "oHeader1" but have an error... Maybe I just have the wrong type, Word.Paragraph.

Should be an easy one.