Mega Code Archive

 

Categories / VisualBasic Script / Word

 

The Range object selects paragraphs

Sub SelectSentence()     Dim wdApp As Word.Application     Dim wdRng As Word.Range          Set wdApp = GetObject(, "Word.Application")          With wdApp.ActiveDocument         If .Paragraphs.Count >= 3 Then             Set wdRng = .Paragraphs(3).Range             wdRng.Copy         End If     End With     Worksheets("Sheet2").PasteSpecial     Worksheets("Sheet2").Paste Destination:=Worksheets("Sheet2").Range("A1")          Set wdApp = Nothing     Set wdRng = Nothing End Sub