| | 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")
|
|
| | 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")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
WordDoc.SaveAs "C:\monDocument.doc"
|
|
| | 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"
|
|
| | 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
|
|
| | 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
|
|
| | 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
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
|
|
Consultez les autres F.A.Q's
Les sources présentés sur cette pages sont libre de droits,
et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs.
Copyright ©2008
Developpez LLC. Tout 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'à 3 ans
de prison et jusqu'à 300 000 E de dommages et intérets.
Cette page est déposée à la SACD.
|
