DEFINE VARIABLE hSM AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hDesktop AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hDocument AS COM-HANDLE NO-UNDO.

DEFINE VARIABLE hText AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hCursor AS COM-HANDLE NO-UNDO.

/* Some methods require an Array parameters for extra arguments. The
   only Progress database that translates to Array is RAW. */
DEFINE VARIABLE extraArgs AS RAW NO-UNDO.

CREATE "com.sun.star.ServiceManager" hSM.
hDesktop = hSM:createInstance("com.sun.star.frame.Desktop").
hDocument = hDesktop:loadComponentFromURL("private:factory/swriter", "_blank", 0, extraArgs).
hText = hDocument:getText().
hCursor = hText:createTextCursor().
hText:insertString(hCursor, "This is an example document.", FALSE).