Discussion :

[arnooooo]

Bonjour à tous !
Alors voilà, je traduis des scénarios avec un programme spécifique. Mon fichier de sortie en .txt est du type :

00:01:32:23 00:01:34:21
Hace 9 meses,#en un útero no muy lejano...

00:01:38:21 00:01:41:15
La Guerra de las Matrices.

00:01:45:05 00:01:48:02
¿De dónde vienen los jedis?

00:01:51:07 00:01:54:06
de dónde vienen los niños.


Mais voilà! Le format ultime nécessaire à l'incrustation sur l'image est du type:

01:12:52:17 01:12:54:23 Hace 9 meses,#en un útero no muy lejano...
01:12:57:20 01:13:00:04 La Guerra de las Matrices.
01:13:08:18 01:13:10:03 ¿De dónde vienen los jedis?
01:13:12:24 01:13:14:09 de dónde vienen los niños.

Donc fichier nécessaire :
- avec 1 seul espace entre les codes temporels, un espace et la phrase ; contrairement à 2 espaces entre les codes, saut de ligne et la phrase.

Vous vous imaginez le nombre de pages de scénarios que je dois faire, "à la main"!
Je sais qu'il existe une macros possible sur word, mais je vous avoue ne pas être un pro sur la question...
Si une âme charitable pouvait me donner un coup de main, quant à la marche à suivre!...

Merci d'avance
Et bonne continuation
Arno

Re-
Donc ce qui reviendrai à faire, dans le bloc notes :

flèche du bas - Suppr - Ctrl+flèche de droite - Del - Fin - Suppr - Barre d'espace.

[Heureux-oli]

J'aurais besoin d'un morceau de vrai fichier pour pouvoir détermier coment définir une macro.
Le type de retour à la ligne et important.

[arnooooo]

Bonsoir,
Veux-tu que je te joigne quelques fichiers par mail? ou...
Dis-moi.

Merci de te pencher sur le problème!

Cordialement

[Heureux-oli]

Simplement sur le forum, attaché au fil.

[arnooooo]

Bonjour,
Voilà, j'ai joint un fichier en format .txt

Merci

[arnooooo]

Re-
Et voilà la version désirée...

merci !

[Sepia]

Salut,

Pas besoin de macro.

1. Tu ouvres ton doc Word
2. Tu fais remplacer "^p^p" par "$$$, remplacer Tout
3. Tu fais remplacer "^p" par " ", remplacer Tout
4. Tu fais rempmlacer "$$$" par "^p"

C'est fini

[arnooooo]

Bonsoir,
Merci pour ton conseil.
Alors, super, j'ai bien la phrase en face de mes codes temporels...

Mais, j'ai encore 2 espaces entres les 2 codes, il ne m'en faut qu'un...
et puis, après le 2ème code, il me faut un (et un seul) espace avant la phrase.

Merci

[Heureux-oli]

Essaie ceci

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
26
27
28
29
30
31
Sub DelLigne()
On Error Resume Next
 
Dim para As Paragraph
 
For Each para In ActiveDocument.Paragraphs
    If Len(para.Range.Text) = 26 Then
    If IsNumeric(Left(para.Range.Text, 1)) And IsNumeric(Val(Right(para.Range.Text, 2))) Then
 
    para.Range.Select
    With Selection.Find
    .Forward = True
    .ClearFormatting
    .MatchWholeWord = True
    .MatchCase = False
    .Wrap = wdFindContinue
    .Execute FindText:=vbCrLf
    End With
    Selection.TypeText " "
    End If
    End If
    If Len(para.Range.Text) = 2 Then
        para.Range.Select
        Selection.Delete
    End If
 
 
 
Next para
 
End Sub

[arnooooo]

Salut à tous !
Merci pour ce macros, j'ai essayé, ça marche nickel !!...
Il reste simplement à résoudre les 2 espaces entre les codes temporels, un et un seul est nécessaire!...

Merci pour tout

[Heureux-oli]

Je n'avais pas fait attention à cette particularité, mais dans ce cas, tu peux simplement résoudre par un remplacement des 2 espaces par un seul.
Et simplement au départ de l'interface graphique de Word.
C'est plus simple qu'une macro

[arnooooo]

Bonjour,
merci, j'ai résolu le souci des 2 espaces après l'application du macros que tu m'as donné
Et ça marche parfaitement!!

Merci encore

Et bonne continuation!!

Arnaud

[Heureux-oli]

un petit alors.

Merci