IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)

FAQ Word

logo
Sommaire > VBA > Documents
        Comment ouvrir un document ?
        Comment créer un nouveau document Word ?
        Comment importer la totalité d'un document Word dans une feuille Excel ?
        Comment piloter un document Word déjà ouvert ?
        Peut on récupérer les propriétés du document (auteur, titre) ?
        Comment éviter la question 'Voulez vous sauvegarder ...' ?

rechercher
precedent    sommaire    suivant    telechargermiroir


Comment ouvrir un document ?
auteur : bidou
Trois méthodes sont utilisables Ouvrir un document existant
Set objDoc = Application.Documents.Open("c:\tutoriel\tuto.doc")
Ouvrir un nouveau document (basé sur le modèle normal)
Set objDoc = Application.Documents.Add
Ouvrir un document basé sur un autre modèle
Set objDoc = Application.Documents.Add(Template:="C:\Program Files\Microsoft Office\Templates\Memos\Professional Memo.dot")

Comment créer un nouveau document Word ?
auteur : SilkyRoad
Nécessite d'activer la référence "Microsoft Word xx.x Object Library".
vba

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

Comment importer la totalité d'un document Word dans une feuille Excel ?
auteur : SilkyRoad
Nécessite d'activer la référence "Microsoft Word xx.x Object Library" :
vba

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"

Comment piloter un document Word déjà ouvert ?
auteur : 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

Dim WordDoc As Word.Document

    Set WordDoc = GetObject("monDocument.doc")
    MsgBox WordDoc.Paragraphs.Count

Peut on récupérer les propriétés du document (auteur, titre) ?
auteur : bidou
On peut accéder aux propriétés par la collection BuiltInDocumentProperties de l'objet document
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) & vbCrLf
msg = msg & "Commentaire : " & objDoc.BuiltInDocumentProperties(wdPropertyComments) & vbCrLf
MsgBox msg

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

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.

ActiveDocument.Saved = True
Et si vous devez choisir une procédure pour l'intégrer

Private Sub Document_Close()
    ActiveDocument.Saved = True
End Sub

rechercher
precedent    sommaire    suivant    telechargermiroir

Consultez les autres F.A.Q's


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 ni 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.