Finding location in Word works from Word but not from Excel

**teylyn** · 12-03-2008, 06:54 PM

Hi Wayne,

my first hunch: in the Excel VBA Editor go Tools - References and check the box for

Microsoft Word 11.0 Object Library

The 11.0 is for Office 2003, if you're using a different version it will be a different number.

cheers

**wayneh** · 12-03-2008, 07:04 PM

Thanks for that thought Teylyn
I have Word 11 referenced as well as Excell 11, Office 11, VB for Applications and OLE Automation
Do I need all these ?
Thanks

Wayne

**wayneh** · 12-04-2008, 04:32 PM

Becuase I was running the macro in Excel I had to qualify the Selection methods as Word - not Excel
This code works from Excel

Wayne

Sub WhereAreWe()

' Works in Excel

Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oRange As Word.Range
Dim oSelection As Word.Selection
Dim TableIndex, CurrentRow, CurrentColumn, NoOfTables As Integer

Set oWord = GetObject(, "Word.Application")

Set oDoc = oWord.ActiveDocument

NoOfTables = oDoc.Tables.Count

' Which table are we in ?
' Range from Table(1) to position of Cursor
Set oRange = oDoc.Range(0, oWord.Selection.Tables(1).Range.End)

' Count number of tables in range (= index of table that Cursor is in

TableIndex = oRange.Tables.Count

' Which cell in this table ?
CurrentRow = oWord.Selection.Information(wdStartOfRangeRowNumber)
CurrentColumn = oWord.Selection.Information(wdStartOfRangeColumnNumber)

MsgBox "Table Number: " & CStr(TableIndex) & vbCrLf _
& "Row Number: " & CStr(CurrentRow) & vbCrLf _
& "Column Number: " & CStr(CurrentColumn)

End Sub