[Tuto] traitement de texte > BBCode GAGNEZ DU TPS SUR VOS BL

[Elysha]

Il m'a fallu quelques heures pour l'adapter à mes propres besoins et il me faudra certainement un peu de temps pour le maîtriser, mais en tout cas super macro qui marche bien et très bon tuto
merci raccoon

[Elysha]

Suite à un contacte de la modération, je tiens à vous prévenir qu'il faut éviter d'utiliser le strike de la macro ci-dessus pour word 2010.
Le strike est en effet assez violent, et pourrait être mal pris par certaines grenouilles.
Je vais voir à modifier ce que j'ai fait dans ma propre version, et je pense en fournir une copie ici.

Franchement, c'est un grand gain de temps.

[Elysha]

MACRO WORD 2010
-> pour faire une BL sous word et transformer son texte avec du BBCODE pour qu'il passe sur le forum

Voilà un exemple :

Mes codes :
Partie du texte à laquelle je fais référence
Remarque
Répétition
Passage indispensable ?
Faute

Spoiler: montrer

[Couleur bleu, 7e de la barre standard de word2010]
(Couleur rouge devient rose, 2e de la barre standard de word2010)
Couleur orange, 3e de la barre standard de word2010
[Couleur vert, 6e de la barre standard de word2010] -> Est-ce indispensable ?
Dollar $ = $ Attention au temps employé
Double virgule ,, = (Virgule)
Double moins -- = - Il manque une chose ici
Double plus ++ = + Il y a un truc en trop là
Double étoile ** = ** Un peu lourd : à reformuler
Cœur <3 = ~ J’aime bien ce passage
Gras / italique / souligné -> Probable faute

Commentaires
blabla à ajouter après

et voilà le code :

Spoiler: montrer

Code : Tout sélectionner

Sub Merci_Raccoon()
    Application.ScreenUpdating = False
       
   Dim MyText As String
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   MyText = "[b]Mes codes[/b] :" & vbCrLf & "[color=#0000FF]Partie du texte à laquelle je fais référence[/color]" & vbCrLf & "[color=#FF00FF]Remarque[/color]" & vbCrLf & "[color=#FF8000]Répétition[/color]" & vbCrLf & "[color=#008040]Passage indispensable ?[/color]" & vbCrLf & "[color=#000000][u]Faute[/u][/color]" & vbCrLf & vbCrLf & "[b]Texte[/b]" & vbCrLf & "[spoiler] "
   MyRange.InsertBefore (MyText)

    ConvertBold
    ConvertItalic
    ConvertUnderline
    ConvertColorRose
    ConvertColorVert
    ConvertColorOrange
    ConvertColorBleu
    
    Remplace_coeur
    Remplace_etoile
    Remplace_dollar
    Remplace_plus
    Remplace_moins
    Remplace_virgule
    
    ActiveDocument.Select
    pos = Selection.EndKey(Unit:=wdLine, Extend:=wdMove)
    MyText = vbCrLf & " [/spoiler]" & vbCrLf & vbCrLf & "[b]Commentaires[/b]" & vbCrLf
    Selection.InsertAfter (MyText)

    ActiveDocument.Content.Copy
    Call Selection.Find.ClearFormatting
    Application.ScreenUpdating = True
End Sub

Private Sub SetupFindObject()
    ActiveDocument.Select
    With Selection.Find
        .ClearFormatting
           .Text = ""
           .Format = True
           .MatchCase = False
           .MatchWholeWord = False
           .MatchKashida = False
           .MatchDiacritics = False
           .MatchAlefHamza = False
           .MatchControl = False
           .MatchByte = False
           .MatchWildcards = False
           .MatchSoundsLike = False
           .MatchAllWordForms = False
           .Forward = True
           .Wrap = wdFindContinue
    End With
End Sub

Private Sub ConvertItalic()
    Call SetupFindObject
    Selection.Find.Font.Italic = True
    Do While Selection.Find.Execute
        With Selection
            If InStr(1, .Text, vbCr) Then
                .Font.Italic = False
                .Collapse
                .MoveEndUntil vbCr
            End If
            If Not .Text = vbCr Then
                .Font.Italic = False
                  With Selection
             .InsertBefore "[i]"
             .Collapse (wdCollapseEnd)
             .InsertAfter "[/i]"
              End With
                'SurroundSelectionWithTag2 ("i")
            End If
        End With
    Loop
