Date: prev next · Thread: first prev next last
2016 Archives by date, by thread · List index


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

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.