On Jun 26, 2009, at 7:45 AM, Fernand Vanrie wrote:
> when len(sChar) = 0 then you get the error
I had been checking for what sChar is, but kept forgetting to check
for it's length. Thanks.
I also realized I had made another goof. I intended to limit the
length of key phrases to 32 characters. While I checked for the
length, I forgot to keep increasing the length of the text I'm
comparing!
Hal
>> Hal,
>>
>> you have getposition and jumptostartofpage to compare the 2 positions
>>
>> hope it helps
>>
>> Fernand
>>
>>
>> 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@...
>
>
> ---------------------------------------------------------------------
> 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@...