title image


Smiley TIPP: Word-Dokumenteigenschaften ermitteln...
das geht im Prinzip so:



Public Function ShowWordDocProps(Optional FName As String = "I:\Samples\TestText.doc")

Dim oWord As New Word.Application, oDoc As Word.Document, Itm, Tmp

Set oDoc = oWord.Documents.Open(FileName:=FName, ReadOnly:=True)

Tmp = ""

For Each Itm In oDoc.BuiltInDocumentProperties

On Error Resume Next

Tmp = Itm.value

Debug.Print Itm.Name, Tmp

On Error GoTo 0

Next

oWord.Quit SaveChanges:=False

End Function







Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: