 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
2 messages in org.openoffice.fr.prog[prog] Activer une macro via une macro| From | Sent On | Attachments |
|---|---|---|
| Dominique | Nov 22, 2005 6:27 am | |
| Serge LE LOUARNE | Nov 24, 2005 12:41 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | [prog] Activer une macro via une macro | Actions... |
|---|---|---|
| From: | Dominique (dbra...@tele2.fr) | |
| Date: | Nov 22, 2005 6:27:49 am | |
| List: | org.openoffice.fr.prog | |
bonjour,
J'essaie d'utiliser page 33 et 34 du livre de PITONYAK, pour ouvrir une macro à l'aide d'une autre macro (Boite de dialogue) Bloquage en raison d'une sécurité ????
REM ***** BASIC ***** Option explicit
option base 1
' les controles de la boite de dialogue sont déclarés en global (ici) pour etre accessibles de partout. dim dlg, dlg1 as object dim listebox1 as object Sub Main 'com.sun.star.document.macroExecMode.ALWAYS_EXECUTE_NO_WARN ' on lance la boite de dialogue DialogLibraries.LoadLibrary("Library1") dlg=CreateUnoDialog(DialogLibraries.Library1.Dialog1) dlg.Execute() 'dlg.dispose() end End Sub
sub lance_click ()
dim mfileProperties(1) As New com.sun.star.beans.PropertyValue mfilePropertie(0).Name="AsTemplate" mfileProperties(0).Value=True mfileProperties(1).Name="MacroExecutionMode" mfileProperties(1).Value=4 dim adresseDoc as string dim mondocument as object dim PropFich () dlg.endExecute () adresseDoc = convertToURL("A:\essai.ott") mondocument = StarDesktop.LoadcomponentFromURL(adresseDoc, "_blank", 0, PropFich) dlg.EndExecute()
'DialogLibraries.LoadLibrary("a:\Domi.odt\Library2") 'dlg=CreateUnoDialog(DialogLibraries.Library2.Domi) 'dlg.Execute() ''''''' 'dlg.endExecute()
end sub sub boite2 dlg.EndExecute() DialogLibraries.LoadLibrary("Library1") dlg=CreateUnoDialog(DialogLibraries.Library1.Dialog3) dlg.Execute() end sub sub boite3 dlg.EndExecute() DialogLibraries.LoadLibrary("Library1") dlg=CreateUnoDialog(DialogLibraries.Library1.Dialog4) dlg.Execute() end sub sub boite4 dlg.EndExecute() DialogLibraries.LoadLibrary("Library1") dlg=CreateUnoDialog(DialogLibraries.Library1.Dialog5) dlg.Execute() end sub sub boite5 dlg.EndExecute() DialogLibraries.LoadLibrary("Library1") dlg=CreateUnoDialog(DialogLibraries.Library1.Dialog6) dlg.Execute() end sub
Sub InsererTexteDansCellule() Dim maTable As Object Dim maCellule As Object Dim monCurseur As Object dim adressedoc as string dim mondocument as object mondocument = newcomponent maTable = monDocument.TextTables.getByName("Tableau1") maCellule = maTable.getCellByName("A1") monCurseur = maCellule.createTextCursor monCurseur.gotoEndOfWord(false) monCurseur.CharWeight = com.sun.star.awt.FontWeight.BOLD monCurseur.CharColor = RGB(250,0,0) 'Rouge maCellule.insertString(monCurseur, " 2004", false) '''''''
End Sub
Donc bloquage au niveau de
mfilePropertie(0).Name="AsTemplate" mfileProperties(0).Value=True
msg erreur =procédure fonctionnelle non définie
Merci
''''''''''''''''' Donc
''''''''''''