SPIP-Contrib

SPIP-Contrib

عربي | Deutsch | English | Español | français | italiano | Nederlands

288 Plugins, 197 contribs sur SPIP-Zone, 205 visiteurs en ce moment

Accueil > Rédaction > Assistants de rédaction > Aide à l’édition > Macro Word v.3 - Word2spip

Macro Word v.3 - Word2spip

6 septembre 2010 – par Tony Gheeraert – 11 commentaires

19 votes

Une mise à niveau de la macro d’Alexis

La macro Word d’Alexis, déjà ancienne mais terriblement efficace, est devenue de moins en moins compatible au fil des nouvelles versions de Word. J’ai adapté la macro pour la remettre au goût du jour.

Changements notables :

  • Révision de l’interface (par boîtes de dialogue), pour rendre la macro plus compatible.
  • Reconnaissance de l’italique dans les notes (en dépit d’un gros bug de Microsoft qu’il a fallu contourner)
  • Reconnaissance des styles Citation (blockquote) et Poesie (poesie)
  • Numérotation possible des paragraphes (choix par boîte de dialogue)

Pour le reste, la macro d’Alexis n’a quasiment pas été modifiée, et la documentationreste donc valable.

P.-S.

  • Je suis reparti du code d’Alexis, et non de celui de zzEric qui avait proposé une version 2.
  • Cette macro a été revue pour satisfaire le cahier des charges du squelette RevueLigne, mais peut être utilisée indépendamment de ce squelette.

Dernière modification de cette page le 6 septembre 2010

Retour en haut de la page

Vos commentaires

  • Le 20 mai 2012 à 15:46, par Manaona En réponse à : Macro Word v.3 - Word2spip

    Novice dans l’utilisation de ce macro, je souhaiterais savoir s’il faut effectuer une manoeuvre particulière pour charger les images. Doivent-elles être dans le corps du texte ou on peut les mettre à la fin ? ou doit-ton les intégrer manuellement après la conversion + copier/coller sur SPIP ?

    Merci bien.

    • Le 20 mai 2012 à 22:18, par Tony Gheeraert En réponse à : Macro Word v.3 - Word2spip

      Bonsoir,

      Bonne question...C’était Alexis qui s’était occupé de cette partie. Si ma mémoire est bonne, les images étaient converties en liens IMGn|left, et il fallait les charger à part dans l’article. Avez-vous essayé ? Si vous n’y arrivez pas, je jetterai un coup d’oeil.

      Bien cordialement,

      TG

    Répondre à ce message

  • Le 20 novembre 2011 à 19:34, par Chantal Schütz En réponse à : Macro Word v.3 - Word2spip

    Bonjour,
    je me sers de la macro sans problème, mais en fait je cherche à générer un texte en bilingue, pour lequel j’utilise un tableau sous Word. C’est peut-être trop compliqué, mais je n’ai pas trouvé comment faire simplement sous SPIP. Le seul problème c’est que sous Chrome, les 2 textes sont bien en face, mais sous Firefox, le texte de gauche se décale complètement, et je ne comprends pas pourquoi. Quelqu’un aurait-il une idée pour m’aider ?
    Voici l’adresse : http://ttt.univ-paris3.fr/spip.php?article4&lang=fr

    Répondre à ce message

  • Le 10 juillet 2011 à 13:08, par Paladin En réponse à : Macro Word v.3 - Word2spip

    Si le plugin Intertitres hiérarchisés et table des matières est installé, il peut être intéressant d’en utiliser la méthode pour les titres de niveau 2 et 3, respectivement traduits en h4, h5.

    Bout de code VB :

    ' Convertion du style "Titre 2" en : {2{texte}2}
    Sub spip_titre2()

    Dim i As Integer
    Dim aRange As Range
    For i = 1 To ActiveDocument.Paragraphs.Count
       If ActiveDocument.Paragraphs(i).Style = ActiveDocument.Styles(wdStyleHeading2) Then
           ActiveDocument.Paragraphs(i).Style = wdStyleNormal
           Set aRange = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(i).Range.Start, End:=ActiveDocument.Paragraphs(i).Range.End - 1)
           aRange.InsertBefore ("{2{")
           aRange.InsertAfter ("}2}")
       End If
    Next i

    End Sub


    ' Convertion du style "Titre 3" en : {3{texte}3}
    Sub spip_titre3()

    Dim i As Integer
    Dim aRange As Range
    For i = 1 To ActiveDocument.Paragraphs.Count
       If ActiveDocument.Paragraphs(i).Style = ActiveDocument.Styles(wdStyleHeading3) Then
           ActiveDocument.Paragraphs(i).Style = wdStyleNormal
           Set aRange = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(i).Range.Start, End:=ActiveDocument.Paragraphs(i).Range.End - 1)
           aRange.InsertBefore ("{3{")
           aRange.InsertAfter ("}3}")
       End If
    Next i

    End Sub

    Répondre à ce message

  • Le 16 novembre 2010 à 22:13, par zaa En réponse à : Macro Word v.3 - Word2spip

    Un gros merci !

    Répondre à ce message

  • Le 7 septembre 2010 à 23:24, par Tony Gheeraert En réponse à : Macro Word v.3 - Word2spip

    Merci de votre intérêt pour cette macro !

    Pour être reconnues, les listes doivent être au style « Liste » (qui correspond au style interne de Word wdStyleList). C’est ainsi qu’Alexis avait conçu la chose.

    On pourrait envisager effectivement d’aller plus loin, et de faire reconnaître les listes numérotées (wdStyleListBullet). J’essaierai quand j’aurai un peu de temps, et je vous tiendrai au courant si cela fonctionne.

    Pour les tableaux, je n’ai pas touché au code, mais si vous pouviez jeter un coup d’oeil pour voir si ça tourne sous Office 2010 (que je n’ai pas encore), ce serait une info précieuse...

    Bien à vous.

    • Le 8 septembre 2010 à 03:46, par Karim En réponse à : Macro Word v.3 - Word2spip

      merci pour tes efforts !
      je vais tester un max e tte donner mes résultats.
      sinon pour office 2010 tu peux télécharger une version pour test de 90 jours...

    Répondre à ce message

  • Le 7 septembre 2010 à 22:27, par Karim En réponse à : Macro Word v.3 - Word2spip

    fonctionne avec word 2010 mais hélas le document généré en format spip est aussi tot fermé, donc je n’y ai pas accès, le mieux serait de le laisser ouvert sinon de proposer de l’enregistré ailleurs...

    merci

    • Le 7 septembre 2010 à 22:30, par Karim En réponse à : Macro Word v.3 - Word2spip

      finalement, le résultat est mis en mémoire (presse-papier) si je fais coller je retrouve tout mon texte au format spip !

      par contre les listes numérotées ne sont pas transformées....même les listes tout court, je n’ai pas tester avec les tableaux ou les les images...

    Répondre à ce message

