Az otthoni gépeden egy word dokumentumba tedd be az alábbi makrókat (persze a megfelelő értékekkel kiegészítve) és a munka befejeztével engedd rá arra a fájra, amiben dolgoztál:

 

'Title = wdPropertyTitle
'Subject = wdPropertySubject
'Author = wdPropertyAuthor
'Manager = wdPropertyManager
'Company = wdPropertyCompany
'Category = wdPropertyCategory
'Keywords = wdPropertyKeywords
'Comments = wdPropertyComments
'Hyperlink base = wdPropertyHyperlinkbase

 

'---------------------------------------------------------------

' az Adatlap adatainak lekérdezése

'---------------------------------------------------------------

 

Sub WordAdatlapInfo()
Dim dp As Object

 

  If Documents.Count > 0 Then
    Set dp = ActiveDocument.BuiltInDocumentProperties
    MsgBox dp(wdPropertyTitle) & Chr(10) & _
           dp(wdPropertySubject) & Chr(10) & _
           dp(wdPropertyAuthor) & Chr(10) & _
           dp(wdPropertyManager) & Chr(10) & _
           dp(wdPropertyCompany) & Chr(10) & _
           dp(wdPropertyCategory) & Chr(10) & _
           dp(wdPropertyKeywords) & Chr(10) & _
           dp(wdPropertyComments) & Chr(10) & _
           dp(wdPropertyHyperlinkBase)
  End If

End Sub

 

'---------------------------------------------------------------

' ezt kell kiegészíteni a céges adatokkal

'---------------------------------------------------------------

 

Sub WordAdatlapBeallitas()
Dim dp As Object

 

If Documents.Count > 0 Then
    Set dp = ActiveDocument.BuiltInDocumentProperties
    dp("Author") = "Gipsz Jakab az új szerző"
    dp("KeyWords") = "ez az új keresőszó"

    ' és így tovább...
    ActiveDocument.Save
  End If
 
End Sub