Une des premières étapes pour apprendre la programmation informatique est d'apprendre à lire à partir d'un fichier et d'ajouter du contenu à un autre , comme un document Word. VBA est un langage de programmation qui peut être utilisé dans des applications Microsoft Office pour automatiser les processus tels que la copie de données entre les fichiers . Dans VBA, vous pouvez utiliser des objets du bureau pour ouvrir des documents Word ou d'autres applications Office, vous permettant d'accéder à des programmes externes et de manipuler d'autres données . Choses que vous devez
Microsoft Office
Voir Plus Instructions
1

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.