Works in Personal.xls but not in normal workbook?


c mateland

Excel 2000
VBA References activated:
Visual Basic for Applications
Microsoft Excel 11.0 Object Library
OLE Automation
Microsoft Office 11.0 Object Library
Microsoft Word 11.0 Object Library

The following code simply transcribes into cell A1 the text from an
embedded Word object. It compiles without error and runs correctly
when ran from my Personal.xls on the active workbook. But it gives a
compile error when placed in in a module within a normal workbook.

I need it to run in a normal workbook from within its module. Any

Sub GetWordText()
Application.ScreenUpdating = False
Dim objWord As Word.Application
Dim rngWordText As Word.Range
Dim strTextValue As String
Set objWord = GetObject(, "Word.application")
Set rngWordText = objWord.ActiveDocument.Range
strTextValue = rngWordText.Text
With Range("a1")
.Value = strTextValue
End With
Application.ScreenUpdating = True
End Sub

c mateland

Never mind, thanks.

I had the Word library referenced only in Personal.xls. Once I
referenced it in the normal workbook, it was successful.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question