Sub GetKeyWords()
Dim oWA As Word.Application
Dim oWD As Word.Document
Set oWD = Documents("c:\Sample.Doc")
sKeyWords = oWD.BuiltinDocumentProperties("Keywords").Value
If not oWD is nothing then set oWD = nothing
If not oWA is nothing then set oWA = nothing
End Sub
Need Business Long Distance, Voice PRI, and Business VOIP service? Compare free Long Distance Price Quotes from over 30 providers!
Showing posts with label Extract Excel Properties. Show all posts
Showing posts with label Extract Excel Properties. Show all posts
Wednesday, July 05, 2006
Subscribe to:
Posts (Atom)
Download Windows Live Toolbar and personalize your Web experience! Add custom buttons to get the information you care about most.
Posts
