I am able to import an entire word document and put it in a shapes text box (not a userform texbox).
But...I can only manage to bring in the text--I'm losing all bolding/italics/etc. Can some one clue me on how to bring in all that formatting with the word data?
The below method puts the word data in the clipboard, then sets the textbox contents to the clipboard via the clipboard contents object's gettext method. Works fine if all I needed was the unformatted text...
If I manually paste the data that the below code puts in the clipboard, btw--it does show the formatting. So I know it's there, just don't know how to get it out into my non-userform textbox.
But...I can only manage to bring in the text--I'm losing all bolding/italics/etc. Can some one clue me on how to bring in all that formatting with the word data?
The below method puts the word data in the clipboard, then sets the textbox contents to the clipboard via the clipboard contents object's gettext method. Works fine if all I needed was the unformatted text...
If I manually paste the data that the below code puts in the clipboard, btw--it does show the formatting. So I know it's there, just don't know how to get it out into my non-userform textbox.
VBA Code:
Dim MyDataObj As New DataObject
Set docAppl = CreateObject("Word.Application")
Set docMyDoc = CreateObject("Word.document")
Set docMyDoc = Documents.Open("my_word_doc.docx", Visible = False)
With docMyDoc
.Range(Start:=0, End:=.Characters.count).Copy
MyDataObj.GetFromClipboard
ActiveSheet.Shapes("Textbox1").TextFrame.Characters.Text = MyDataObj.GetText()
End With
