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

[visible par les non-inscrits] Ici on parle de nos problèmes et questions concernant les bêtas, qu'on soit auteur ou lecteur.
Avatar de l’utilisateur
Elysha
Fend les prairies argentées de sa lumineuse quintessence
Messages : 537
Inscription : ven. mai 09, 2014 7:27 pm
Rang special : Tétarade
Localisation : Liège
Contact :

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

Message par Elysha » sam. oct. 10, 2015 3:29 am

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

Avatar de l’utilisateur
Elysha
Fend les prairies argentées de sa lumineuse quintessence
Messages : 537
Inscription : ven. mai 09, 2014 7:27 pm
Rang special : Tétarade
Localisation : Liège
Contact :

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

Message par Elysha » lun. oct. 12, 2015 7:57 pm

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.

Avatar de l’utilisateur
Elysha
Fend les prairies argentées de sa lumineuse quintessence
Messages : 537
Inscription : ven. mai 09, 2014 7:27 pm
Rang special : Tétarade
Localisation : Liège
Contact :

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

Message par Elysha » lun. oct. 12, 2015 9:11 pm

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 :heart:
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
raccoon a écrit :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
Dernière modification par Elysha le mar. oct. 13, 2015 11:53 pm, modifié 1 fois.

Avatar de l’utilisateur
Florie
Tueuse de canaris et dévoreuse de fromage
Messages : 2763
Inscription : jeu. août 27, 2015 3:57 pm
Rang special : Nife en l'Air
Contact :

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

Message par Florie » mar. oct. 13, 2015 12:44 pm

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!)
Site | lien vers les blogs, podcasts et autres : Florieteller

Avatar par Amaryan :heart:

Avatar de l’utilisateur
Sumiré
Batracien
Messages : 134
Inscription : mer. déc. 09, 2015 5:11 pm
Rang special : rainette curieuse

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

Message par Sumiré » mar. déc. 15, 2015 2:25 pm

Un énorme :merci2: pour cette astuce :pompom:

Génial :sr: 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 :pompom:
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 !!!!! :pompom:
Papyrus : Âmnées : Le labyrinthe des anges (tome 1)

Avatar de l’utilisateur
Pugio
Batracien
Messages : 61
Inscription : ven. mars 11, 2016 4:12 pm
Rang special : Attend son pilchard quotidien
Localisation : Au-delà du neuvième cercle

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

Message par Pugio » mer. mars 30, 2016 8:26 pm

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 : Image

Avatar de l’utilisateur
Melalivres
Spécialiste de l'évasion littéraire
Messages : 955
Inscription : lun. mai 23, 2016 10:33 am
Rang special : Dresseuse de hérons

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

Message par Melalivres » sam. sept. 10, 2016 9:15 pm

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.
Challenge 1er jet : De l'action. Du drame. De l'amour. Un bateau.
~~ Marraine-fée de Lullaby ~~

Avatar de l’utilisateur
GilCinqEnOeuf
Messages : 495
Inscription : dim. nov. 13, 2016 11:30 am
Rang special : 7
Contact :

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

Message par GilCinqEnOeuf » mer. nov. 16, 2016 5:06 pm

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... :pompom:

Avatar de l’utilisateur
Shirley
Messages : 79
Inscription : mer. nov. 16, 2016 9:36 am
Rang special : Rêveuse à temps complet
Localisation : Martigues
Contact :

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

Message par Shirley » lun. nov. 21, 2016 9:29 pm

Waouh merci raccoon pour ce taf de malade ! :pompom: :bravo: :pompom:
Blog : Creative Mood & Page Facebook

:hp: Que la créativité inonde votre quotidien !

Avatar de l’utilisateur
Jérémie
Bêta-lecteur de l'extrême
Messages : 1071
Inscription : mer. janv. 23, 2013 4:11 pm
Rang special : Amiral du vaisseau Destination Futur
Localisation : Rennes !
Contact :

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

Message par Jérémie » dim. mars 12, 2017 6:39 pm

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.
Un Fils inattendu et autres nouvelles de science-fiction et fantasy publié sur Amazon (ebook et papier). Mon 1er recueil :D

Comment formater et typographier vos livres publié sur Amazon (ebook et papier)

Avatar de l’utilisateur
Umanimo
Quand trop de chance tourne à la déveine
Messages : 4163
Inscription : dim. avr. 19, 2015 3:14 pm
Rang special : Whovianne
Localisation : Dans le temps et l'espace
Contact :

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

Message par Umanimo » mar. mars 14, 2017 11:06 am

Merci, Jérémie, je comprends aussi rien au macros, donc ton astuce m'est utile.
Challenge 21 septembre 2018 : Brandon et Mason sont sur un bateau [avec Melalivres]

Marraine de Aesta et Louisia :heart:
Filleule de Grenouille Cerise :heart:

Avatar de l’utilisateur
ElNat
Messages : 900
Inscription : lun. mars 09, 2015 10:55 pm
Rang special : Adepte de la plume d'oie

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

Message par ElNat » mar. mars 14, 2017 4:50 pm

Umanimo a écrit :
mar. mars 14, 2017 11:06 am
je comprends aussi rien au macros
+ 1 ^^
C'est sympa d'avoir partagé cette astuce, merci Jérémie !
Mon challenge 2018 : Underground
Fière marraine de Luxia et La Louve ! :love:

ESPER

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

Message par ESPER » dim. mars 04, 2018 4:37 pm

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.

Avatar de l’utilisateur
Cancan
Batracien
Messages : 114
Inscription : lun. févr. 26, 2018 1:56 pm
Rang special : canard

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

Message par Cancan » mar. mars 06, 2018 4:25 pm

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

Avatar de l’utilisateur
Amou
Batracien
Messages : 53
Inscription : mer. janv. 25, 2017 11:48 am
Rang special : humaniste enthousiaste

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

Message par Amou » lun. mai 28, 2018 10:39 pm

Trop bien !! :heart:
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 !!
:yata: :pompom: :yata: :pompom: :yata:

Répondre