Comment faire pour copier le contenu du fichier dans Word et inversement si vous utilisez VBA

lancement de Microsoft Office Word , cliquez sur l'onglet " développeur" sur le ruban et cliquez sur " Visual Basic " à lancer la fenêtre de l'éditeur VBA. Cliquez sur le menu "Insertion " et cliquez sur "Module " pour insérer un nouveau module de code. Créer un nouveau sous-procédure : Photos

copyFileContents Private Sub ( )
2

Ajoutez le code suivant pour créer les objets de l'application Word et d'autres variables :

wrdApp As Word.application

wrdDoc As Word.Document

Dim i , r As Integer

lCntr As Integer
3

Ajoutez le code pour ouvrir le fichier texte et copiez tout son contenu à un tableau de chaînes :

MaChaîne Dim ( 10) As String

ouverte " . C \\ txt » pour l'entrée comme # 1

Do While Not EOF (1) Photos

entrée n ° 1 , MaChaîne ( lCntr )

lCntr = lCntr + 1

boucle < br >

Close # 1
4

Copiez et collez le code suivant pour ajouter le contenu du tableau dans le document Word actuel :

For i = 0 To lCntr - 1 < br >

Selection.TypeParagraph

Selection.TypeText texte: = MaChaîne ( i)

MaChaîne (i - 0 ) = ""

Next i

5

Ajoutez le code suivant pour ajouter des données au document Word actuel :

Selection.TypeParagraph

Selection.TypeText texte : = " Ces données sont en format Word " < br >

Selection.Expand wdLine
6

Tapez le code suivant pour ouvrir le fichier texte et d'ajouter au texte ajouté à l'étape précédente :

MyFile = " C: \\ < ; . nom de fichier > txt "

fn = FreeFile ()

Ouvert MyFile pour la production que fn

Ecrire # fn, Selection.Text

Fermer # fn
7

Ajoutez le code suivant pour libérer des objets Word à partir de la mémoire et de mettre fin à la procédure sous :

wrdApp.Quit

Set wrdDoc = Nothing

Set wrdApp = Nothing End Sub

8

Appuyez sur " F5" pour exécuter le code VBA.