Microsoft Office Forums - View Single Post

SaneMan · 11-01-2013, 02:38 AM

Quote:

Originally Posted by macropod

Hi Antony,

Here's a simple demo of inserting a QUOTE field at the selection:

Code:

Sub Demo()
With Selection
  .Fields.Add Range:=.Range, Type:=wdFieldEmpty, _
    PreserveFormatting:=False, Text:="QUOTE" & Chr(34) & "Text to display" & Chr(34)
  .Fields.Update
End With
End Sub

Worked perfectly. Thanks a bunch!