Is it possible to use "_Word_DocRangeSet" function in vb.net ?

[kcvinu]

Hi all,

I need to use an autoit function named "_Word_DocRangeSet" in vb.net. Is it possible. I do know about the AutoItServer.au3 file by AutoItObject Team. So i am searching for another methods. 

[water]

You could simply translate it to VB. 

[kcvinu]

Um, that's not a bad idea, but need more study. I didn't find a correct option to move the range backward from cursor point in vb.net. Anyway, let me study the function deeply. Thanks @water 

 

[water]

Moving the cursor etc. is Word COM stuff. So it should be possible to convert it to VB. What you need to change is the AutoIt stuff to VB.

[kcvinu]

@water , Thank you for the inspiration. I have successfuly translated the function into vb.net. But i have one doubt. Assume that i am going to get 3 words backward from cursor. So i gave parameters like this. (OWordObject, 0, 2, -3). Assume that the text in my word document is like this "He is... " 

You see, two english words and 3 dots and white space. But my function is returning only the dots. I don't know it includes white space. But i need to get only the two english words from this context. How ?

[water]

Have you tried this with _Word_DocRangeSet? Does it return the same result?

[kcvinu]

@water , _Word_DocRangeSet is giving correct result. No problem. I think my translated function is the problem. Here it is.

expandcollapse popup

Public Function Word_DocRangeSet( _
ByVal oDoc As Object, _
ByVal vRange As Object, _
Optional ByVal iStartUnit As Object = 0, _
Optional ByVal iStartCount As Object = 1, _
Optional ByVal iEndUnit As Object = 0, _
Optional ByVal iEndCount As Object = 1) As Object
       
        If iStartUnit = 0 Then iStartUnit = Word.WdUnits.wdWord
        If iEndUnit = 0 Then iEndUnit = Word.WdUnits.wdWord
       
        If vRange = -1 Then
            vRange = oDoc.Range 
           vRange.Collapse(Word.WdCollapseDirection.wdCollapseStart)
        ElseIf vRange = -2 Then
            vRange = oDoc.Range 
           vRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
        ElseIf vRange = 0 Then
            vRange = oDoc.Parent.Selection.Range 
       End If
        Try
            If iStartUnit = -1 Then
                vRange.Collapse(Word.WdCollapseDirection.wdCollapseStart)
 
            ElseIf iStartCount <> 1 Then
                vRange.MoveStart(iStartUnit, iStartCount)
 
            End If
            If iEndUnit = -1 Then
                vRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
 
            ElseIf iEndCount <> 0 Then
                vRange.MoveEnd(iEndUnit, iEndCount)
 
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return vRange
    End Function

For testing purpose, i didn't put any error finding tests in this function. 

Edited August 1, 2015 by kcvinu

[water]

Just had a quick look at your code (without testing). I would use 0 for all optional values to be the "Default" value.

Public Function Word_DocRangeSet(ByVal oDoc As Object, ByVal vRange As Object, Optional ByVal iStartUnit As Object = 0, Optional ByVal iStartCount As Object = 0, Optional ByVal iEndUnit As Object = 0, Optional ByVal iEndCount As Object = 0)
           
            If iStartUnit = 0 Then iStartUnit = Word.WdUnits.wdWord
            If iEndUnit = 0 Then iEndUnit = Word.WdUnits.wdWord
            If vRange = -1 Then
                vRange = oDoc.Range ' Set range start/end at the start to the document
               vRange.Collapse(Word.WdCollapseDirection.wdCollapseStart)
            ElseIf vRange = -2 Then
                vRange = oDoc.Range ' Set range start/end at the end to the document
               vRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
            ElseIf vRange = 0 Then
                vRange = oDoc.Parent.Selection.Range ' Use the current selection as range
           End If
            Try
                If iStartUnit = -1 Then
                    vRange.Collapse(Word.WdCollapseDirection.wdCollapseStart)
                ElseIf iStartCount <> 0 Then
                    vRange.MoveStart(iStartUnit, iStartCount)
                End If
                If iEndUnit = -1 Then
                    vRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
                ElseIf iEndCount <> 0 Then
                    vRange.MoveEnd(iEndUnit, iEndCount)
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            Return vRange
        End Function

 

[kcvinu]

I have used 1 as default value because, msdn says startCount and endCount values are 1. 

But my main problem is, how can i run this program when my form1 is not in focus . I have tested BackGroundWorker class, but didn't get the intended result. Thinking about using timer's tick event. 

Edited August 1, 2015 by kcvinu

[water]

But in this function 0 is more sensible because with 1 you would always move the start AND end of the range even if you just wanted to move one of them.

[kcvinu]

Ok, let me correct it.