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...

Visual Basic for Applications (VBA) Forum (recent threads)

CodeKeep VBA Feed

Visual Studio Tools for Office Forum (recent threads)

Download Windows Live Toolbar and personalize your Web experience! Add custom buttons to get the information you care about most.

Office Business Applications (OBA) Team Blog

MSDN Code Gallery Published Resources For Tag VSTO Google Group