Sub sbInsertScientificResultsDiscussion()
Dim myRange As Range
Dim myTable As Table
Dim myCanvas As Shape
 
Set myRange = ActiveDocument.StoryRanges(wdMainTextStory)
With myRange
  .Collapse direction:=wdCollapseEnd
  .Style = ActiveDocument.Styles("Heading 1")
  .InsertAfter Text:="Results and Discussion" & vbCrLf & vbcflf
  .Collapse direction:=wdCollapseEnd
  .Style = ActiveDocument.Styles("Table Text")
  Set myTable = .Tables.Add(Range:=myRange, numrows:=5, numcolumns:=3, DefaultTableBehavior:=wdWord9TableBehavior)
  myTable.Range.InsertCaption Label:="Table", Position:=wdCaptionPositionAbove, Title:=":" & vbTab & "Add table caption text" & vbCrLf
End With
With myTable
  .Range.Style = ActiveDocument.Styles("Table Text")
  .AllowAutoFit = False
  .BottomPadding = 3
  .TopPadding = 3
  .LeftPadding = 6
  .RightPadding = 6
  .PreferredWidth = CentimetersToPoints(15.5)
  With .Range
    .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
  Set myRange = ActiveDocument.StoryRanges(wdMainTextStory)
  myRange.Collapse direction:=wdCollapseEnd
  myRange.Style = ActiveDocument.Styles("Notes")
  myRange.InsertAfter Text:="a." & vbTab & "This is a footnote a. to the table" & vbCrLf
  myRange.InsertAfter Text:="b." & vbTab & "This is a footnote b. to the table" & vbCrLf
  Set myRange = ActiveDocument.StoryRanges(wdMainTextStory)
  myRange.Collapse direction:=wdCollapseEnd
  myRange.Style = ActiveDocument.Styles("Body Text")
  myRange.InsertAfter vbCrLf
  myRange.Collapse direction:=wdCollapseEnd
 
  Set myCanvas = ActiveDocument.Shapes.AddCanvas(Left:=100, Top:=100, Width:=CentimetersToPoints(15.5), Height:=200, Anchor:=myRange)
  myCanvas.WrapFormat.Type = wdWrapInline