[Writer]Renommer un document par le texte sélectionné

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur: Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !

[Writer]Renommer un document par le texte sélectionné

Messagepar Alex15 » 05 Oct 2013 08:20

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 ?
Dernière édition par Alex15 le 05 Oct 2013 08:30, édité 1 fois.
OpenOffice 4.0
OS: Windows 8
Alex15
Fraîchement OOthentifié
 
Message(s) : 2
Inscrit le : 05 Oct 2013 07:38

Re: [Writer]Renommer un document par le texte sélèctionné

Messagepar micmac » 05 Oct 2013 08:23

Bonjour et bienvenue,

Afin que l'on puisse vous répondre de façon correcte, ne détachez pas votre signature, cette information peut s'avérer essentielle.

Pour rattacher votre signature, une fois connecté :

  • Cliquez sur Panneau de l'utilisateur (en haut à gauche)
  • Onglet Préférences du forum > Editer les options d'affichage
  • Sélectionnez le bouton radio Oui pour Afficher les signatures
  • Cliquez sur Envoyer

Si cela est déjà fait, avant l'envoi du message,
Cocher Signature.png
ne décochez pas les cases
Insérer une signature ( modifiable depuis le panneau de contrôle de l'utilisateur)
et
M'avertir lorsqu'une réponse a été publiée
Votre signature a écrit:OpenOffice 4.0
Il manque votre Système : Windows, Mac ou Linux ?
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
et le numéro de la version : AOO 4.0.0 ou AOO 4.0.1 !
Lien direct pour modifier votre signature


Merci de votre participation et de nous faciliter le travail de modération.
Les formats ouverts (ODF) assurent la pérennité de vos documents.
Avatar de l’utilisateur
micmac
RespOOnsable forum
RespOOnsable forum
 
Message(s) : 7009
Inscrit le : 28 Août 2010 09:45

Re: [Writer]Renommer un document par le texte sélectionné

Messagepar Ravioli » 05 Oct 2013 08:40

Bonjour,
Croyez vous que c'est possible ?
Réponse : Oui
Avant de poster, il convient de faire une recherche préalable,
Image
Utiliser l'outil de Recherche sur le forum

Première réponse ici :
[Résolu] Enregistrer sous un mot contenu dans le texte

fil poursuivi en Suprême de code :
[Writer] « Enregistrer sous... » avec le contenu du document

A+
AOO 4.1.1 LibO 4.4.5
Vista SP2, Win7 SP1, Win7 SP1 Pro, Win 8.1.1 Pro, Mac Intel OS X 10.10.5, Ubuntu 12.04 LTS 32 bits, OpenSuse 13.2, Debian 7
& LibO 4.0.6 pour Mac PPC 10.5.8
Avatar de l’utilisateur
Ravioli
GourOOu
GourOOu
 
Message(s) : 7610
Inscrit le : 18 Oct 2007 17:28

Re: [Writer]Renommer un document par le texte sélectionné

Messagepar Alex15 » 05 Oct 2013 09:09

Merci pour votre réponse, j'avais effectivement vu ce post mais je voudrais que se soit un mot que j'ai selectionné et non un mot au hasard dans le texte.

Je ne matrise pas trop la selection dans la macro.

Le Modérateur a écrit: :alerte:
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
OpenOffice 4.0
OS: Windows 8
Alex15
Fraîchement OOthentifié
 
Message(s) : 2
Inscrit le : 05 Oct 2013 07:38

Re: [Writer]Renommer un document par le texte sélectionné

Messagepar alhazred » 05 Oct 2013 10:27

Bonjour à tous,

Voici qui devrait répondre à ta demande
Code : Tout sélectionner   AgrandirRéduire
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
Pièces jointes
Nommer par sélection.odt
(11.16 Kio) Téléchargé 316 fois
À bientôt

LibO 4.1.5.3 et AOO 4.0.1 sous Windows 7, MRI et SDK pour les macros.

Et la sauvegarde incrémentée, c'est sympa !
Avatar de l’utilisateur
alhazred
ManitOOu
ManitOOu
 
Message(s) : 3028
Inscrit le : 01 Mai 2011 00:08
Localisation : Casablanca (Maroc)


Retour vers Macros et API

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 0 invité(s)