Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2724 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  automatisation word

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

automatisation word

n°1929898
jfr31
Posté le 07-10-2009 à 17:23:22  profilanswer
 

Bonjour
J'ai bricolé ce petit pg afin d'incorporer des fichiers rtf d'un
répertoire donné dans un document word.
J'aimerais pouvoir faire le même chose pour tous les fichiers pdf et
xls du répertoire.
Merci pour les idées.
 
Private Sub CommandButton1_Click()
'Dim AppWord As word.Application
'Dim DocWord As word.Document
Debug.Print Application.ActiveDocument.FullName
 
With ActiveDocument
 
    Debug.Print .Path
 
   ' ActiveWindow.Caption = AppWord.ActiveDocument.FullName
End With
ActiveWindow.Caption = ActiveDocument.Path
 
 Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
        := _
        "Requête Etat compatibilité contrat.rtf" _
        , LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINNT\Installer
\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
         IconIndex:=1, IconLabel:="Requête Etat compatibilité
contrat.rtf"
    Selection.TypeText Text:=vbTab
    Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
        := _
        "Requête Etat compatibilité_ot_ar.rtf" _
        , LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINNT\Installer
\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
         IconIndex:=1, IconLabel:="Requête Etat
compatibilité_ot_ar.rtf"
    Selection.TypeText Text:=vbTab
End Sub

mood
Publicité
Posté le 07-10-2009 à 17:23:22  profilanswer
 

n°1937788
produvba
Posté le 04-11-2009 à 18:49:28  profilanswer
 

Utiliser Filesearch c'est fait pour sélectionner tous les fichiers correspondant à une extension donnée par exemple !


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  automatisation word

 

Sujets relatifs
automatisation wordAutomatisation publipostage Word: dernier enregistrement excel
[Word]Remplir un document a partir d'une userform[Word] passage 2007
Copier un paragraphe sur une autre page Word si le tableau contien TOTUtiliser le Menu de Word
[VBA] une vidéo sous word???VB word drag n' drop
Publipostage WORD, automatisation et sélection 
Plus de sujets relatifs à : automatisation word


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR