Kommentar som makro

[perbrock]

Jeg erkender at være nybegynder i makroverdenen, men der må være en løsning på mit lille problem. Jeg er lærer i overbygningen, og når jeg retter stile, dukker de samme fejl op igen og igen. Jeg vil derfor gerne lave en makro med en fast tekst og evt. et link, der henviser til en forklaring på fejltypen.
Når jeg forsøger at indsætte en kommentar, får jeg følgende kode:
rem dispatcher.executeDispatch(document, ".uno:InsertAnnotation", "", 0, Array())
Ved at fjerne rem bliver kommandoen tilsyneladende aktiv, men så skal jeg have tekst ind i boksen. Hvad gør jeg?
På forhånd tak
Per

[Jens S]

Prøv med denne makro taget fra Andrew's makro samling:

Code: Select all

Sub AddNoteAtCursor
Dim vDoc, vViewCursor, oCurs, vTextField
Dim s$
'Lets lie and say that this was added ten days ago!
Dim aDate As New com.sun.star.util.Date
With aDate
.Day = Day(Now - 10)
.Month = Month(Now - 10)
.Year = Year(Now - 10)
End With
vDoc = ThisComponent
vViewCursor = vDoc.getCurrentController().getViewCursor()
oCurs=vDoc.getText().createTextCursorByRange(vViewCursor.getStart())
s = "com.sun.star.text.TextField.Annotation"
vTextField = vDoc.createInstance(s)
With vTextField
.Author = "AP" 'her retter du
.Content = "It sure is fun to insert notes into my document" 'her retter du
'Ommit the date and it defaults to today!
.Date = aDate
End With
vDoc.Text.insertTextContent(oCurs, vTextField, False)
End Sub

Dette er alm. Star Basic og er lettere at tilpasse og forstå end dispatcher-makroen du får ved at bruge makro-optager.
Når du har lavet dine tilpasninger, lav så en tilknytning til makroen med en tastatur-genvej.

mvh
Jens

mvh
Jens

[perbrock]

Hej Jens
Tak for hjælpen. Denne vil jeg arbejde lidt videre med, så jeg også kan få markeret det fejlbehæftede ord med fx en anden skriftfarve. Jeg læser lidt op på Star Basic og ser nærmere på Andrews makroer.
Per

[Lodahl]

Hej,
En anden måde at løse opgaven på, er med autotekster.
Hvis du indsætter en kommentar i en tekst, markerer netop det sted i teksten, hvor kommentaren er indsat, kan du oprette en autotekst med Rediger - Autotekst (CTRL+F3).
Du kan oprette en autotekst for hver typisk fejl, og indsætte kommentaren med f.eks. Fejl11 +F3.

Så undgår du at programmere dig ud af problemet.