End Sub

Private Sub ConvertBold()
    Call SetupFindObject
    Selection.Find.Font.Bold = True
    Do While Selection.Find.Execute
        With Selection
            If InStr(1, .Text, vbCr) Then
                .Font.Bold = False
                .Collapse
                .MoveEndUntil vbCr
            End If
            If Not .Text = vbCr Then
                .Font.Bold = False
                  With Selection
             .InsertBefore "[color=#000000][b]"
             .Collapse (wdCollapseEnd)
             .InsertAfter "[/b][/color]"
              End With
                ' SurroundSelectionWithTag ("b")
            End If
        End With
    Loop
End Sub

Private Sub ConvertUnderline()
    Call SetupFindObject
    Selection.Find.Font.Underline = True
    Do While Selection.Find.Execute
        With Selection
            If InStr(1, .Text, vbCr) Then
                .Font.Underline = False
                .Collapse
                .MoveEndUntil vbCr
            End If
            If Not .Text = vbCr And .Range.Hyperlinks.Count = 0 Then
                .Font.Underline = False
                  With Selection
             .InsertBefore "[color=#000000][u]"
             .Collapse (wdCollapseEnd)
             .InsertAfter "[/u] -> Probable faute [/color]"
              End With
                'SurroundSelectionWithTag ("u")
            End If
        End With
    Loop
End Sub
    
Private Sub ConvertColorRose()
       Call SetupFindObject
    Selection.Find.Font.TextColor.RGB = RGB(255, 0, 0)
    Do While Selection.Find.Execute
        With Selection
            If InStr(1, .Text, vbCr) Then
                .Font.Color = wdColorBlack
                .Collapse
                .MoveEndUntil vbCr
            End If
            If Not .Text = vbCr Then
                .Font.Color = wdColorBlack
                With Selection
                .InsertBefore "[color=#FF00FF]("
                .Collapse (wdCollapseEnd)
                .InsertAfter ")[/color]"
                End With
            End If
        End With
    Loop
End Sub
   
Private Sub ConvertColorVert()
       Call SetupFindObject
    Selection.Find.Font.TextColor.RGB = RGB(0, 176, 80)
    Do While Selection.Find.Execute
        With Selection
            If InStr(1, .Text, vbCr) Then
                .Font.Color = wdColorBlack
                .Collapse
                .MoveEndUntil vbCr
            End If
            If Not .Text = vbCr Then
                .Font.Color = wdColorBlack
                With Selection
                .InsertBefore "[color=#008040]["
                .Collapse (wdCollapseEnd)
                .InsertAfter "] -> Est-ce indispensable ? [/color]"
                End With
            End If
        End With
    Loop
End Sub

Private Sub ConvertColorOrange()
       Call SetupFindObject
    Selection.Find.Font.TextColor.RGB = RGB(255, 192, 0)
    Do While Selection.Find.Execute
        With Selection
            If InStr(1, .Text, vbCr) Then
                .Font.Color = wdColorBlack
                .Collapse
                .MoveEndUntil vbCr
            End If
            If Not .Text = vbCr Then
                .Font.Color = wdColorBlack
                With Selection
                .InsertBefore "[color=#FF8000]"
                .Collapse (wdCollapseEnd)
                .InsertAfter "[/color]"
                End With
            End If
        End With
    Loop
End Sub

Private Sub ConvertColorBleu()
       Call SetupFindObject
    Selection.Find.Font.TextColor.RGB = RGB(0, 112, 192)
    Do While Selection.Find.Execute
        With Selection
            If InStr(1, .Text, vbCr) Then
                .Font.Color = wdColorBlack
                .Collapse
                .MoveEndUntil vbCr
            End If
            If Not .Text = vbCr Then
                .Font.Color = wdColorBlack
                With Selection
                .InsertBefore "[color=#0000FF]["
                .Collapse (wdCollapseEnd)
                .InsertAfter "][/color]"
                End With
            End If
        End With
    Loop
