Discussion :

[newbie-sorry]

HELLO WORLD
j'espère ne pas me tromper d'endroit pour poser cette question.
tout d'abord soyez indulgent je commence depuis une semaine à me creuser les meninges dans ce nouveau monde pour moi qu'est la programmation.
je rentre dans le vif du sujet.
j'ai réussi à trouver sur le web une macro pour remplacer des mots suivant une liste de mots contenu dans un fichier .txt
le fichier .txt se compose de la forme suivante .

tata,tutu
toto,titi

sous Word la macro me permet de remplacer automatiquement les mots avec le fichier texte que je choisi.
Au boulot, mon prédécesseur a fait installer VIsual Sutdio 2008. pendant mon temps libre j'ai farfouiller et j'ai remarquer toutes les possibilités offertes par
ce logiciel.
j'ai créer un wpf pour me créer deux text box
la première m affiche mon fichier texte avec ma liste de mots
je voudrais adapter le code ci après que j ai sous word pour créer une appli qui me permette de faire exactement la même chose mais cette fois ci directement avec un executable.

voici le code à adapter

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
Sub RemplaFich()
 
Dim oFSO As New FileSystemObject
Dim oFS
 
Set oFS = oFSO.OpenTextFile("c:\temp\mots.txt")
Do Until oFS.AtEndOfStream
stext = oFS.ReadLine
mot = Split(stext, ",")
 
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = mot(0)
        .Replacement.Text = mot(1)
        .Forward = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
Loop
'
End Sub

******
ce code a été trouvé sur un site similaire et a été posté par jjjjulious
rendons à César ...
******

je vous remercie par avance pour votre aide

[newbie-sorry]

rendons vraiment à César je me suis trompé de nom pour le concepteur de cette macro
c est catfish

je commence déjà bien moi ... quand je disais dans ma présentation que j allais trop vite et que mes neurones étaient surchargées d info lol