Which Word table am I in? 1

[Bruce18W]

I'd like to develop a Word VBA function to highlight selected parts of a table (e.g., a row, column, etc.). I'd like to place the cursor anywhere in a table and then run the function (macro). One of the first steps in coding is to define a table object for the table that I am in. I see lots of info for manipulating a table that's already defined, e.g., tbl.Delete, but how do I set a table object to reference the table the cursor is in?

Thanks!

 

[Bruce18W]

I just found the solution - Writing Word Macros by Roman is fantastic, dense, but fantastic. Here's the code if anyone else is interested:

Sub TableDelete()

Dim rng As Range, tbl As Table

Selection.Range.Expand wdTable
Set rng = Selection.Range
Set tbl = rng.Tables(1)
tbl.Delete
End Sub

 

[macropod]

Hi Bruce,

Your solution is over-engineered:

Sub Demo()
Selection.Tables(1).Delete
End Sub

and, even with error-checking (always good practice):

Sub Demo()
If Selection.Information(wdWithInTable) Then Selection.Tables(1).Delete
End Sub

Cheers
Paul Edstein
[MS MVP - Word]

 

[Bruce18W]

Hi, please note that in my original query I am not trying to delete the table - just to get a reference to it. The "solution" (albeit over-engineered) that I submitted gets the reference. I should have left out the bit about deleting the table. But thanks for the tip about how to delete a table, with error checking.

Bruce

 

[SkipVought]

the reference to it is...

with Selection.Tables(1)
'do something here with this object

end with

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}