je suis ultra novice en VBA mais j'ai besoin d'une macro pour recopier
automatiquement dans un document 2 tous les paragraphes de style B de mon
document 1, à la condition qu'ils soient précédés d'un mot X de style A.
quelques précisions :
- X est une variable que je dois préciser avant de lancer la recherche.
- dans mon document le style A est toujours suivi d'un paragraphe de style B
je suis ultra novice en VBA mais j'ai besoin d'une macro pour recopier automatiquement dans un document 2 tous les paragraphes de style B de mon document 1, à la condition qu'ils soient précédés d'un mot X de style A.
quelques précisions :
- X est une variable que je dois préciser avant de lancer la recherche. - dans mon document le style A est toujours suivi d'un paragraphe de style B
C'est pas le vba qui est compliqué il me semble mais de bien décrire le travail à faire ce qui amènerait à préciser ton exposé. Il me semble que je frais l'inverse : supprimer tout ce qu'on veut pas garder et enregistrer sous un nouveau nom.
--
A+
Bonjour ROBINJP
Bonjour,
je suis ultra novice en VBA mais j'ai besoin d'une macro pour recopier
automatiquement dans un document 2 tous les paragraphes de style B de
mon document 1, à la condition qu'ils soient précédés d'un mot X de
style A.
quelques précisions :
- X est une variable que je dois préciser avant de lancer la
recherche.
- dans mon document le style A est toujours suivi d'un paragraphe de
style B
C'est pas le vba qui est compliqué il me semble mais de bien décrire le
travail à faire ce qui amènerait à préciser ton exposé.
Il me semble que je frais l'inverse : supprimer tout ce qu'on veut pas
garder et enregistrer sous un nouveau nom.
je suis ultra novice en VBA mais j'ai besoin d'une macro pour recopier automatiquement dans un document 2 tous les paragraphes de style B de mon document 1, à la condition qu'ils soient précédés d'un mot X de style A.
quelques précisions :
- X est une variable que je dois préciser avant de lancer la recherche. - dans mon document le style A est toujours suivi d'un paragraphe de style B
C'est pas le vba qui est compliqué il me semble mais de bien décrire le travail à faire ce qui amènerait à préciser ton exposé. Il me semble que je frais l'inverse : supprimer tout ce qu'on veut pas garder et enregistrer sous un nouveau nom.
--
A+
Anacoluthe
Bonjour !
'ROBINJP' nous a écrit ...
je suis ultra novice en VBA mais j'ai besoin d'une macro pour recopier automatiquement dans un document 2 tous les paragraphes de style B de mon document 1, à la condition qu'ils soient précédés d'un mot X de style A.
Novice ou moins novice en VBA vous irez plus vite SANS macro ! Comme copier une sélection multiple trouvée par 'Rechercher'
Anacoluthe « Trouver d'abord, chercher après. » - Jean COCTEAU
Bonjour !
'ROBINJP' nous a écrit ...
je suis ultra novice en VBA mais j'ai besoin d'une macro pour recopier
automatiquement dans un document 2 tous les paragraphes de style B de mon
document 1, à la condition qu'ils soient précédés d'un mot X de style A.
Novice ou moins novice en VBA vous irez plus vite SANS macro !
Comme copier une sélection multiple trouvée par 'Rechercher'
Anacoluthe
« Trouver d'abord, chercher après. »
- Jean COCTEAU
je suis ultra novice en VBA mais j'ai besoin d'une macro pour recopier automatiquement dans un document 2 tous les paragraphes de style B de mon document 1, à la condition qu'ils soient précédés d'un mot X de style A.
Novice ou moins novice en VBA vous irez plus vite SANS macro ! Comme copier une sélection multiple trouvée par 'Rechercher'
Anacoluthe « Trouver d'abord, chercher après. » - Jean COCTEAU
Clément Marcotte
Novice ou moins novice en VBA vous irez plus vite SANS macro !
Là tu vas attirer JièL ;-)
Novice ou moins novice en VBA vous irez plus vite SANS macro !
Novice ou moins novice en VBA vous irez plus vite SANS macro !
Là tu vas attirer JièL ;-)
vi, il veux encore des points sur sont permis AMIS ;-)
-- JièL Pointeur AMIS
ROBINJP
bon alors je vais préciser un peu plus: mon document est un scénario de film. Dans ce scénario interviennent environ une dizaine de personnages, chacun avec un certain nombre de dialogues. Le document se présente comme ceci :
PERSONNAGE (style A) dialogueblablablablablabla (stle B)
Je veux pouvoir isoler tous les dialogues de untel ;et ce pour chacun des personnages, afin de savoir non seulement combien de fois parle tel personnage, mais également la longeur total de ses dialogues, pour savoir le timing à prévoir par comédien.
Sachant que j'ai 26 épisodes différents, et 10 personnages par épisode, je ne veux pas faire la manipulation 260 fois !
Ce que je cherche c'est à pouvoir automatiser la copie de tous les paragraphes de style "DIALOGUE" qui suivent le nom d'un personnage de style "PERSONNAGE" dans un nouveau document.
cela dit je suis intéressé pour savoir comment copier une sélection multiple trouvée par 'Rechercher' !
merci JP "Geo" a écrit dans le message de news:
Bonjour ROBINJP
Bonjour,
je suis ultra novice en VBA mais j'ai besoin d'une macro pour recopier automatiquement dans un document 2 tous les paragraphes de style B de mon document 1, à la condition qu'ils soient précédés d'un mot X de style A.
quelques précisions :
- X est une variable que je dois préciser avant de lancer la recherche. - dans mon document le style A est toujours suivi d'un paragraphe de style B
C'est pas le vba qui est compliqué il me semble mais de bien décrire le travail à faire ce qui amènerait à préciser ton exposé. Il me semble que je frais l'inverse : supprimer tout ce qu'on veut pas garder et enregistrer sous un nouveau nom.
--
A+
bon alors je vais préciser un peu plus: mon document est un scénario de
film. Dans ce scénario interviennent environ une dizaine de personnages,
chacun avec un certain nombre de dialogues. Le document se présente comme
ceci :
PERSONNAGE (style A)
dialogueblablablablablabla (stle B)
Je veux pouvoir isoler tous les dialogues de untel ;et ce pour chacun des
personnages, afin de savoir non seulement combien de fois parle tel
personnage, mais également la longeur total de ses dialogues, pour savoir le
timing à prévoir par comédien.
Sachant que j'ai 26 épisodes différents, et 10 personnages par épisode, je
ne veux pas faire la manipulation 260 fois !
Ce que je cherche c'est à pouvoir automatiser la copie de tous les
paragraphes de style "DIALOGUE" qui suivent le nom d'un personnage de style
"PERSONNAGE" dans un nouveau document.
cela dit je suis intéressé pour savoir comment copier une sélection multiple
trouvée par 'Rechercher' !
merci
JP
"Geo" <Geo@sans.pub> a écrit dans le message de
news:uk1MpYqwEHA.3668@tk2msftngp13.phx.gbl...
Bonjour ROBINJP
Bonjour,
je suis ultra novice en VBA mais j'ai besoin d'une macro pour recopier
automatiquement dans un document 2 tous les paragraphes de style B de
mon document 1, à la condition qu'ils soient précédés d'un mot X de
style A.
quelques précisions :
- X est une variable que je dois préciser avant de lancer la
recherche.
- dans mon document le style A est toujours suivi d'un paragraphe de
style B
C'est pas le vba qui est compliqué il me semble mais de bien décrire le
travail à faire ce qui amènerait à préciser ton exposé.
Il me semble que je frais l'inverse : supprimer tout ce qu'on veut pas
garder et enregistrer sous un nouveau nom.
bon alors je vais préciser un peu plus: mon document est un scénario de film. Dans ce scénario interviennent environ une dizaine de personnages, chacun avec un certain nombre de dialogues. Le document se présente comme ceci :
PERSONNAGE (style A) dialogueblablablablablabla (stle B)
Je veux pouvoir isoler tous les dialogues de untel ;et ce pour chacun des personnages, afin de savoir non seulement combien de fois parle tel personnage, mais également la longeur total de ses dialogues, pour savoir le timing à prévoir par comédien.
Sachant que j'ai 26 épisodes différents, et 10 personnages par épisode, je ne veux pas faire la manipulation 260 fois !
Ce que je cherche c'est à pouvoir automatiser la copie de tous les paragraphes de style "DIALOGUE" qui suivent le nom d'un personnage de style "PERSONNAGE" dans un nouveau document.
cela dit je suis intéressé pour savoir comment copier une sélection multiple trouvée par 'Rechercher' !
merci JP "Geo" a écrit dans le message de news:
Bonjour ROBINJP
Bonjour,
je suis ultra novice en VBA mais j'ai besoin d'une macro pour recopier automatiquement dans un document 2 tous les paragraphes de style B de mon document 1, à la condition qu'ils soient précédés d'un mot X de style A.
quelques précisions :
- X est une variable que je dois préciser avant de lancer la recherche. - dans mon document le style A est toujours suivi d'un paragraphe de style B
C'est pas le vba qui est compliqué il me semble mais de bien décrire le travail à faire ce qui amènerait à préciser ton exposé. Il me semble que je frais l'inverse : supprimer tout ce qu'on veut pas garder et enregistrer sous un nouveau nom.
--
A+
Geo
Bonjour ROBINJP
[...]
Là c'est tout à fait clair, mais :
cela dit je suis intéressé pour savoir comment copier une sélection multiple trouvée par 'Rechercher' !
Donc je passe la main au spécilaiste :-)
--
A+
Bonjour ROBINJP
[...]
Là c'est tout à fait clair, mais :
cela dit je suis intéressé pour savoir comment copier une sélection
multiple trouvée par 'Rechercher' !
cela dit je suis intéressé pour savoir comment copier une sélection multiple trouvée par 'Rechercher' !
Donc je passe la main au spécilaiste :-)
--
A+
Jean-Philippe
Quelqu'un a une solution ?
a écrit :
bon alors je vais préciser un peu plus: mon document est un scénario de film. Dans ce scénario interviennent environ une dizaine de personnages, chacun avec un certain nombre de dialogues. Le document se présente comme ceci :
PERSONNAGE (style A) dialogueblablablablablabla (stle B)
Je veux pouvoir isoler tous les dialogues de untel ;et ce pour chacun des personnages, afin de savoir non seulement combien de fois parle tel personnage, mais également la longeur total de ses dialogues, pour savoir le timing à prévoir par comédien.
Sachant que j'ai 26 épisodes différents, et 10 personnages par épisode, je ne veux pas faire la manipulation 260 fois !
Ce que je cherche c'est à pouvoir automatiser la copie de tous les paragraphes de style "DIALOGUE" qui suivent le nom d'un personnage de style "PERSONNAGE" dans un nouveau document.
cela dit je suis intéressé pour savoir comment copier une sélection multiple trouvée par 'Rechercher' !
merci JP
Quelqu'un a une solution ?
<sampito@free.fr> a écrit :
bon alors je vais préciser un peu plus: mon document est un scénario de
film. Dans ce scénario interviennent environ une dizaine de personnages,
chacun avec un certain nombre de dialogues. Le document se présente comme
ceci :
PERSONNAGE (style A)
dialogueblablablablablabla (stle B)
Je veux pouvoir isoler tous les dialogues de untel ;et ce pour chacun des
personnages, afin de savoir non seulement combien de fois parle tel
personnage, mais également la longeur total de ses dialogues, pour savoir le
timing à prévoir par comédien.
Sachant que j'ai 26 épisodes différents, et 10 personnages par épisode, je
ne veux pas faire la manipulation 260 fois !
Ce que je cherche c'est à pouvoir automatiser la copie de tous les
paragraphes de style "DIALOGUE" qui suivent le nom d'un personnage de style
"PERSONNAGE" dans un nouveau document.
cela dit je suis intéressé pour savoir comment copier une sélection multiple
trouvée par 'Rechercher' !
bon alors je vais préciser un peu plus: mon document est un scénario de film. Dans ce scénario interviennent environ une dizaine de personnages, chacun avec un certain nombre de dialogues. Le document se présente comme ceci :
PERSONNAGE (style A) dialogueblablablablablabla (stle B)
Je veux pouvoir isoler tous les dialogues de untel ;et ce pour chacun des personnages, afin de savoir non seulement combien de fois parle tel personnage, mais également la longeur total de ses dialogues, pour savoir le timing à prévoir par comédien.
Sachant que j'ai 26 épisodes différents, et 10 personnages par épisode, je ne veux pas faire la manipulation 260 fois !
Ce que je cherche c'est à pouvoir automatiser la copie de tous les paragraphes de style "DIALOGUE" qui suivent le nom d'un personnage de style "PERSONNAGE" dans un nouveau document.
cela dit je suis intéressé pour savoir comment copier une sélection multiple trouvée par 'Rechercher' !
merci JP
Geo
Bonjour Jean-Philippe
Quelqu'un a une solution ?
Voici un exemple qui barre tout<le texte qui n'est pas pour l'acteur concerné. Si tu veux le supprimer tu le fais par Edition remplacer. L'exemple pourrait être condensé, mais comme ceci il me parait plus facile à comprendre.
Option Explicit Dim TC As Document ' Texte complet
Sub TexteDeChaqueActeur() Set TC = ActiveDocument TexteDe ("Jacques") TexteDe ("Pierre") End Sub
Sub TexteDe(Personnage As String) Dim Tp As Document Dim Np As Integer Dim i As Integer Dim Effacer As Boolean Dim T As String Dim L As Integer Set Tp = Documents.Add ' Recopie du document complet TC.Select Selection.WholeStory Selection.Copy Tp.Select Selection.Paste 'Traitement des paragraphes Np = Tp.Paragraphs.Count L = Len(Personnage) For i = 1 To Np If Tp.Paragraphs(i).Style = "Style A" Then 'Est-ce le bon personnage ? T = Left(Tp.Paragraphs(i).Range.Text, L) If T = Personnage Then Effacer = False Else Effacer = True End If End If If Effacer Then Tp.Paragraphs(i).Range.Font.StrikeThrough = True End If Next ' écrit le document au nom du personnage Tp.SaveAs Personnage
End Sub
Bonjour Jean-Philippe
Quelqu'un a une solution ?
Voici un exemple qui barre tout<le texte qui n'est pas pour l'acteur
concerné.
Si tu veux le supprimer tu le fais par Edition remplacer.
L'exemple pourrait être condensé, mais comme ceci il me parait plus facile
à comprendre.
Option Explicit
Dim TC As Document ' Texte complet
Sub TexteDeChaqueActeur()
Set TC = ActiveDocument
TexteDe ("Jacques")
TexteDe ("Pierre")
End Sub
Sub TexteDe(Personnage As String)
Dim Tp As Document
Dim Np As Integer
Dim i As Integer
Dim Effacer As Boolean
Dim T As String
Dim L As Integer
Set Tp = Documents.Add
' Recopie du document complet
TC.Select
Selection.WholeStory
Selection.Copy
Tp.Select
Selection.Paste
'Traitement des paragraphes
Np = Tp.Paragraphs.Count
L = Len(Personnage)
For i = 1 To Np
If Tp.Paragraphs(i).Style = "Style A" Then
'Est-ce le bon personnage ?
T = Left(Tp.Paragraphs(i).Range.Text, L)
If T = Personnage Then
Effacer = False
Else
Effacer = True
End If
End If
If Effacer Then
Tp.Paragraphs(i).Range.Font.StrikeThrough = True
End If
Next
' écrit le document au nom du personnage
Tp.SaveAs Personnage
Voici un exemple qui barre tout<le texte qui n'est pas pour l'acteur concerné. Si tu veux le supprimer tu le fais par Edition remplacer. L'exemple pourrait être condensé, mais comme ceci il me parait plus facile à comprendre.
Option Explicit Dim TC As Document ' Texte complet
Sub TexteDeChaqueActeur() Set TC = ActiveDocument TexteDe ("Jacques") TexteDe ("Pierre") End Sub
Sub TexteDe(Personnage As String) Dim Tp As Document Dim Np As Integer Dim i As Integer Dim Effacer As Boolean Dim T As String Dim L As Integer Set Tp = Documents.Add ' Recopie du document complet TC.Select Selection.WholeStory Selection.Copy Tp.Select Selection.Paste 'Traitement des paragraphes Np = Tp.Paragraphs.Count L = Len(Personnage) For i = 1 To Np If Tp.Paragraphs(i).Style = "Style A" Then 'Est-ce le bon personnage ? T = Left(Tp.Paragraphs(i).Range.Text, L) If T = Personnage Then Effacer = False Else Effacer = True End If End If If Effacer Then Tp.Paragraphs(i).Range.Font.StrikeThrough = True End If Next ' écrit le document au nom du personnage Tp.SaveAs Personnage
End Sub
Anacoluthe
Bonjour à vous aussi !
'Jean-Philippe' nous a écrit ...
Quelqu'un a une solution ?
Mais voui, c'est /presque/ simple :-) (pour WD2002+) et on peut faire ça assez vite /sans/ macro (hein Geo :-) )
Commencez par définir une suite de caractères spécifiques marquant chaque personnage. Exemple $$$ Placez $$$ en fin de scénario pour marquer la dernière réplique. Avec un RR (Rechercher-Remplacer) + caractères génériques remplacez (*^013) de style A par $$$1 sans format Ceci place $$$ devant tout personnage : c'est plus pratique que votre mélange de styles que le RR ne sait pas gérer. Supprimez contenu et attributs de RR pour la suite.
Pour multi-sélectionner toutes les répliques de TOTO Rechercher Sans attribut + caractère générique et 'surligner les éléments trouvé dans document' $$$TOTO*$$$ Rechercher tout Notez bien l' * qui veut dire toute suite de texte Faites un copier-coller dans un document vierge et vous avez toutes les répliques de TOTO ! Par la suite vous pourrez supprimer les $$$ par RR
RR et multi-sélection qu'on vous avait dit :-)
Anacoluthe « Un gentleman, c'est quelqu'un qui sait jouer de la cornemuse et qui n'en joue pas. » - Pierre DESPROGES
bon alors je vais préciser un peu plus: mon document est un scénario de film. Dans ce scénario interviennent environ une dizaine de personnages, chacun avec un certain nombre de dialogues. Le document se présente comme ceci :
PERSONNAGE (style A) dialogueblablablablablabla (stle B)
Je veux pouvoir isoler tous les dialogues de untel ;et ce pour chacun des personnages, afin de savoir non seulement combien de fois parle tel personnage, mais également la longeur total de ses dialogues, pour savoir le timing à prévoir par comédien.
Sachant que j'ai 26 épisodes différents, et 10 personnages par épisode, je ne veux pas faire la manipulation 260 fois !
Ce que je cherche c'est à pouvoir automatiser la copie de tous les paragraphes de style "DIALOGUE" qui suivent le nom d'un personnage de style "PERSONNAGE" dans un nouveau document.
cela dit je suis intéressé pour savoir comment copier une sélection multiple trouvée par 'Rechercher' !
merci JP
Bonjour à vous aussi !
'Jean-Philippe' nous a écrit ...
Quelqu'un a une solution ?
Mais voui, c'est /presque/ simple :-) (pour WD2002+)
et on peut faire ça assez vite /sans/ macro (hein Geo :-) )
Commencez par définir une suite de caractères spécifiques
marquant chaque personnage. Exemple $$$
Placez $$$ en fin de scénario pour marquer la dernière réplique.
Avec un RR (Rechercher-Remplacer) + caractères génériques
remplacez (*^013) de style A par $$$1 sans format
Ceci place $$$ devant tout personnage : c'est plus pratique
que votre mélange de styles que le RR ne sait pas gérer.
Supprimez contenu et attributs de RR pour la suite.
Pour multi-sélectionner toutes les répliques de TOTO
Rechercher Sans attribut + caractère générique et
'surligner les éléments trouvé dans document'
$$$TOTO*$$$ Rechercher tout
Notez bien l' * qui veut dire toute suite de texte
Faites un copier-coller dans un document vierge et vous
avez toutes les répliques de TOTO !
Par la suite vous pourrez supprimer les $$$ par RR
RR et multi-sélection qu'on vous avait dit :-)
Anacoluthe
« Un gentleman, c'est quelqu'un qui sait jouer
de la cornemuse et qui n'en joue pas. »
- Pierre DESPROGES
bon alors je vais préciser un peu plus: mon document est un scénario de
film. Dans ce scénario interviennent environ une dizaine de personnages,
chacun avec un certain nombre de dialogues. Le document se présente comme
ceci :
PERSONNAGE (style A)
dialogueblablablablablabla (stle B)
Je veux pouvoir isoler tous les dialogues de untel ;et ce pour chacun des
personnages, afin de savoir non seulement combien de fois parle tel
personnage, mais également la longeur total de ses dialogues, pour savoir le
timing à prévoir par comédien.
Sachant que j'ai 26 épisodes différents, et 10 personnages par épisode, je
ne veux pas faire la manipulation 260 fois !
Ce que je cherche c'est à pouvoir automatiser la copie de tous les
paragraphes de style "DIALOGUE" qui suivent le nom d'un personnage de style
"PERSONNAGE" dans un nouveau document.
cela dit je suis intéressé pour savoir comment copier une sélection multiple
trouvée par 'Rechercher' !
Mais voui, c'est /presque/ simple :-) (pour WD2002+) et on peut faire ça assez vite /sans/ macro (hein Geo :-) )
Commencez par définir une suite de caractères spécifiques marquant chaque personnage. Exemple $$$ Placez $$$ en fin de scénario pour marquer la dernière réplique. Avec un RR (Rechercher-Remplacer) + caractères génériques remplacez (*^013) de style A par $$$1 sans format Ceci place $$$ devant tout personnage : c'est plus pratique que votre mélange de styles que le RR ne sait pas gérer. Supprimez contenu et attributs de RR pour la suite.
Pour multi-sélectionner toutes les répliques de TOTO Rechercher Sans attribut + caractère générique et 'surligner les éléments trouvé dans document' $$$TOTO*$$$ Rechercher tout Notez bien l' * qui veut dire toute suite de texte Faites un copier-coller dans un document vierge et vous avez toutes les répliques de TOTO ! Par la suite vous pourrez supprimer les $$$ par RR
RR et multi-sélection qu'on vous avait dit :-)
Anacoluthe « Un gentleman, c'est quelqu'un qui sait jouer de la cornemuse et qui n'en joue pas. » - Pierre DESPROGES
bon alors je vais préciser un peu plus: mon document est un scénario de film. Dans ce scénario interviennent environ une dizaine de personnages, chacun avec un certain nombre de dialogues. Le document se présente comme ceci :
PERSONNAGE (style A) dialogueblablablablablabla (stle B)
Je veux pouvoir isoler tous les dialogues de untel ;et ce pour chacun des personnages, afin de savoir non seulement combien de fois parle tel personnage, mais également la longeur total de ses dialogues, pour savoir le timing à prévoir par comédien.
Sachant que j'ai 26 épisodes différents, et 10 personnages par épisode, je ne veux pas faire la manipulation 260 fois !
Ce que je cherche c'est à pouvoir automatiser la copie de tous les paragraphes de style "DIALOGUE" qui suivent le nom d'un personnage de style "PERSONNAGE" dans un nouveau document.
cela dit je suis intéressé pour savoir comment copier une sélection multiple trouvée par 'Rechercher' !
merci JP
JièL Goubert
Bonjoir(c) Anacoluthe
Le 07/11/2004 22:36 vous avez écrit ceci :
et on peut faire ça assez vite /sans/ macro (hein Geo :-) )
RR et multi-sélection qu'on vous avait dit :-)
MDR
« Un AMIS, c'est quelqu'un qui sait macroter et qui ne macrote pas. » - JièL
-- JièL mort de rire
Bonjoir(c) Anacoluthe
Le 07/11/2004 22:36 vous avez écrit ceci :
et on peut faire ça assez vite /sans/ macro (hein Geo :-) )
RR et multi-sélection qu'on vous avait dit :-)
MDR
« Un AMIS, c'est quelqu'un qui sait macroter et qui ne macrote pas. »
- JièL
