Word text formatting

[Rahull]

Hi,

I need to read the text from the word document.
I am able to that... But now my requirement is to find the formatting of the searched text in word document.

e.g. Word document contains text "Test"

I need to find font type, Font size, Font name, Bold, Italic...etc of the text "Test" .

Thanks
Rahul

[Saket]

use selection object for this like SelectionObject.Font.Name

e.g

Code:

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Print objSelection.Font.Name
Print objSelection.Font.Size

[Rahull]

Thanks
Saket

[Rahull]

I am able search text in word document using 'Find & Replace functionality" but I want to select the searched text. So that I will able to find the formatting of that text only.
e.g. "This is Test" is the text available on the word document. I searched the text "Test" only and I only want to find the formatting of this word.

Please advice

Thanks
Rahul

[Saket]

if you are using Find and Replace method then when you do Find.Execute the Word Test will be selected there. you can retrieve the font info at that time

[Rahull]

Saket,

I tried same but It is displaying the default fonts....
E.g. Word contains "this is Rahul" but following code dispplay the formatting of "this" not "Rahul"

Code:

Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Open("C:\test.docx")
searchString = "Rahul"
For p = 1 To oDoc.Paragraphs.Count
    startRange = oDoc.Paragraphs(p).Range.Start
    endRange = oDoc.Paragraphs(p).Range.End
    Set tRange = oDoc.Range(startRange, endRange)
    tRange.Find.Text = searchString
    tRange.Find.Execute
    If tRange.Find.Found Then
    msgbox "Word found in the document -->"& searchString     
    End If
    Dim oSelection  
    Set oSelection = oWord.Selection  
    msgbox oSelection.Font.Name
    msgbox oSelection.Font.Size
Next
oDoc.Close
oWord.Quit
Set oDoc = Nothing
Set oWord = Nothing