Re: [libreoffice-users] macro to add annotation to selected text range

Thanks Tom,

I've just spent some time looking htrough Andrew Pitonyak's macro guide.
It helps a little but there doesn't seem to be any direct documentation of
hte functions.  What I'm looking at is the second line reproduced below:

    oVC = ThisComponent.CurrentController.ViewCursor
    oText.insertTextContent(oVC.Start, oAnno, False)

I think oVC.Start needs to be replaced with something else, but I can't
figure out what.  All of Andrew's examples with insertTextContent insert
the content at a single location, not at a text range, so maybe I need a
different function. If someone knows another method I'd appreciate the
advice.

Thanks,
Matt

On Wed, Nov 19, 2014 at 11:15 AM, Tom Davies <tomcecf@gmail.com> wrote:

> Hi :)
> The best documentation is at;
> https://wiki.documentfoundation.org/Documentation/Publications
> and the most recent full books are also on the official LibreOffice
> website.
>
> For macros i think the best book by far is Andrew Pitonyak's guide on
>
> https://wiki.documentfoundation.org/Documentation/Other_Documentation_and_Resources#Programmers
>
> I'm not sure they will help for this specific use-case but they might help
> generally.
> Regards from
> Tom :)
>
>
>
> On 19 November 2014 16:05, Matt Price <moptop99@gmail.com> wrote:
>
> > Hi,
> >
> > I am trying to add a really simple macro that I can bind to a key.  I just
> > want ot be able ot add checkmarks to student papers veyr quickly, so I
> > would like to select a sentence or other text range, then press a key, and
> > have the ckeckmark appear in a new comment.
> >
> > I can almost do htis, using code stolen from the web:
> >
> > rem-------------------------------------------
> > rem -- misleadingly named macro adds a simple hceckmark at point, or in
> > response to highlighted text.
> > sub createComment
> >     rem create the annotation object
> >     oAnno =
> > ThisComponent.createInstance("com.sun.star.text.textfield.Annotation")
> >     rem Chr 10004 is the decimal for hex code 2714, "heavy checkmark"
> >     oAnno.Content = Chr(10004)
> >     oAnno.Author = "Matt Price"
> >     oText = ThisComponent.Text
> >     rem check to see if anything is selected
> >     oSels = ThisComponent.getCurrentSelection()
> >     If Not IsNull(oSels) Then
> >         rem I don't know what to put in here
> >     Else
> >         oVC = ThisComponent.CurrentController.ViewCursor
> >         oText.insertTextContent(oVC.Start, oAnno, False)
> >     End If
> > end sub
> >
> > -----------------------
> >
> > You can see that, if there's no selection, I already know how to insert
> > the
> > annotation.  But I don't know how to attach the annotation to the selected
> > range instead of just the start of the cursor.
> >
> > In general, I don't know where to find the funciton references or even the
> > source code for the relevant functions.  I'm finding it quite difficult to
> > figure out how to learn to program -- is there comprehensive documentation
> > somewhere?
> >
> > Thanks,
> >
> > Matt
> >
> > --
> > To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
> > Problems?
> > http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
> > Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
> > List archive: http://listarchives.libreoffice.org/global/users/
> > All messages sent to this list will be publicly archived and cannot be
> > deleted

-- 
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted