Re: Avoiding Moving The Cursor Before Start of Document

by Hal Vaughan-2 :: Rate this Message:

I may have a solution that's a bit different than what's been
suggested, but thanks to both Cor and Fernand because what they wrote
gave me the idea. I still have to code this and be sure it's what I
want. A quick check tells me that if I have one character at the
beginning, once I move the cursor over that character, I can keep
trying oCurse.goLeft(), but the length of the string in the selection
(sKey in this case) does not change. So I think I can just keep track
of the length of the selected string. If I try goLeft() and the
string length doesn't change, that should tell me I can't go left
anymore and I'm at the beginning.

If this works, I'll post a fixed version. I think I also exported
this or was going to so other people could use them as well. If I
haven't done it already, I will. I like it because it's a lot like
AutoCorrect, but I can define new key phrases and replacement texts in
a hurry and they are stored in the document, but can be exported to a
text file and imported in another document, so they are document
specific but can be transferred.

Hal

On Jun 26, 2009, at 2:41 AM, Hal Vaughan wrote:

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

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

« Return to Thread: Avoiding Moving The Cursor Before Start of Document