et brut de décoffrage pour la personne (comme tu le dis à "nettoyer" ;) ,
il reste cette macro à associer à un bouton ou un raccourci ;) :
sub Enregistre_Selon_Selection
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Selections = ThisComponent.CurrentSelection
nombre = Selections.count
for i =0 to nombre-1
FirstSelection = Selections.getByIndex(i)
TextString = FirstSelection.String
next I
rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///dossier-a-enregister/" + TextString + ".odt"
args1(1).Name = "FilterName"
args1(1).Value = "writer8"
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
end sub
Yves
Le 30 septembre 2017 à 17:03, prog.amat...@free.fr <prog.amat...@free.fr> a
écrit :
> Bonsoir,
>
> Selections = ThisComponent.CurrentSelection
> nombre = Selections.count
> for i =0 to nombre-1
> FirstSelection = Selections.getByIndex(i)
> TextString = FirstSelection.String
> next I
>
> Mais attention si rien n'est sélectionné nombre est à 1 et le string à ""
> donc à tester. De plus si plus d'un paragraphe est sélectionné, le string
> ne contient pas la marque de fin de paragraphe. Enfin en cas de sélection
> multiple la sélection d'index 0 est à "" et l'ordre est celui de l'ordre de
> sélection. Il faudra donc rajouter des tests à ce bout de code.
>
> Claude
>
>
> Le 29/09/2017 à 16:21, LC_Libre a écrit :
>
>> Le 27/09/2017 à 20:42, yves dutrieux a écrit :
>>
>>> Bonjour,
>>>
>>> je suis d'accord aussi pour les noms de fichiers mais s'ils veulent
>>> vraiment le faire, cela ne doit pas être trop compliqué via une macro
>>> non ?
>>> La macro récupérerait le texte sélectionné et enregistrerais le doc avec
>>> le
>>> contenu de la sélection.
>>> Possible ?
>>>
>>> Yves
>>>
>>> Le 27 septembre 2017 à 11:53, Ysabeau <i...@dutailly.net> a écrit :
>>>
>>> Le 27/09/2017 à 11:27, catof a écrit :
>>>>
>>>> Merci pour votre réponse
>>>>> effectivement quand la question m'a été posé j'ai répondu exactement
>>>>> la mm
>>>>> chose et exposant les risques.
>>>>> Mais étant donné que "MSOffice le fait", on m'a quand mm demandé de
>>>>> poser
>>>>> la
>>>>> question et si ce n'était pas la cas de procéder à une demande
>>>>> d'évolution
>>>>> dans ce sens
>>>>> car "c'est vraiment un réel avantage". no comment !
>>>>>
>>>>> L'avantage d'avoir à réfléchir pour nommer ses fichiers c'est que ça
>>>> pousse à respecter des conventions de nommage et que ça devrait pousser
>>>> l'utilisateur à nommer de façon claire et relativement concise les
>>>> fichiers
>>>> ce qu'un système automatique ne fera pas.
>>>>
>>>>
>>>> --
>>>>
>>>> Ysabeau
>>>> Services, s. m. pl. Mot usité dans cette formule à peu près invariable
>>>> du
>>>> typo en quête de travail: Monsieur, je viens vous offrir mes services
>>>> pour
>>>> la casse.
>>>> Dictionnaire de l'argot des typographes - Eugène Boutmy, correcteur
>>>> d'imprimerie, 1883.
>>>>
>>>>
>>>> Bonjour,
>>
>> la "sale manie" de MSW de proposer la première ligne comme nom de fichier
>> nous vaut une pléthore de "doc1" accepté sans discernement par tous ceux
>> qui ont la flemme de nommer leurs documents.
>>
>> Je comprends la demande de catof, qui s'inscrit probablement dans le
>> contexte d'une organisation qui normalise la structure et le nommage des
>> fichiers.
>>
>> En attendant, j'imagine une macro à associer à l'événement "Le document
>> va être fermé", qui récupèrerait le texte sélectionné.
>> J'ai commencé un bout de macro, mais malgré le livre d'Andrew Pitonyak,
>> je n'arrive pas (encore) à récupérer le texte d'une sélection…
>>
>> LC
>>
>>
>
> --
> Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous
> désinscrire
> Les archives de la liste sont disponibles à http://listarchives.libreoffic
> e.org/fr/users/
> Tous les messages envoyés sur cette liste seront archivés publiquement et
> ne pourront pas être supprimés
>
--
web site : http://www.molenbaix.com
--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
