Wednesday, July 05, 2006

Extracting Keywords -- Code

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!

No comments:

Post a Comment

Share on Facebook
Related Posts Plugin for WordPress, Blogger...
Download Windows Live Toolbar and personalize your Web experience! Add custom buttons to get the information you care about most.