Hello all
I am using this to transfer one document into another via MS access (assume declarations).
Code:
Set SourceDoc = WrdApp.Documents.Open(strDocumentLocation, ReadOnly:=True, Visible:=False)
WrdTbl.Cell(1, 1).Range.FormattedText = SourceDoc.Range.FormattedText
However, I am finding it more efficient for the size of my documents to embed into an OLE field, and work with small documents there (for the project I am working on)
But now, I am attempting to transfer the word text and formatting from an OLE object (word) back into a word document.
e.g.
WrdTbl.Cell(1, 1).Range.FormattedText = OLEObject.formattedText
This wont work, so I'm wondered what the syntax is to make it work.
I also tried:
Code:
Dim FrmMyForm As Form Set FrmMyForm = Forms!Frm_MyOLEForm.Form
With FrmMyForm.OLEControl
WrdTbl.Cell(1, 1).Range = .Object.Content
End With
Also
Code:
RecSet!OLEField.Object.Content
And
Code:
Set MyOLEObject = me.OLEControl
WrdTbl.Cell(1, 1).Range = MyOLEObject.Range.FormattedText
This last one works to copy the content, but not formatted (despite the Range.FormattedText)
I'm not finding help from google, so here I am.
Any helpful advice or links appreciated.