| 1234567891011121314151617 |
- 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).
|
