Salut
j'ai actuellement une macro (écrite par quelqu'un d'autre pour moi) qui sert à changer l'ordre des lignes de paragraphes de texte en fonction des marqueurs au début de chacune de ses lignes (toujours les mêmes marqueurs dans le même ordre).
J'aimerais modifier cette macro pour changer l'ordre (inverser 2 éléments en fait).
Je vous donne ici la macro:
et ici un exemple de paragraphe avant toute macro:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 Sub XmlToLp3MettreMarqueursDansOrdreLp() Application.ScreenUpdating = False Dim strTags As String, i As Long strTags = "sfx|xv,xinfor|xfon" With ActiveDocument.Range.Find .ClearFormatting .Replacement.ClearFormatting .Forward = True .Wrap = wdFindContinue .Format = False .MatchWildcards = True .Text = "^13" .Replacement.Text = "^13^p" .Execute Replace:=wdReplaceAll For i = 0 To UBound(Split(strTags, ",")) .Text = "(\\" & Split(Split(strTags, ",")(i), "|")(0) & "*)(\\" & Split(Split(strTags, ",")(i), "|")(1) & "*^13)" .Replacement.Text = "\2\1" .Execute Replace:=wdReplaceAll Next .Text = "^13^13" .Replacement.Text = "^p" .Execute Replace:=wdReplaceAll End With Application.ScreenUpdating = True End Sub
ici un exemple de paragraphe après ma macro actuelle (celle que j'ai copiée-collée ci-dessus)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 \sfx PYK-29083-MK-0310.mp3 \xinfor M.K. (1924) \xbrloc Veleur ket alies. \xfon \xv Ne weler ket alies. \xtrad On ne le voit pas souvent. \lt \nt
et ici le paragraphe tel que je voudrais qu'il soit (grâce à la macro que vous voudrez bien m'aider à faire je l'espère ):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 \xv Ne weler ket alies. \sfx PYK-29083-MK-0310.mp3 \xfon \xinfor M.K. (1924) \xbrloc Veleur ket alies. \xtrad On ne le voit pas souvent. \lt \nt
Par rapport au résultat de la macro actuelle, il faut donc seulement inverser les lignes qui commencent par \xbrloc et \xv.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 \xbrloc Veleur ket alies. \sfx PYK-29083-MK-0310.mp3 \xfon \xinfor M.K. (1924) \xv Ne weler ket alies. \xtrad On ne le voit pas souvent. \lt \nt
Si vous pouviez modifier la macro en conséquence, ça serait génial ! ça doit être simplissime mais je ne comprends rien du tout à la façon d'écrire des macros donc je peux malheureusement pas le faire moi-même
Merci d'avance!
Partager