Macro Word pour edition d'une nouvelle.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro Word pour edition d'une nouvelle.

lasauvage

Salut a tous, désolé de vous embêter, mais j'ai un petit problème.
En fait j'essaie de créer une macro word pour éditer une nouvelle qu'on écris moi et une amie sur un forum.
On s’écrie les passages par MP, le truc c'est que quand je sauve le texte finale, toute l'histoire est a l'envers (la dernière réponse est au début, la première a la fin)
Pas très pratique.

J'ai donc voulu faire une macro pour inverser tout ça. Comme je ne sais faire que des macro par enregistrement j'ai donc commencé par ça. Mais sa ne marche pas comme prévu parce que je ne sais pas dire a Word de sélectionner le text en partant de la fin, ni de faire une boucle...
J'ai regardé la macro, en fait elle fonctionne au nombre de ligne. Donc si on écrit une autre histoire, pas de la même taille, sa marchera encore moins...

Pour m'aider, nos répliques sont toute écrite ainsi

-------
blablablabla
blablablabla
blablablabla
-------

Donc comment dois-je faire pour dire a word de:
#selectionner le text entre chaque -------
#Partir de la toute fin du text
#faire ça en boucle jusqu’à ce qu'il ne trouve plus de -------
(tout le copier/coller tout ça j'ai trouvé le code je pourrai me débrouiller)

Merci beaucoup d'avance.

Publicité

Marc L

Salut !

Un exemple court et précis éclaircirait la problématique …

Les logiciels de messagerie (en tout cas les bons) ont la possibilité de poster les réponses
en dessous du message précédent au lieu d'au dessus, pas besoin de code alors ! …

Si non le copier / coller par bloc va très bien aussi !

N'étant pas un spécialiste de Word, une fois le texte collé à l'envers cela risque d'être une usine !

Par contre à partir du texte collé dans le Presse-papiers ou dans un fichier .txt ce serait facile …

Message édité par Marc L le 03-12-2013 à 14:27:39

MaybeEijOrNot

but someone at least

Salut,

Je ne suis pas non plus expert en Word mais as-tu la possibilité de récupérer tout le texte d'un coup dans la macro? Si oui alors il te suffit d'utiliser la fonction split avec tout le texte et comme séparateur les "------", après tu parcoures ton tableau en partant de la fin.

lasauvage

Bah le truc c'est que le forum ou l'on est a pas un très bon système de messages...
Et copier coller par bloc c'est efficace, mais long (les macros sont supposé simplifier la vie... celle me colle juste un migraine en revanche >.> )

Disons en exemple que j'ai mon histoire comme ça

-------
Antoine remarque les chaussures de Marie et grimace... il préférait les autres...
-------
Marie adore ses nouvelles chaussures, elle sont trop belles! Elle les montre vite a Antoine!
--------

Comme vous voyez, les deux morceaux sont pas dans le bon ordre... et donc je pensais que on pourrai faire une macro simple qui irai sélectionner entre chaque -----, et qui collerais sa dans un nouveau document, de bas en haut, en boucle.
(parce que dans nos histoire les morceau sont un peu (beaucoup) plus gros que deux lignes...)

Sinon ce truc de tableau je suis pas sure de comprendre...

Message cité 1 fois
Message édité par lasauvage le 03-12-2013 à 17:32:37

MaybeEijOrNot

but someone at least

http://drq.developpez.com/vb/tutoriels/String/#LVI

Marc L

lasauvage a écrit :

-------
Antoine remarque les chaussures de Marie et grimace... il préférait les autres...
-------
Marie adore ses nouvelles chaussures, elle sont trop belles! Elle les montre vite a Antoine!
--------

En respectant cette structure, après le Copier du texte source,
dans Word juste sélectionner le point d'insertion (ne pas Coller !) puis lancer cette procédure :

Code :

' Référence à cocher via le menu Outils : Microsoft Forms 2.0 Object Library
Sub InverserBlocs()
Dim oDO As New DataObject, SP$(), TX$()
oDO.GetFromClipboard
If oDO.GetFormat(1) Then
SP = Split(oDO.GetText(1), vbNewLine)
For N& = UBound(SP) To 0 Step -1
If Left(SP(N), 3) = "---" Then
If F& - N > 0 Then
ReDim Preserve TX(1 To L& + F - N)
For T& = N + 1 To F
L = L + 1
TX(L) = SP(T)
Next
End If
F = N - 1
End If
Next
Selection.InsertBefore Join(TX, vbNewLine)
Selection.Collapse wdCollapseEnd
End If
End Sub

lasauvage

Magnifique! Sa marche comme un charme! Merci beaucoup ^^

MaybeEijOrNot

but someone at least

La solution que je suggérais :

Code :

Sub ReverseSelection()
Dim contenu As String
Dim tableau() As String
Dim i As Currency
contenu = ""
tableau = Split(Selection.Text, "-----" & Chr(13))
For i = UBound(tableau()) To 0 Step -1
contenu = contenu & tableau(i)
Next i
Erase tableau
Selection.Text = contenu
End Sub
Sub ReverseDocument()
Dim contenu As String
Dim tableau() As String
Dim i As Currency
contenu = ""
tableau = Split(ActiveDocument.Content, "-----" & Chr(13))
For i = UBound(tableau()) To 0 Step -1
contenu = contenu & tableau(i)
Next i
Erase tableau
ActiveDocument.Content = contenu
End Sub

La première macro travaille sur le texte sélectionné, la deuxième sur tout le document.

Marc L

Comme de toute manière lasauvage passe par un Copier, j'ai préféré travailler directement à partir du Presse-papiers …

Sinon mon premier jet était dans ton esprit mais peu souple quant au séparateur, s'il y a un "-" de plus ou de moins …
C'est pour cela que j'ai préféré détecter à partir de 3 "-" consécutifs, peu importe qu'il y en ait 6, 7 ou 8 !

Mon premier jet :

Code :

' Référence à cocher via le menu Outils : Microsoft Forms 2.0 Object Library
Sub InverserPressePapiers()
Dim oDO As New DataObject, SP$()
oDO.GetFromClipboard
If oDO.GetFormat(1) Then
SP = Split(oDO.GetText(1), "-------" & vbNewLine)
For N& = UBound(SP) To 0 Step -1
T$ = T$ + SP(N)
Next
Selection.InsertBefore T
Selection.Collapse wdCollapseEnd
End If
End Sub

MaybeEijOrNot

but someone at least

Ah oui, je n'ai pas cherché à comprendre, c'est donc cette histoire de tiret qui complique à un peu ton code, mais en effet ça sera plus souple pour un code prêt à l'emploi.

Publicité

Marc L

Oui j'aurai pu continuer en alimentant une simple variable texte au lieu de faire le beau avec un second tableau dynamique !

Il y avait aussi la possibilité de ne pas utiliser Split mais de détecter via InstrRev puis découper par Mid …

Bref, différents moyens d'effectuer l'inversion en pur VBA, ce que j'appréhendais était la partie Word, ma fois assez simple dans ce cas …

______________________________________________________________
La connaissance, c'est comme la confiture : moins on en a plus on l'étale !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Macro Word pour edition d'une nouvelle.

Sujets relatifs
Macro complémentaire Excel .XLA	faire une macro dans outlook, possible ou pas?
macro trop lente - double boucle do while	Renseignement macro Word
[SQL] [SAS] macro sur table	Macro publication CATIA V6
GWT + javascipt nouvelle fenetre	Faire ouvrir Excel par une macro Outlook
Plus de sujets relatifs à : Macro Word pour edition d'une nouvelle.

Page générée en 0.065 secondes