Sub sbInsertScientificResultsDiscussion()
Application.ScreenUpdating = False
With ActiveDocument
  With .Range
    .InsertAfter vbCr & "Results and Discussion" & vbCr
    .Paragraphs.Last.Previous.Style = "Heading 1"
    .Tables.Add Range:=.Characters.Last, numrows:=5, numcolumns:=3, _
        DefaultTableBehavior:=wdWord9TableBehavior
    With .Tables(.Tables.Count)
      .Range.InsertCaption Label:="Table", Position:=wdCaptionPositionAbove, _
          Title:=":" & vbTab & "Add table caption text" & vbCr
      .AllowAutoFit = False
      .BottomPadding = 3
      .TopPadding = 3
      .LeftPadding = 6
      .RightPadding = 6
      .PreferredWidth = CentimetersToPoints(15.5)
      With .Range
        .Style = "Table Text"
        .Cells.VerticalAlignment = wdCellAlignVerticalCenter
        .Cells(1).Range.Text = "Table Text + local effect: bold"
        .Cells(1).Range.Font.Bold = True
        .Cells(4).Range.Text = "Table text + local effect: Align left"
        .Cells(4).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
        .Cells(5).Range.Text = "Table Text is centered by default"
      End With
    End With
    .Paragraphs.Last.Style = "Notes"
    .InsertAfter Text:="a." & vbTab & "This is a footnote a. to the table" & vbCr
    .InsertAfter Text:="b." & vbTab & "This is a footnote b. to the table" & vbCr
    .Paragraphs.Last.Style = "Body Text"
  End With
  .Shapes.AddCanvas Left:=0, Top:=0, Anchor:=.Range.Characters.Last, _
      Width:=CentimetersToPoints(15.5), Height:=CentimetersToPoints(7.06)
  .Shapes(.Shapes.Count).WrapFormat.Type = wdWrapInline
End With
Application.ScreenUpdating = True
End Sub