Skrive til egenskaberne i et word dok

Denne makro ændre en wordfils titel fra Excel, så mon ikke noget lignende kan lade sig gøre fra Access? Jeg kan desværre ikke undersøge det, da jeg ikke sidder ved min egen pc.

Sub test()

Set wrd = CreateObject("Word.Application")
wrd.Visible = True
wrd.Documents.Open "C:StiTilDenØnskede\Fil.doc"
Set oDoc = wrd.Documents("Fil.doc")
Set oBuiltInProps = oDoc.BuiltinDocumentProperties("Title")
oBuiltInProps = "Ny titel"

strValue = oBuiltInProps
MsgBox ("Filen hedder nu: " & strValue)
wrd.Quit (wdSaveChanges)
Set wrd = Nothing
   
End Sub

Hvis du med egenskaber mener de der metadat som: Emne, titel, forfatter osv. som man kan se i stifinderen efter filnavnet så ja.

Jeg har ikke den store erfaring selv, men jeg ved at man kan benytte DSOfile.
Det er en fil, der skal installeres inden det kan lade sig gøre.
jeg kan desværre ikke hjælpe med koden, men det er der måske andre, der kan.

Du kan evt se mere på Microsofts hjemmeside eller det her link: http://word.mvps.org/FAQs/MacrosVBA/DSOFile.htm

Er usikker på, om du får lov til at ændre de indbyggede; men du kan oprette dine egne:

Dim myword As Word.Application

Sub Test_Ret_Properties()
  Set myword = CreateObject("Word.Application")
 
  With myword
    .Visible = True
    .Activate
    .WindowState = 1
 
    .Documents.Open FileName:="C:\Temp\Test.doc"
   
    Call SetDocProperty("Forfatter", "Anders And")
    Call SetDocProperty("Titel", "Mit liv som and")
  End With
  Set myword = Nothing
End Sub

Sub SetDocProperty(PropName As String, PropVal As String)
  On Error Resume Next
  With myword
    .ActiveDocument.CustomDocumentProperties(PropName).Delete
    .ActiveDocument.CustomDocumentProperties.Add Name:=PropName, LinkToContent:=False, Value:=PropVal, Type:=4
  End With
  On Error GoTo 0
End Sub

... men i øvrigt ser kaspers forslag da sundt ud  ;o)

Tak for deltagelse.

.. og tak for point