Sophie: db4o-doc-7.4-2.fc13 i686

db4o-doc-7.4-2.fc13.i686.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

Sub SearchOffset()
    Dim pos As Integer
    pos = Val(Selection.Text)
    If pos = 0 Then
        MsgBox ("The selection is not a number")
    Else
        ActiveDocument.Content.Characters(pos).Select
    End If
End Sub