Error when using find/replace method in an embedded Word document in Excel VBA

Question

I have an embedded word document in my worksheet, names "Rec1"

So using before:

Sub ReplaceTextinOLEObject
    Dim oDoc As OLEObject
    Set oDoc = Worksheets("Sheet1").OLEObjects("Rec1")
    oDoc.Activate
    With oDoc.Content.Find
        .ClearFormatting
        .Text = "hi"
        .Replacement.ClearFormatting
        .Replacement.Text = "hello"
        .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
    End With
    Word.Application.Quit wdDoNotSaveChanges
End Sub

When perform running above, the With part committed below error:

Run-time error '438':
object doesn't support this property or method

What is the problem of the using Find object for OLE embedded word documents?

Pᴇʜ · Accepted Answer · 2018-03-28 06:56:53Z

The issue here is that the OLEObjects has no .Content property. That is also what the error tells you.

Therefore you have to use oDoc.Object.Content.Find instead. And you don't need to oDoc.Activate the document, it will also work without.

The following should work:

Public Sub ReplaceTextinOLEObject
    Dim oDoc As OLEObject
    Set oDoc = Worksheets("Sheet1").OLEObjects("Rec1")
    'oDoc.Activate 'remove this line, activate is not needed here
    With oDoc.Object.Content.Find
        .ClearFormatting
        .Text = "hi"
        .Replacement.ClearFormatting
        .Replacement.Text = "hello"
        .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
    End With
    Word.Application.Quit wdDoNotSaveChanges
End Sub

Note: Of course the "Microsoft Word 16.0 Object Library" (version may vary) needs to be referenced to run this code.

Collectives™ on Stack Overflow

Error when using find/replace method in an embedded Word document in Excel VBA

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related