End Sub

Private Sub Remplace_coeur()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<3"
        .Replacement.Text = "[color=#FF00BF] <3 J'aime bien ce passage :heart: [/color]"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Private Sub Remplace_etoile()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "**"
        .Replacement.Text = " [color=#0000FF] ** Un peu lourd : à reformuler [/color]"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Private Sub Remplace_moins()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "--"
        .Replacement.Text = "[color=#FF00FF] - Il manque quelque chose ici [/color]"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Private Sub Remplace_plus()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "++"
        .Replacement.Text = "[color=#FF00FF] + Il y a quelque chose en trop là [/color]"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Private Sub Remplace_dollar()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "$"
        .Replacement.Text = "[color=#FF00FF] $ Attention au temps employé [/color]"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Private Sub Remplace_virgule()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ",,"
        .Replacement.Text = "[color=#FF00FF] (Virgule) [/color]"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Pour l'installer le tuto expliquer un peu avant est très simple à suivre :

Spoiler: montrer

NOTE: si les couleurs (en BBCode) que j'utilise ne vous plaisent pas, il est facile de les modifier. Changez mes codes (genre #FF0000 ) par votre propre code couleur dans l'en-tête et dans la partie dédiée à la récupération de la couleur Word. Idem pour les textes que j'ai utilisés pour indiquer "mes codes"



COMMENT INSTALLER LA MACRO:

Je n'ai que la version 2010 en anglais alors je ne sais pas si le texte des menus ci-dessous (si c'est différent, indiquez-le moi, je ferai un édit de ce post) va correspondre, mais voici la procédure:


Afficher l’onglet Développeur ( s'il n'est pas déjà présent ):

1) Cliquez sur l’onglet Fichier
2) Cliquez sur Options
3) Cliquez sur Personnaliser le ruban
4) Sous "Personnaliser le ruban" dans la partie "Onglets principaux" (à droite), activez la case à cocher Développeur
5) OK


Afficher les outils de MACRO :

1) Il y a maintenant un onglet "Développeur" dans les menus en haut, cliquez dessus.
2) Cliquez sur l'icone "Visual Basic" (le premier à gauche)
-> une nouvelle fenêtre apparait



IMPORTANT, pour que la macro fonctionne, il faut ajouter la référence "Microsoft VBScript Regular Expressions" .
Pour ce faire, dans cette fenêtre "Microsoft Visual Basic pour applications - Normal" :

1) Allez dans Outils (dans le menu en haut de cette nouvelle fenêtre)
2) Puis dans Références
3) Cochez "Microsoft VBScript Regular Expressions 1.0" (la liste est longue, de mémoire c'est vers le milieu)
4) Cochez "Microsoft VBScript Regular Expressions 5.5" (idem)
5) OK


Dans la fenêtre visual basic "Microsoft Visual Basic pour applications - Normal", il y a une petite fenêtre "projet normal" (si vous la voyez pas, faites Ctrl+R)
1) Double-cliquez sur "Ce document" (sous "normal")
2) Une fenêtre s'ouvre, copier dedans le texte de la macro
3) Sauvez (disquette en haut) puis fermez tout.

Normalement, cette macro sera maintenant disponible dans tous vos fichiers word.

Pour lancer la macro Alt+F8 -> run ("lancer" je suppose)


ATTENTION !

1) Ne pas la lancer plusieurs fois de suite sinon ça double les infos en haut et en bas

2) avant de la lancer, je conseille fortement de faire un "Save As" de votre document, car une fois les modifications faites, le retour en arrière est galère !


Je crois qu'il n'y a rien d'autre ... Si ?

Ah oui! Si ça marche chez vous, dites-le moi Merci

Si vous voulez de l'aide pour adapter la macro à votre propre façon de faire, n’hésitez pas à demander

[Florie]

