Insérer un tableau dans word depuis macro exc
Résolu/Fermé
A voir également:
- Insérer un tableau dans word depuis macro exc
- Tableau croisé dynamique - Guide
- Tableau word - Guide
- Insérer signature word - Guide
- Macro word - Guide
- Insérer une vidéo dans powerpoint - Guide
2 réponses
thev
Messages postés
1873
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
28 septembre 2024
688
31 janv. 2009 à 01:13
31 janv. 2009 à 01:13
Sub Word()
Dim docWord As Object
' Création d'un nouveau document :
Set docWord = CreateObject("Word.Document")
' Ecriture d'un petit texte dans ce nouveau document :
docWord.Content.Text = "Test de fonctionnement"
' Insérer un petit tableau en fin de document :
Set contenu = docWord.Content
contenu.Collapse Direction:=wdCollapseEnd
docWord.Tables.Add Range:=contenu, NumRows:=3, NumColumns:=4
' Sauvegarde de ce document ainsi créé :
docWord.SaveAs "C:\Simple test.doc"
' Fermeture de ce document :
docWord.Close
Set docWord = Nothing
End Sub
Dim docWord As Object
' Création d'un nouveau document :
Set docWord = CreateObject("Word.Document")
' Ecriture d'un petit texte dans ce nouveau document :
docWord.Content.Text = "Test de fonctionnement"
' Insérer un petit tableau en fin de document :
Set contenu = docWord.Content
contenu.Collapse Direction:=wdCollapseEnd
docWord.Tables.Add Range:=contenu, NumRows:=3, NumColumns:=4
' Sauvegarde de ce document ainsi créé :
docWord.SaveAs "C:\Simple test.doc"
' Fermeture de ce document :
docWord.Close
Set docWord = Nothing
End Sub
12 nov. 2019 à 07:26