FAQ WordConsultez toutes les FAQ

Nombre d'auteurs : 20, nombre de questions : 289, dernière mise à jour : 30 mars 2017 

 
OuvrirSommaireDocumentsVBA

Trois méthodes sont utilisables Ouvrir un document existant

 
Sélectionnez
Set objDoc = Application.Documents.Open("c:\tutoriel\tuto.doc")

Ouvrir un nouveau document (basé sur le modèle normal)

 
Sélectionnez
Set objDoc = Application.Documents.Add

Ouvrir un document basé sur un autre modèle

 
Sélectionnez
Set objDoc = Application.Documents.Add( _
        Template:="C:\Program Files\Microsoft Office\Templates\Memos\Professional Memo.dot")
Créé le 3 février 2004  par bidou

Nécessite d'activer la référence "Microsoft Word xx.x Object Library".

 
Sélectionnez

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
Set WordApp = CreateObject("Word.Application")     '-- ouvre une session Word
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Add    '-- crée un nouveau document
    WordDoc.SaveAs "C:\monDocument.doc"    '-- enregistre le nouveau doc
Créé le 22 octobre 2006  par SilkyRoad

Nécessite d'activer la référence "Microsoft Word xx.x Object Library" :

 
Sélectionnez

Dim WordDoc As Word.Document
Dim WordApp As Word.Application
Dim Wb As Workbook
 
    Set Wb = Workbooks.Add(1)
    Set WordApp = New Word.Application
    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Open("monDocument.doc", ReadOnly:=True)
 
    With WordApp
        .Selection.WholeStory
        .Selection.Copy
    End With
 
    Wb.ActiveSheet.Range("A1").Select
    Wb.ActiveSheet.Paste
    WordApp.Application.Quit
    Application.CutCopyMode = False
    Wb.SaveAs "C:\copieDocument.xls"
Créé le 22 octobre 2006  par SilkyRoad

Nécessite d'activer la référence "Microsoft Word xx.x Object Library".
Pour piloter un document Word déjà ouvert , utilisez la fonction getObject :

vba
Sélectionnez

Dim WordDoc As Word.Document
 
    Set WordDoc = GetObject("monDocument.doc")
    MsgBox WordDoc.Paragraphs.Count
Créé le 22 octobre 2006  par SilkyRoad

On peut accéder aux propriétés par la collection BuiltInDocumentProperties de l'objet document

 
Sélectionnez

 
Dim objDoc As Word.Document, msg As String
 
Set objDoc = Application.Documents.Open("d:\tuto.doc")
msg = "Titre : " & objDoc.BuiltInDocumentProperties(wdPropertyTitle) & vbCrLf
msg = msg & "Auteur : " & objDoc.BuiltInDocumentProperties(wdPropertyAuthor) & vbCrLf
msg = msg & "Commentaire : " & objDoc.BuiltInDocumentProperties(wdPropertyComments) & vbCrLf
MsgBox msgDim objDoc As Word.Document, msg As String
 
Set objDoc = Application.Documents.Open("d:\tuto.doc")
msg = "Titre : " & objDoc.BuiltInDocumentProperties(wdPropertyTitle) & vbCrLf
msg = msg & "Auteur : " & objDoc.BuiltInDocumentProperties(wdPropertyAuthor) &a vbCrLf
msg = msg & "Commentaire : " & objDoc.BuiltInDocumentProperties(wdPropertyComments) & vbCrLf
MsgBox msg
 
Créé le 4 février 2004  par bidou

Il arrive souvent que Word vous pose la question : "Voulez vous enregistrer les modifications apportées au .... ?"
Ce message survient parce que la variable

 
Sélectionnez

ActiveDocument.Saved

se trouve avec une valeur False et dans ce cas, Word vous propose la sauvegarde. Si vous voulez éviter ce message, vous pouvez forcer cette valeur à True et ce message n'apparaîtra plus.

 
Sélectionnez

ActiveDocument.Saved = True

Et si vous devez choisir une procédure pour l'intégrer

 
Sélectionnez

Private Sub Document_Close()
    ActiveDocument.Saved = True
End Sub
Créé le 20 avril 2008  par Lebeau Olivier

C'est normal, elle n'existe pas. Pour gérer un document invisible dans word 97, on utilise :

 
Sélectionnez
Set objDoc = GetObject("d:\user\tuto.doc")
Créé le 4 février 2004  par bidou


Comment retrouver le chemin du modèle normal.dot sur mon ordinateur.

 
Sélectionnez

 
Public Sub normalchemin()
'Affichage du chemin du Normal.dot
MsgBox Application.NormalTemplate.Path
 
End Sub
 
Créé le 25 avril 2007  par Lebeau Olivier
  

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2013 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.