Juste un mot par ici pour remercier les grenouilles qui ont participé à proposer cette solution, j'ai installé l'add-on sur open office et c'est une aide incroyable
(du coup je n'ai pas testé les macros Word, la solution open office fonctionne très bien!)

[Sumiré]

Un énorme pour cette astuce

Génial Et pour gagner encore plus de temps : si vous sélectionnez le texte avant de cliquer sur Add-ons, le texte est converti en BBcode directement dans le pop-up. Et hop ! quelques clics évités

Petits inconvénients :
Le plug-in ne permet pas d'ajouter des quotes.
Le plug-in risque de mettre des balises de police comme ceci :
Code :
[FONT= Nom de la police][/FONT]
Pour vous en débarrasser, il vous suffit d'en repérer une, de la copier, et d'utiliser l'outil Rechercher/remplacer. Là vous ne remplacerez les balises par rien.

Pour y remédier, sélectionnez tout votre texte et unifiez la police en Times New Roman. Ainsi, lorsque le BBcode se fait, tous les FONT ont disparu.

Merci encore ! Mes BL se colorent en quelques clics !!!!!

[Pugio]

J'ai "bricolé" une petite application pour aider à la rédaction des BL suite à ma galère pour faire a première BL.

Il s'agit en fait d'un site web mais qui tourne en local sur votre ordinateur, dans votre navigateur internet et théoriquement quelque soit le système d'exploitation en tout cas sur Windows et surement sur Linux et MacOS (à voir le système de fichiers).

Le plus gros a déjà été fait (éditeur/convertisseur dispo en OpenSource) j'ai juste mis à ma sauce et mis sous forme de site web local. La démo de la base pourrait être utilisée telle-que (http://www.wysibb.com/demo/).

L'intérêt c'est que l'on peut la mettre sur une clé USB et de l'utiliser sur n'importe quel PC ayant un navigateur internet . Pas besoin qu'il soit équipé de LibreOffice, Word, etc. ou que l'on ne puisse/veuille pas installer les macro ou plug-ins présentés sur ce sujet. Il n'y a pas de fichiers qui s'intalle ailleurs.
L'application n'a pas besoin d'une connectioon internet pour fonctionner (pour récuper le texte à BL et mettre les annotations il en faut quand même une ).
Pour le moment on ne peut pas faire de sauvegarde de la BL en cours.

Installation / mode d'emploi :

Spoiler: montrer

Télécharger le dossier zip : Le dé-zipper à l'endroit que vous désirez (disque dur principal,secondaire, disque réseau, clé USB, etc.).
Ne pas modifier le nom d'aucun fichier /dossier contenus dans ce dossier ni même les déplacer/supprimer (seul le dossier principal peut être renommé selon votre convenance). Si vous le désirez, vous pouvez créer un raccourcis où vous voulez (barre de tache, dock, bureau, favoris de votre navigateur internet, etc.) pointant vers le fichier BBêtaLecture(.html) contenu à la racine principale du dossier (BBêtaLecture v1.0 si vous ne l'avez pas renommé autrement).
Voilà,C'est tout pour l’installation.

Vous cliquez sur sur le fichier BBêtaLecture ou son raccourci, le navigateur s'ouvre si ce n'était pas le cas, et la page s'affiche.
Cliquez sur le bouton [BBcode] (le bouton passe sur fond gris) et coller le texte BL à annoter dans la fenêtre. Cliquez à nouveau sur [BBcode] (le bouton passe en fond blanc) et vous pouvez commencer à annoter le texte.
Des boutons supplémentaires sont disponibles par rapport à la démo pour permettre d'appliquer facillement les "codes" d'annotations (selon mon gout uniquement pour le moment), d'insérer des listes, spoiler et même d'insérer une légende (suivants les "codes" précedents). Cette légende automatique est la suivante :

LÉGENDE

Texte à l'origine du commentaire
J'aime
Observation, remarque
Répétitions
Faute possible
Problème dans la forme
Pas indispensable


Une fois terminé cliquez sur [BBcode] selectioonner le texe et copiez le. Vous pouvez le coller dans l'éditeur de CocyClics.

Un mode d'emploi plus complet est disposous forme de fichier PDF : https://www.dropbox.com/s/znnlkrdqihwec ... i.pdf?dl=0
Le dossier zip est dispo ici : https://www.dropbox.com/s/1eh384grcnke5 ... 0.zip?dl=0

