Insertion image Word (remplacer texte)

Insertion image Word (remplacer texte) - VB/VBA/VBS - Programmation

Marsh Posté le 14-06-2007 à 11:53:00    

Bonjour à tous j'aimerais de l'aide...
 
Car j'aimerais remplacer du texte sous word ( un caractere préçis) par un image à un endroit préçis, mais de facon automatique via une macro ou autre...
J'ai testé quelques trucs mais sans résultat...
 
Je sais que pour rechercher est remplacer c'est ! CTRL + H
et apres on peut coller une image qu'on a copier de word auparavant en maitenant : ^c dans le champ remplacer...
Mais l'inclure dans une macro ???? c'est autre chose...
 
Merci d'avance de votre aide

Reply

Marsh Posté le 14-06-2007 à 11:53:00   

Reply

Marsh Posté le 14-06-2007 à 12:53:50    

hello,
utilise le macro recorder et travaille sur cette base :)

Reply

Marsh Posté le 14-06-2007 à 13:03:13    

J'ai utilisé le macro recorder mais avec rechercher/remplacer, cela détecte pas l'image copier pour ensuite la coller....
Car dans le code de la macro la selection de l'image n'est pas précise...

Reply

Marsh Posté le 14-06-2007 à 13:13:30    

disons surtout que le rechercher remplacer marche sur du texte... mais au moins utilise ca pour trouver les mots que tu souhaites chercher, et insere l'image. Le code récupéré sera surement exploitable

Reply

Marsh Posté le 14-06-2007 à 15:33:27    

oui avec du texte... justement c'est pour ça que le code que je recupere n'est pas valable...
Il me faudrait un code du style :
 
SI dans tout le texte {
on trouve le caractere : "a" le remplacer par file: img"c:\...." (une image)
}
SINON RIEN.
 
Mais je bloc à l'insertion d'image à la place du caractére...

Reply

Marsh Posté le 14-06-2007 à 17:32:44    

   Pour le moment j'ai ça :
 
Selection.Cut
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "+"
        .Replacement.Text = "^c"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
 
Donc j'ouvre mon document word, je glisse l'image dans le doc je la selectionne et j'execute, on dira que c'est du semi automatique...

Reply

Marsh Posté le 08-06-2011 à 11:57:28    

Si quelqu'un a une réponse pour cette macro, c'est exactement la manipulation qui m'intéresse également.
Merci !

Reply

Marsh Posté le 08-06-2011 à 21:41:25    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed