Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open("C:\Scripts\Test.doc")
Set colFields = objDoc.Fields
colFields.Update
For Each objField in colFields
Select Case objField.Type
Case 20
Set objRange = objField.Result
strUser = objRange.Text
Wscript.Echo "Last Saved By: " & strUser
End Select
Next
objWord.Visible = True
Set objDoc = objWord.Documents.Open("C:\Scripts\Test.doc")
Set colFields = objDoc.Fields
colFields.Update
For Each objField in colFields
Select Case objField.Type
Case 20
Set objRange = objField.Result
strUser = objRange.Text
Wscript.Echo "Last Saved By: " & strUser
End Select
Next
위 예제 스크립트는 작성자를 조회하는 부분인데요. 작성자의 타입은 20 입니다. 문서 소유자의 경우 17 입니다.
좀더 자세하고 워드 문서에서 지원하는 수많은 속성은 다음 문서를 참고해 보세요.
WdFieldType
http://msdn2.microsoft.com/en-us/library/Bb213727.aspx
03-TechNetB_masthead_ltr.gif
댓글 없음:
댓글 쓰기