Ce message à été rédigé intégralement avec l'application. Aucune grenouille n'a été bléssée durant la rédaction.

edit :
Copie d'écran du "site"

Spoiler: montrer

image dispo ici :

[Melalivres]

Bonsoir, je viens apporter ma pierre à l'édifice !
Comme je découvre seulement ce sujet, je me suis déjà forgé une méthode pour gagner du temps sur les BL.
J'ai ajouté des corrections automatique sur Word qui correspondent à du BBcode, et je n'ai plus qu'à taper le raccourci et à faire une espace pour le transformer.
Pour voir mes raccourcis
Après, je n'ai plus qu'à tout copier tel quel.

[GilCinqEnOeuf]

Petite mise à jour pour ceux qui utilise Libre Office sous Linux ( je ne sais pas si c'est la même chose sous windows)

Pour accéder au BBcode,

Il faut aller dans : Outils - Macros - exécuter la macros - (dans la fenêtre qui s'ouvre) mes macros/BBcode/ (sélectionner) modules1 et cliquer sur exécuter

Pour la suite c'est comme expliqué plus haut, la ligne verte et le résultat dans une petite fenêtre pour sélectionner ce qu'il y a dans la fenêtre cliquer dans la fenêtre et faire ctrl-A, clic droit copier...

[Shirley]

Waouh merci raccoon pour ce taf de malade !

[Jérémie]

Heu, je ne sais pas trop si ce sera utile pour les utilisateurs de Word (dont je suis), parce que moi, je n'ai rien compris à l'utilisation des macros... Mais on peut utiliser assez simplement la fonction Remplacer.
On fait sa BL en utilisant les couleurs qu'on veut (pour moi, rose et bleu), la mise en gras, en souligné, en italique, en barré, etc. Puis on va dans Remplacer, on déplie le panneau Plus>> et...

- pour le gras, on met le curseur dans la case Rechercher et on appuie sur Ctrl + G. Puis on met le curseur dans la case Remplacer et on écrit [ b ]^&[ /b ]
Supprimez juste les espaces que j'ai ajoutées à l'intérieur des crochets.

- idem pour l'italique (Ctrl + I) et le souligné (Ctrl + U), mais avant de le faire, quand vous mettez votre curseur dans la case Rechercher, pensez bien à cliquer sur le bouton "Sans attributs" entre chaque manip.

- pour les couleurs, on met le curseur dans la case Rechercher et on clique tout en bas sur le bouton Format > Police > Couleur de police, et vous n'avez plus qu'à choisir votre couleur (par exemple Bleu). Dans la case Rechercher, tapez [ color=#0000FF ]^&[ /color ]
Supprimez juste les espaces que j'ai ajoutées à l'intérieur des crochets. Procédez de même pour toutes vos couleurs en récupérant les codes sur le forum, mais pensez bien à cliquer à chaque fois sur "Sans attribut" pour réinitialiser les valeurs du champ Rechercher.

- pour les mots barrés : Formats > Police, c'est le premier des Effets. Remplacer : [ strike ]^&[ /strike ]

Explication : le code &^ dans la case Remplacer permet de dire à Word de conserver à l'identique l'expression identifiée dans la recherche.

[Umanimo]

Merci, Jérémie, je comprends aussi rien au macros, donc ton astuce m'est utile.

[ElNat]

je comprends aussi rien au macros

+ 1
C'est sympa d'avoir partagé cette astuce, merci Jérémie !

[ESPER]

Bonjour,
J'espère que quelqu'un va trouver la solution pour passer directement de Word au forum, ce serait quand même plus simple que de passer par Open Office !
En attendant, je travaille les BLs sur la nouvelle option "brouillon".
Merci d'avance à la grenouille expert qui voudra bien nous aider.

[Cancan]

Mars 2018, ça fonctionne parfaitement avec LibreOffice 5 sur Ubuntu. Quel gain de temps ! Génial.

[Amou]

Trop bien !!
Merci à toutes les grenouilles qui ont développé et expliqué ces astuces !! Ça va permettre un super gain de temps, c'est génial !
Merci tout plein !!