Bonjour,
Que mettre après ce code, qui ouvre un document OpenOffice et insère une
ligne, pour obtenir un SAUT DE PAGE ?
'Ouverture du document OpenOffice
'Creating service manager Set objServiceManager =
CreateObject("com.sun.star.ServiceManager")
'Create the Desktop
Set objDesktop=
objServiceManager.createInstance("com.sun.star.frame.Desktop")
'Open a new empty writer document
Dim args1()
Set objDocument= objDesktop.loadComponentFromURL("private:factory/swriter",
"_blank", 0, args1)
'Create a text object
Set objText= objDocument.getText
'Create a cursor object
Set objCursor= objText.createTextCursor
'Inserting some Text
objText.insertString objCursor, "The first line in the newly created >text
document." & vbLf, false
ça fait pas mal d'heures que je suis dessus et j'y arrive vraiment
pas...donc si vous avez une idée permettant d'obtenir ce saut de page (ou un
équivalent du genre: ce mettre à la fin du document courant avec le curseur
et faire Entrée...).
Merci
Yannick
6 messages in org.openoffice.fr.prog[prog] VBscript: saut de page
.gif
