Insert a comment with custom presets

TDF LibreOffice Document Liberation Project Community Blogs Weblate Nextcloud Redmine Ask LibreOffice Donate

• Wiki Home
• Development
• Design
• QA
• Events
• Documentation
• Website
• Localization
• Accessibility
• Marketing
• Diversity
• Wiki Help

• Macros
• General Macros
• Macros for Writer
• Macros for Calc
• Macros for Impress
• Macros for Draw
• Macros for Base
• Macros for Math
• Basic/Python

Description

Insert a string in the cursor position in a current document.

Basic code

Sub insert_in_cursor_position()
    data = "Hello World with Basic"

    REM Current document
    doc = ThisComponent

    REM Current selection always return a ranges, and get to end
    text = doc.CurrentSelection.getByIndex(0).End
    
    REM Write data
    text.String = data    
End Sub

References to API

Line	Link
5	com.sun.star.text.TextDocument
8, 11	com.sun.star.text.XTextRange