Répondre à cet article

Qui êtes-vous ?

Pour afficher votre trombine avec votre message, enregistrez-la d’abord sur gravatar.com (gratuit et indolore) et n’oubliez pas d’indiquer votre adresse e-mail ici.

Ajoutez votre commentaire ici Les choses à faire avant de poser une question (Prolégomènes aux rapports de bugs. )
Ajouter un document

Retour en haut de la page

Ça discute par ici

  • La balise #ENV

    25 septembre 2007 – 64 commentaires

    Régulièrement, on lit sur la liste ou sur IRC « la balise #ENV, j’y comprends rien » . Tentons ici une explication sur le pourquoi du comment de cette balise... #ENV, qu’est-ce à dire ? Si nous lisons la documentation officielle, nous voyons que (...)

  • Champs Extras 3

    16 janvier 2012 – 589 commentaires

    Ce plugin permet de créer et/ou de gérer des champs supplémentaires dans les objets éditoriaux de SPIP. Il permet donc de prendre en compte et d’afficher de nouveaux éléments dans n’importe quel objet éditorial de SPIP. Screencast Vous n’aimez pas (...)

  • Plugin Modèles media

    25 avril 2011 – 171 commentaires

    Les modèles , et produisent chacun un résultat différent et ce résultat, pour les images, dépend du fait qu’elle soit dans le portfolio ou non. Ce plugin propose une nouvelle série de modèles ayant un comportement unifié et indépendant du mode des (...)

  • Qrcode

    3 novembre 2010 – 43 commentaires

    Les QrCodes sont des codes barres lisibles essentiellement par les téléphones portables et permettent d’échanger avec ceux-ci diverses informations, et en particulier des liens. Ce plugin à pour objet de permettre à spip d’utiliser des QrCodes pour (...)

  • Mise à jour automatique des plugins

    5 octobre 2009 – 156 commentaires

    Une nouvelle lame du Couteau Suisse permet de visualiser les plugins nécessitant une mise à jour, tout comme SPIP lui-même ! Présentation Rendons à César ce qui est à César, voici un extrait de la présentation du Couteau Suisse pour sa lame « Mise (...)

Ça spipe par là