Re: 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@...