Selection.Frames.Add(Range:=Selection.Range).LockAnchor = True With ActiveDocument.ActiveWindow.View .Type = wpsPrintView .ShowObjectAnchors = True End With