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

[Alex15]

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 ?

[micmac]

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

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.

[Ravioli]

Bonjour,

Croyez vous que c'est possible ?

Réponse : Oui
Avant de poster, il convient de faire une recherche préalable,

Utiliser l'outil de Recherche sur le forum

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

• la demande d'amélioration (Issue) : demande d'amélioration 14077 qui réclame cette possibilité (11 votes à ce jour) :
  Message : [Issue] Nom de fichier automatique
• le code de Sébastien C

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

A+

[Alex15]

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.

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

[alhazred]

Bonjour à tous,

Voici qui devrait répondre à ta demande

Code : Tout sélectionner

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