VB6: Get Word Containts with Format

[Harkon]

καλησπέρα σας

χρησιμοποιώ την παρακάτω διεργασία για να διαβάσω τα περιεχόμενα ενός word document. πως μπορώ να πάρω εκτός από το κείμενο και τις μορφοποιήσεις του (bold, italic, etc)?

 

>
Dim objWord As Word.Application
Dim objDocContent As Word.Range
Dim sFileName as String

sFileName = App.Path & "\" & "email.doc"

Set objWord = New Word.Application

objWord.Visible = True

objWord.Documents.Open sFileName

Set objDocContent = objWord.ActiveDocument.Content

Dim myText as String
myText = objDocContent

objWord.Quit
Set objWord = Nothing

 

ευχαριστώ για οποιαδήποτε υπόδειξη

[Paulus]

Η μεταβλητή σου, που είναι τύπου Word.Range έχει τις ιδιότητες Bold,Italic κλπ. Η ίδια η μεταβλητή έχει τις ιδιότητες Words,Sentences οι οποίες επιστρέφουν επίσης αντικείμενα τύπου Word.Range, για περισσότερη ανάλυση... Προφανώς κάθε Word,Sentence έχει αφού είναι και αυτές τύπου Range, τις ιδιότητες Bold,Italic κλπ.