title: Inserting a few lines of text at the end of a document
body: <p>My title didn't seem to match questions that may have my answer, and I did find some snippets from other threads/sites to help me get this far. I'm looking for assistance tying the entire macro together. Here is what I have so far:</p>
  
  <pre><code>Sub Test()
  
  Selection.EndKey Unit:=wdStory
  Dim oPara1 As Word.Paragraph
  
  Set oDoc = oWord.Documents.Add
  
  Set oPara1 = oDoc.Content.Paragraphs.Add
  With oPara1.Range
      .ParagraphFormat.Alignment = wdAlignParagraphCenter
      .InsertParagraphAfter
      With .Font
          .Name = "Times New Roman"
          .Size = "12"
          .Bold = True
      End With
  End With
  
  Selection.TypeText Text:="Fosters, Inc."
  Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
  Selection.TypeText Text:="www.genericwebsite.com"
  Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
  Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
  
  'this needs to be left alignment from here on out
  Selection.TypeText Text:="Block\Paragraph Format:"
  Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
  Selection.TypeText Text:="Run Date:"
  Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
  Selection.TypeText Text:="Picture:"
  Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
  Selection.TypeText Text:="Symbol:"
  Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
  Selection.TypeText Text:="Guest Book:"
  
  End Sub
  </code></pre>
  
  <p>I want it to move to the end of the document and print:</p>
  
  <pre><code>                     Fosters, Inc.
                  www.genericwebsite.com
  
  Block\Paragraph Format:
  Run Date:
  Picture:
  Symbol:
  Guest Book:
  </code></pre>
  
  <p>Thanks for any help - I've spent literally just an hour or so with vba in Word today.</p>