Re: [fr-users] Writer : copier une page ?

Bonsoir

Je réponds dans ce message à plusieurs réponses que j'avais laissées en 
attente.

Le document qui m'occupe, je n'en ai pas maîtrisé l'origine, il est 
balancé par le rectorat à toutes les écoles de l'académie qui doivent le 
"renseigner".
Il est construit avec les pieds, certainement sous MSO-Word 2010, envoyé 
aux formats .doc ; .docx et même .odt : mais un .odt enregistré depuis 
MSO-Word, ça donne un peu du n'importe quoi.

Je l'ai repris sous LO-Writer, passque j'aime pas travailler avec les 
pieds, j'ai corrigé pas mal de malfaçons et j'avais besoin de dupliquer 
une seule des 29 pages. Page contenant des tableaux, du texte, des 
cadres, des images, des formes, bref impossible de sélectionner tout 
cela d'un seul coup.
D'où ma question initiale.

Résolue finalement par le lien "vidéo" fourni par Philippe, avec comme 
seule restriction que j'ai dû "sortir" certains titres de la ligne de 
tableau dans laquelle ils avaient été placés. Quelle idée de faire un 
tableau avec une seule ligne !

Pour les macros, j'y suis encore allergique, mais c'est certainement que 
je n'en n'ai pas besoin ou que je trouve encore le moyen de contourner 
le besoin...

Merci aux réponses.

@+
Luc

Le 07/12/2016 à 09:40, Agnès Simonet a écrit :
> Bonjour,
>
> Hors contexte, je ne vois pas bien où est le problème avec 
> sélectionner le contenu de la page, copier, coller.
>
> Ceci dit j'ai dans mes stocks une macro qui sélectionne la page où se 
> trouve le curseur et la copie dans un nouveau document :
>
>
> '**************************
> Option Explicit
>
> Sub ExportPage
> REM Exporte dans un fichier odt la page où se trouve le curseur
> 'd'après https://forum.openoffice.org/fr/forum/viewtopic.php?f=8&t=41470
>
> Dim oDoc as Object
> Dim nomFichier,adresseDoc, numPage as String
> Dim curseurVisible as Object, oRangeFinPage as Object, aCopier as Object
>     oDoc = ThisComponent
>     curseurVisible = oDoc.CurrentController.ViewCursor
>
>     'récupérer le n° de la page
>      numPage=curseurVisible.page
>
>     'sélectionner le contenu de la page
>     With curseurVisible
>         .jumpToStartOfPage
>         .jumpToEndOfPage
>         oRangeFinPage = .end
>         .jumpToStartOfPage
>         .gotoRange(oRangeFinPage, true)
>     End With
>
>
>     'enregistrer dans un nouveau document
>         'récupérer le nom du fichier
>     nomFichier = ConvertFromURL(oDoc.getURL)
>     nomFichier = Left(nomFichier, Len(nomFichier)-4)
>         'enregistrer
>         'exemple de nom du fichier de sortie :  nomdufichier 
> entrant_p9.odt
>     adresseDoc = "private:factory/swriter"
>     aCopier = ThisComponent.CurrentController.getTransferable()
>     oDoc = StarDesktop.loadComponentFromURL(adresseDoc, "_blank", 0, 
> Array() )
>     curseurVisible = oDoc.currentController.viewCursor
>     oDoc.CurrentController.Select(curseurVisible)
>     oDoc.CurrentController.insertTransferable(aCopier)
>     adresseDoc = convertToURL( nomFichier & "_p"  & numPage & ".odt")
>     oDoc.storeAsURL(adresseDoc, Array() )
>     oDoc.Close(True)
>
> End Sub
>
> '**************************
>
> Il suffit de l'affecter à CTRL+ALT+V par exemple.
>
> Il y a moyen de modifier la macro pour qu'elle corresponde à ton 
> besoin spécifique, mais quel est-il précisément ?
>
> Agnès S.
>
> Le 06/12/2016 10:14, Luc Mamin a écrit :
> > Bonjour,
> >
> > Existe-t-il une façon rapide de copier le contenu d'une page d'un
> > document writer.
> > L'objectif serait de pouvoir dupliquer dans le même document (ou dans un
> > nouveau) tout le contenu d'une page, y compris et surtout si elle
> > contient des éléments différents : tableaux, texte, cadres, images...
> >
> > En posant la question, je subodore une réponse négative, mais sait-on
> > jamais ...
> >
> > @+
> > Luc


--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment 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