Word VBA Help

[Dana King]

I need to write a utility (in .net) that will iterate though a word document
and extract words with bold formatting. These will go into a database. No
problem except I'm not sure about writing the VBA to find bold words in a
document.

Has anyone done this before? Could you post some sample code?

Thanks in advance.

 

[Dave Lett]

Hi,

This will get you started:

Dim sBold As String
With Selection
.HomeKey Unit:=wdStory
With .Find
.ClearFormatting
.Text = ""
.Font.Bold = True
Do While .Execute
sBold = sBold & Replace(Trim(Selection.Text), Chr(13), "") &
vbCrLf
Loop
End With
End With
Debug.Print sBold

I use the Replace function to remove any boldface hard returns.

HTH,
Dave

 

[Dana King]

Hey Dave, thanks so much, that's just what I needed.

cheers!