Je dois faire une manip sous word que j'espère possible mais je n'ai aucune idée de la façon dont je dois m'y prendre.
 
J'ai donc un fichier word qui contient sur chaque ligne du texte en anglais immédiatement suivie du même texte mais en suédois. Il n'y a pas de caractère de séparation entre les 2 langues, la seule distinction est la couleur du texte car l'anglais est en noir et le suédois en rouge.
 

 
Bref, mon seul but est d'arriver à séparer les 2 langues. Donc par exemple avoir un fichier CSV ou alors xml. N'importe quoi que je puisse facilement traiter ensuite.
 
Merci beaucoup si vous pouvez m'aider, c'est assez important :-/

bonjour
Je ne sais pas si cela peut marcher mais sépare les deux langues par touche de tabulation par exemple de façon à ce que par la suite tu fasses un copier coller de la langue que tu veux et tu ouvres deux fichiers un de suedois et d'anglais. C'est bête mais c'est tout ce que je peux te conseiller car je ne suis pas assez experte dans ce domaine mais je pense que mon idée est bonne. A voir plus en détail. Bon surf et bon curage.

j'ai besoin d'un traitement automatique, je peux pas faire des tabulations à la main, il y a des milliers de lignes dans le fichier...

Quelques lignes alors!
 
Sub ModifRouge()
' A exécuter qu'une fois
' Pour chaque occurrence d'un texte formaté en police rouge
' insère une tabulation avant cette occurence.
'
' police rouge: wdColorRed (consulter WdColor)
' tabulation ou autre: ici tabulation=>vbTab
'*************************************************************
    With ActiveDocument.Paragraphs.TabStops
        'efface toutes les tabulations du doc actif
        .ClearAll
        'en insère une à 9cm avec:  wdAlignTabBar, wdAlignTabCenter, wdAlignTabDecimal
        '                           wdAlignTabLeft, wdAlignTabList, wdAlignTabRight
        .Add Position:=CentimetersToPoints(9), Alignment:=wdAlignTabLeft
    End With
'Recherche
    With ActiveDocument.Content.Find
        'annule les éventuels critères de recherche définis préalablement
        .ClearFormatting
        'init le critère de recherche sur couleur de la police
        .Font.Color = wdColorRed
        'boucle sur tous les paragraphes du doc.
        Do While .Execute(FindText:="", Forward:=True, _
                Format:=True) = True
            With .Parent
                'insère avant la sélection issue de la recherche un code tabulation
                .InsertBefore vbTab
                'Paragraphe suivant
                .Move Unit:=wdParagraph, Count:=1
            End With
        Loop
    End With
End Sub

merci beaucoup, je test ça

.

ça marche mais uniquement pour la première occurence

Erf!
N'aurais-tu pas qu'un seul paragraphe?
Si c'est le cas la limitation vient de la ligne de saut:
                'Paragraphe suivant  
                .Move Unit:=wdParagraph, Count:=1  
Alors modifie la ligne comme suit:
.Move 'Unit:=wdParagraph, Count:=1
 
...
 
Pas très clair! met en commentaire (') ou supprime ce qui suit .Move

C'est parfait merci beaucoup ! :-)