Avoiding Moving The Cursor Before Start of Document

I have a macro collection I've posted about before.  It works like the  
AutoCorrect function, but I've customized it for me.  If I hit Ctrl-
Shift-T (actually Command-Shift-T since I'm now on an iMac), I get a  
dialog that lets me define a key phrase and the AutoText that goes  
with it.  Then when I'm writing, after any space or at the start of a  
new line, I hit Command-T.  That activates a macro that starts at the  
current cursor position and steps back until it finds a space or a  
control character.  The only problem with this is if I do this at the  
start of a document I end up with a null character or something  
instead and I can't do a comparison on it.  So is there some way,  
after moving the cursor, to check and see if I'm at the start of the  
document?

The code that steps backwards through the characters in the document  
is below.  Notice that all I do is step back, check each new character  
added to the start of the selection and see if the value is that of a  
space or less.  I want to add an If statement before I move the cursor  
left so if I'm trying to move it past the start of the document, I can  
catch it.

Of course, another alternative is to be able to define a variable to  
whatever character I'd find at the start of the document and compare  
sChar to that value to see if I'm at the start.

Sub InsertAutoMacroText

        oDoc = ThisComponent
        oCurs = oDoc.getCurrentController().getViewCursor()
        iEnd = false
        iCount = 0
        Do
'Go back one character, then get that character and put it in a  
separate variable
'for comparison.
                oCurs.goLeft(1, true)
                sKey = oCurs.getString()
                sChar = Left(sKey, 1)
'BUG: This next line throws an error if we try to use this at the  
start of a
'document.
                iChar = Asc(sChar)
' MsgBox "String: " + sKey + ", Char: " + sChar + ", Char Code: " +  
iChar
                If iChar < 33 Then iEnd = true
                If iCount > 32 Then iEnd = true
        Loop Until iEnd
        oCurs.goRight(1, true)
        sKey = oCurs.getString()
' sText = "Replaced ->" + sKey + "<-"
        sText = GetDocumentVariable(sKey)
        oCurs.setString(sText)
        oCurs.collapseToEnd()
End Sub

I've been going through the API, but I have a disadvantage: I haven't  
been working with it much recently, so I don't seem to find things as  
easily as I have in the past.

Any help on this is much appreciated!


Hal

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@...
For additional commands, e-mail: dev-help@...