Range
Refers an area in a document to perform actions, like insert text or apply formatting. For example, you may want to write a macro that locates a word or phrase within a portion of a document. The portion of the document can be represented by a Range. After the Range object is identified, methods and properties of the Range object can be applied to modify the contents of the range.
Note: Range object is not as Selection object in Word. There is only one selection per document but Ranges can be multiple.
Create/Add Range
Sub SetNewRange() Dim rngDoc As Range Set rngDoc = ActiveDocument.Range(Start:=0, End:=10) End Sub
Bold property
Sub SetRangeToBold() Dim rngDoc As Range Set rngDoc = ActiveDocument.Range(Start:=0, End:=10) rngDoc.Bold = True End Sub
InsertBefore
Sub InsertTextBeforeRange() Dim rngDoc As Range Set rngDoc = ActiveDocument.Range(Start:=0, End:=0) rngDoc.InsertBefore "Hello " End Sub
Output

Paragraph with Range
Sub GetNewRange() Dim doc As Document Dim rngDoc As Range Set doc = ActiveDocument Set rngDoc = doc.Range(Start:=doc.Paragraphs(2).Range.Start, _ End:=doc.Paragraphs(3).Range.End) End Sub
List objects which exposes Range
- Selection
- Document
- Paragraph
- Bookmark
- Cell
Alignment
Sub FormattingRange() ActiveDocument.Paragraphs(2).Range.Select Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter End Sub
SetRange
Sometimes you add or delete contents from your document which are referenced under a Range object. Since Range object is predefined and holding reference before change would not know what has been added or deleted from given range. To fit Range back to amended range Word offers SetRange method by which you can expand or shrink your range object. The SetRange method then redefines the range so that it refers to the current selection plus the next 10 characters.
Code example
Sub ResizeRange() Dim rngParagraph As Range 'Get current range Set rngParagraph = Selection.Range 'Extend range by 10 chars rngParagraph.SetRange Start:=rngParagraph.Start, End:=rngParagraph.End + 10 End Sub
Next>>Working with Tables in Word VBA