Sub Z_BCR3ContentNewX()
Dim Reference As String
Dim strTopLine As String
Dim HOR As String
Dim ToAll As String
Dim oRng As Word.Range
Dim oFld As Field
  Set oRng = Selection.Range
  With oRng
    With .Font
      .Size = 10
      .Name = "Arial"
    End With
    strTopLine = InputBox("Top Line?, If blank remember to remove line", "")
    If strTopLine <> vbNullString Then
      .Text = strTopLine & vbCr
      .Paragraphs.Last.SpaceAfter = 12
    End If
    .Collapse wdCollapseEnd
    Set oFld = Fields.Add(oRng, wdFieldEmpty, "MERGEFIELD LQCASE_NAME", True)
    .End = oFld.Result.End
    .Collapse wdCollapseEnd
    .Text = vbCr
    .Collapse wdCollapseEnd
    Set oFld = Fields.Add(oRng, wdFieldEmpty, "MERGEFIELD ADD", True)
    .End = oFld.Result.End
    .Collapse wdCollapseEnd
    .Text = vbCr
    .Paragraphs.Last.SpaceAfter = 12
    .Collapse wdCollapseEnd
    HOR = InputBox("Highlighted OR?", "")
    If HOR <> vbNullString Then
      .Text = HOR & vbCr
      .HighlightColorIndex = wdTurquoise
      .Paragraphs.Last.SpaceAfter = 36
    End If
    .Collapse wdCollapseEnd
    .Text = "Our Ref:"
    .Bold = True
    .Collapse wdCollapseEnd
    'and so on
  End With