请问如何在打开一个word文档时给该doc的属性赋值？

Question

就是当你打开网页时同时打开word(word作为编辑器)，打开word时自动将你的名字作为用户信息的姓名！！

Answer 1

以前用vbs写的一个测试
目的跟你一样，为了痕迹保留
<script language="vbscript">
Dim oWord,oDoc
      
       sub OpenDoc()
Set oWord = CreateObject("Word.Application")
oWord.Visible = true
oWord.UserName = "haha"
Set oDoc = oWord.Documents.Open("http://gqq/public/test/发文流程.doc")
                  oDoc.TrackRevisions = true
end sub
      
</script>
<input name="Open" value="Open" type="button" onclick="OpenDoc()">