Word Afficher texte au km

[TooFatBoy]

Bonjour,

Est-il possible, sous Word, d'avoir un affichage "brut" du texte saisi au km ?

Word essaye d'être intelligent et de passer à la ligne suivante sans découper les mots. 🙁
Moi, je voudrais au contraire qu'il remplisse chaque ligne jusqu'au bout et coupe les mots en deux sans ajouter de trait d'union.

Est-ce possible ?
Si oui, comment faire ?


Merci

 

[crocrocro]

petite correction faite dans le post précédent : .Wrap = False
sinon on remplace aussi hors sélection

 

[TooFatBoy]

2 macros
- CouperLignesSelection les sauts de ligne ne sont que sur ta sélection (donc il faut sélectionner préalablement ta formule)
- RéinitCouperLignesSelection qu suppriment les sauts de ligne positionnés par CouperLignesSelection
Tu peux alors faire tes recherches puis relancer la macro CouperLignesSelection

Je viens de tester et... c'est fantastique ! MERCI !!! 👍

 

[TooFatBoy]

Actuellement j'utilise les excellentes macros de crocrocro avec juste une modif : utilisation de Chr(11) pour insérer les sauts de ligne :

Sub CouperLignesSelection()
Dim NbCar As Integer
Dim NbDansLigne As Integer
Dim NbParLigne As String
    NbParLigne = InputBox("Nombre de caractères de chaque ligne")
    NbDansLigne = 0
    For NbCar = 0 To Selection.Characters.Count - 1
        NbDansLigne = NbDansLigne + 1
        If NbDansLigne = NbParLigne Then
            Selection.Characters(NbCar).InsertAfter Text:=Chr(11)
            NbDansLigne = 0
        End If
    Next NbCar
End Sub

Sub RéinitCouperLignesSelection()
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = Chr(11)
        .Replacement.Text = ""
        .Forward = True
        .Wrap = False
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

J'ai voulu lancer les macros à l'aide d'un bouton, mais le fait de cliquer sur le bouton désélectionne le texte donc ça ne peut pas fonctionner tel quel.
Est-il possible que la macro s'exécute automatiquement uniquement sur le paragraphe ou sur toute la page "active" ("active" = où se trouve le curseur) ?

 

[crocrocro]

Bonjour @TooFatBoy ,
excellentes macros 🤣
Il est certainement possible de faire en 2 temps :
- Enregistrer la position courante
- Activer a macro par le bouton en utilisant la position enregistrée.
Mais je trouve que ce n'est pas une bonne idée car visuellement, on ne sait pas ce qui a été sélectionné précédemment.
Ce que je ferai :
Sélectionner ce que tu veux (paragraphe, tout le document ...)
Dans le Menu Développeur -> Macros : Tu actives la macro de ton choix.