title: Word VBA script compiles without error but doesn't work
body: <p>I wrote the VBA macro below for the purpose of reinforcing some Word 2010 style specifications that tend to unravel during my report authoring process.  The macro compiles without error, but when I run it on a test report in which all formatting but the style name assignments have been removed, nothing happens at all.</p>
  
  <pre><code>Sub ntsReportFormatting()
  
      Dim ntsReportDoc As Word.Document
  
      Dim ntsNormal As Style
      Dim ntsTOC1 As Style
      Dim ntsTOC2 As Style
      Dim ntsTOC3 As Style
  
      Set ntsReportDoc = ActiveDocument
  
      Set ntsNormal = ntsReportDoc.Styles("Normal")
      With ntsNormal
          .Font.Name = "Arial"
          .Font.Size = 12
          .ParagraphFormat.LeftIndent = 0.5
          .ParagraphFormat.SpaceAfter = 0.6
      End With
  
      Set ntsTOC1 = ntsReportDoc.Styles("TOC 1")
      With ntsTOC1
          .Font.Name = "Arial"
          .Font.Size = 12
          .Font.Bold = True
          .ParagraphFormat.LeftIndent = 0
          .ParagraphFormat.SpaceBefore = 0.6
          .ParagraphFormat.SpaceAfter = 0.6
      End With
  
      Set ntsTOC2 = ntsReportDoc.Styles("TOC 2")
      With ntsTOC2
          .Font.Name = "Arial"
          .Font.Size = 12
          .ParagraphFormat.LeftIndent = 0.17
          .ParagraphFormat.SpaceBefore = 0.6
          .ParagraphFormat.SpaceAfter = 0.6
          .NoSpaceBetweenParagraphsOfSameStyle = True
      End With
  
      Set ntsTOC3 = ntsReportDoc.Styles("TOC 3")
      With ntsTOC3
          .Font.Name = "Arial"
          .Font.Size = 12
          .ParagraphFormat.LeftIndent = 0.33
          .ParagraphFormat.SpaceBefore = 0.6
          .ParagraphFormat.SpaceAfter = 0.6
          .NoSpaceBetweenParagraphsOfSameStyle = True
      End With
  
  End Sub
  </code></pre>
  
  <p>I've consulted Lynda.com, the MSDN documentation, Youtube and Google and I haven't been able to find a clear solution.</p>