Hey guys, I am trying to figure out problem with VBA and Word. I need to select range from word document, currently I have working Word VBA script, but trying to implement it in Excel does not work like it should in my mind. It is making selection from already open word document.
Word Script:
Excel Script:Dim SelectedRange As Range
Set SelectedRange = ActiveDocument.Range
With SelectedRange.Find
.Execute FindText:="number 51"
End With
MsgBox "Position=" & SelectedRange.Start
a = SelectedRange.Start + 11
b = a + 440
Set rngParagraphs = ActiveDocument.Range(Start:=a, End:=b)
rngParagraphs.Select
Excel script is making Named argument not found error.Dim msWord As Object
Dim SelectedRange As Object
Dim rngParagraphs As Object
Dim strName As String
Set msWord = GetObject(, "Word.Application")
Set msWordActive = msWord.ActiveDocument.Content
Dim boxString As String
boxString = TextBox1.Value
i = Right(boxString, 1)
strName = "number " + i
With msWordActive.Find
.Execute FindText:=strName
End With
Set SelectedRange = msWordActive.Paragraphs(1).Range
MsgBox "Position=" & SelectedRange.Start
a = SelectedRange.Start + 40
b = a + 440
MsgBox msWordActive.Paragraphs.Count
Set rngParagraphs = msWordActive.Paragraphs(1).Range(Start:=a, End:=b)
rngParagraphs.Select
Bookmarks