Bonjour, je suis confronté a un petit pépin.
Je voudrais créer une macro qui va me servir a renommer un document par le texte que j'aurai préalablement sélectionné, puis par la suite désélectionner le texte.
Croyez vous que c'est possible ?
Modérateur: Vilains modOOs
Il manque votre Système : Windows, Mac ou Linux ?Votre signature a écrit:OpenOffice 4.0
Réponse : OuiCroyez vous que c'est possible ?
Le Modérateur a écrit:![]()
Dans votre signature vous devez mentionner, outre la version exacte de AOO (4.0.0, 4.0.1), la version exacte de l'OS (Windows XP SP3, Vista SP2, Win7 SP1, Win 8 Pro, Mac Intel 10.8.5, Mac PPC 10.5.8, Ubuntu 12.04, OpenSuse 12.3).
Accès direct à votre signature pour y porter ces informations.
Merci pour votre collaboration
Il manque toujours le numéro de version 4.0.0 ou 4.0.1
Sub EnregistrerSousSelection()
Dim doc As Object, sel As Object, url As String, props()
doc = ThisComponent
sel = doc.currentSelection(0)
If Not sel.SupportsService("com.sun.star.text.TextRange") Then Exit Sub
'Indiquer ici le répertoire d'enregistrement
'On peut améliorer (même répertoire que le fichier original ou/et choix)
'et gérer les erreurs (sélection contenant un caractère interdit, fichier déjà présent...)
url = ConvertToUrl("C:\" & sel.String & ".odt")
doc.StoreAsUrl(url, props())
End Sub
Utilisateur(s) parcourant ce forum : Google [Bot] et 6 invité(s)