Bonjour,
Je m'essaie à la programmation avec Oo2, je voudrais aller à la fin du
document, sauter une ligne et recopier un tableau qui existe déjà.
Tout va bien pour aller en fin de document et sauter une ligne mais pour
recopier le tableau j'ai une erreur que je ne comprends pas .
Voici le message d'erreur
Runtime error BASIC.
Une exception s'est produite :
Type : com.star.uno.RuntimeException
Message : SwXTextTable: already attached to range ..
Voici le texte de la macro :
REM ***** BASIC *****
Option Explicit
sub new_cadre()
dim mondocument as object
dim monTexte As Object
dim curseurVisible as Object
dim monCurseur as object
dim saut as Integer
dim maTable as Object
rem -------------------------
monDocument = ThisComponent
monTexte = monDocument.Text
curseurVisible = monDocument.CurrentController.ViewCursor
saut = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK
monCurseur = monTexte.createTextCursor
rem -------------------------
curseurVisible.jumpToLastPage
curseurVisible.jumpToEndOfPage
monTexte.insertControlCharacter(curseurVisible, saut, false)
maTable = monDocument.createInstance("com.sun.star.text.TextTable")
maTable = monDocument.TextTables.getByName("rencontre")
monTexte.insertTextContent(curseurVisible, maTable, false)
end sub
c'est sur l'avant dernière ligne que l'erreur se produit, le tableau
existe bien dans le document et le nom est bon.
Si vous avez une idée je suis preneur.
Merci d'avance.
Abel
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
