Add Method (Frames Collection) Example
This example adds a frame around the selection.
ActiveDocument.Frames.Add Range:= Selection.Range
This example adds a frame around the third paragraph in the selection.
Set myFrame = Selection.Frames _
.Add(Range:= Selection.Paragraphs(3).Range)