Re: [fr-users] Re: Nommage des fichiers automatisé

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.amateur@free.fr <prog.amateur@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 <id@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+unsubscribe@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+unsubscribe@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