

dim WordApp as Object 'Word.Application если так неинтересно или нужна скорость
dim Doc as Object 'или Document для варианта 2
set WordApp=CreateObject(Word.Application")
set doc=WordApp.Documents.Open FileName:=ActiveDocument.Path + Application.PathSeparator + "Document.doc"
doc.BuiltinDocumentProperties("keywords")=ActiveCell'уточните использование BuiltinDocumentProperties и ActieCell /Cells по справке VBA, в соответствии с вашими документамиСейчас этот форум просматривают: SemrushBot и гости: 6