Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Works in Personal.xls but not in normal workbook?
Excel 2000
WinXP 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 help? Sub GetWordText() Application.ScreenUpdating = False Dim objWord As Word.Application Dim rngWordText As Word.Range Dim strTextValue As String ActiveSheet.OLEObjects(1).Activate Set objWord = GetObject(, "Word.application") Set rngWordText = objWord.ActiveDocument.Range strTextValue = rngWordText.Text With Range("a1") .Value = strTextValue .Activate End With Application.ScreenUpdating = True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Works in Personal.xls but not in normal workbook?
Correction:
I'm using Excel 2003 (not 2000) On Jun 2, 12:37 am, c mateland wrote: Excel 2000 WinXP 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 help? Sub GetWordText() Application.ScreenUpdating = False Dim objWord As Word.Application Dim rngWordText As Word.Range Dim strTextValue As String ActiveSheet.OLEObjects(1).Activate Set objWord = GetObject(, "Word.application") Set rngWordText = objWord.ActiveDocument.Range strTextValue = rngWordText.Text With Range("a1") .Value = strTextValue .Activate End With Application.ScreenUpdating = True End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Works in Personal.xls but not in normal workbook?
Never mind, thanks.
I had the Word library referenced only in Personal.xls. Once I referenced it in the normal workbook, it was successful. On Jun 2, 12:37 am, c mateland wrote: Excel 2000 WinXP 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 help? Sub GetWordText() Application.ScreenUpdating = False Dim objWord As Word.Application Dim rngWordText As Word.Range Dim strTextValue As String ActiveSheet.OLEObjects(1).Activate Set objWord = GetObject(, "Word.application") Set rngWordText = objWord.ActiveDocument.Range strTextValue = rngWordText.Text With Range("a1") .Value = strTextValue .Activate End With Application.ScreenUpdating = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VB Works in test mode, but Stops when doing normal run. | Excel Programming | |||
Excel Addin works that works on a template workbook | Excel Programming | |||
How to display as normal when workbook has been protected | Excel Worksheet Functions | |||
Workbook page is not normal size | Excel Discussion (Misc queries) | |||
Personal macro workbook and personal.xls | Excel Discussion (Misc queries) |