macro inserer fichier ds un .doc - VB/VBA/VBS - Programmation
MarshPosté le 26-03-2007 à 17:11:14
Bonjour
Comment insérer un fichier a.txt dans mon document .doc à la fin du document, le chemin du fichier à chercher doit être dynamique J'ai fait des essais de macro, en excel je sais le faire mais avec word?
Probleme *remplacer le chemin du fichier en dur par un variable *je n'arrive pas à paramétrer le range
Puis j'ai essayer une autre macro pour transformer le texte en tableau
Selection.LtrPara Selection.ConvertToTable Separator:=wdSeparateByCommas, NumColumns:=7, _ NumRows:=4, AutoFitBehavior:=wdAutoFitFixed With Selection.Tables(1) .Style = "Grille du tableau" .ApplyStyleHeadingRows = True .ApplyStyleLastRow = True .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = True End With
* comment faire une selection d'un point précis jusqu'a la fin du document * bizarement je dois faire un Selection.LtrPara pour remettre les données de gauche vers la droite il me les insére par défaut en écriture arabe, j'arrive pas à le remettre de G à D
Marsh Posté le 26-03-2007 à 17:11:14
Bonjour
Comment insérer un fichier a.txt dans mon document .doc à la fin du document, le chemin du fichier à chercher doit être dynamique
J'ai fait des essais de macro, en excel je sais le faire mais avec word?
ChangeFileOpenDirectory _
"L:\GRPORG\DI\ivo\Projet Convergence SIRH-Paie Meta4\M4SupportFiles\templates\4\"
Selection.InsertFile FileName:="a.txt", Range:="", ConfirmConversions:= _
False, Link:=False, Attachment:=False
Probleme
*remplacer le chemin du fichier en dur par un variable
*je n'arrive pas à paramétrer le range
Puis j'ai essayer une autre macro pour transformer le texte en tableau
Selection.LtrPara
Selection.ConvertToTable Separator:=wdSeparateByCommas, NumColumns:=7, _
NumRows:=4, AutoFitBehavior:=wdAutoFitFixed
With Selection.Tables(1)
.Style = "Grille du tableau"
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
* comment faire une selection d'un point précis jusqu'a la fin du document
* bizarement je dois faire un Selection.LtrPara pour remettre les données de gauche vers la droite il me les insére par défaut en écriture arabe, j'arrive pas à le remettre de G à D
Merci de votre aide