bonjour j'ai une macro vba sur un fichier .DOC pour rechercher remplace
la variable <var> qui va etre saisie par le user, ça marche cot
remplacement mais pas dans l'en-tête de la page, il ne peut pa
remplacer sur l'en-tête
svp veuillez m'aider avec le code précis, car je ne suis pas un pr
dans la matiére
merci
Sub auto()
Dim vRecherche As String
Dim vRemplace As String
vRecherche = "<var>"
vRemplace = InputBox("Saisir la valeur a remplacer")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = vRecherche
.Replacement.Text = vRemplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Su
--
loveps
-----------------------------------------------------------------------
lovepsi's Profile: http://www.msusenet.com/member.php?userid=38
View this thread: http://www.msusenet.com/t-186939762
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AB
Bonjour, Va faire un tour là : http://faqword.free.fr/articles.php?lng=fr&pgf0 AB
"lovepsi" a écrit dans le message de news:
bonjour j'ai une macro vba sur un fichier .DOC pour rechercher remplacer la variable <var> qui va etre saisie par le user, ça marche coté remplacement mais pas dans l'en-tête de la page, il ne peut pas remplacer sur l'en-tête svp veuillez m'aider avec le code précis, car je ne suis pas un pro dans la matiére merci
Sub auto()
Dim vRecherche As String Dim vRemplace As String
vRecherche = "<var>" vRemplace = InputBox("Saisir la valeur a remplacer")
Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find Text = vRecherche Replacement.Text = vRemplace Forward = True Wrap = wdFindContinue Format = False MatchCase = False MatchWholeWord = False MatchWildcards = False MatchSoundsLike = False MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
-- lovepsi ------------------------------------------------------------------------ lovepsi's Profile: http://www.msusenet.com/member.php?userid87 View this thread: http://www.msusenet.com/t-1869397627
Bonjour,
Va faire un tour là :
http://faqword.free.fr/articles.php?lng=fr&pgf0
AB
"lovepsi" <lovepsi.1n2gia@no-mx.msusenet.com> a écrit dans le message de
news: lovepsi.1n2gia@no-mx.msusenet.com...
bonjour j'ai une macro vba sur un fichier .DOC pour rechercher remplacer
la variable <var> qui va etre saisie par le user, ça marche coté
remplacement mais pas dans l'en-tête de la page, il ne peut pas
remplacer sur l'en-tête
svp veuillez m'aider avec le code précis, car je ne suis pas un pro
dans la matiére
merci
Sub auto()
Dim vRecherche As String
Dim vRemplace As String
vRecherche = "<var>"
vRemplace = InputBox("Saisir la valeur a remplacer")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
Text = vRecherche
Replacement.Text = vRemplace
Forward = True
Wrap = wdFindContinue
Format = False
MatchCase = False
MatchWholeWord = False
MatchWildcards = False
MatchSoundsLike = False
MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
--
lovepsi
------------------------------------------------------------------------
lovepsi's Profile: http://www.msusenet.com/member.php?userid87
View this thread: http://www.msusenet.com/t-1869397627
Bonjour, Va faire un tour là : http://faqword.free.fr/articles.php?lng=fr&pgf0 AB
"lovepsi" a écrit dans le message de news:
bonjour j'ai une macro vba sur un fichier .DOC pour rechercher remplacer la variable <var> qui va etre saisie par le user, ça marche coté remplacement mais pas dans l'en-tête de la page, il ne peut pas remplacer sur l'en-tête svp veuillez m'aider avec le code précis, car je ne suis pas un pro dans la matiére merci
Sub auto()
Dim vRecherche As String Dim vRemplace As String
vRecherche = "<var>" vRemplace = InputBox("Saisir la valeur a remplacer")
Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find Text = vRecherche Replacement.Text = vRemplace Forward = True Wrap = wdFindContinue Format = False MatchCase = False MatchWholeWord = False MatchWildcards = False MatchSoundsLike = False MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
-- lovepsi ------------------------------------------------------------------------ lovepsi's Profile: http://www.msusenet.com/member.php?userid87 View this thread: http://www.msusenet.com/t-1869397627
