Discussion :

[popi33370]

Bonjour,

Dans un document word, je souhaite supprimer tout le contenu puis insérer la totalité d'un fichier texte.
J'ai testé ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub ChargeFichier()
Dim FICH As Integer, LIGNE As String, NOMFICH As String
NOMFICH = "toto.txt"
 FICH = FreeFile
 Open NOMFICH For Input As #FICH
 While Not EOF(FICH)
   Line Input #FICH, LIGNE
 Wend
 Close FICH
End Sub

qui fonctionne bien mais je ne sais pas comment faire pour
- d'abord supprimer la totalité du contenu du document word ouvert
- insérer les lignes lues dans ce fichier texte (sans aucun formattage)

Ca doit être simple mais je galère ...
Merci de votre aide

[Heureux-oli]

Salut,

Je ne sais pas quel est le but de la manipulation, mais si tu utilises l'enregistreur de macro, tu obtiens ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1

Pour sélectionner et supprimer le texte d'un document.

Pour l'ajout du texte d'un fichier, il y a aussi un outils dans Word qui le fait et avec l'enregistreur, on obtient ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.InsertFile FileName:="sim_SIM_00001.txt", Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False

[popi33370]

Merci