[Al]

How do I read the content or value of a table's cell in Word? Is there a way
to detect if a table's cell is empty or not? Thanks.

[Cindy M.]

Hi ?B?QUw=?=,

How do I read the content or value of a table's cell in Word? Is there a way
to detect if a table's cell is empty or not? Thanks.

You've posted in an end-user newsgroup, so I'm going to answer your question
literally, based on that fact: look at the cell.

If this is a programming question, I recommend you post to a programming group.
When you do, provide more information, such as the version of Word, the
programming language you're using, how to identify which table cell to check...

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail :-)

[StevenM[_2_]]

To: Al,

How do I read the content or value of a table's cell in Word? Is there
a way to detect if a table's cell is empty or not?

I assume that you meant to post this question in the VBA section and not the
general questions section where I found it.

The following macro illustrates the method of reading a value from a table
cell. Note that an empty cell will always have a length of 2 characters. And
it is often a good idea to remove those two characters from a string before
using it.

Sub IsCellEmpty()
Dim s As String
Selection.Collapse CollapseEnd
If Selection.Information(wdWithInTable) = False Then
MsgBox "The cursor must be positioned in a table."
Exit Sub
End If
s = Selection.Cells(1).Range.Text
If Len(s) = 2 Then
MsgBox "Cell is empty."
Else
s = Left(s, Len(s) - 2)
MsgBox "Cell contains: " & s
End If
End Sub

[StevenM[_2_]]

Al: How do I read the content or value of a table's cell in Word?

Cindy: Look at the cell.

But what if there is information in the cell, but the font is hidden? How
good is your eyesight? grin

Steven Craig Miller

"Cindy M." wrote:

Hi ?B?QUw=?=,

How do I read the content or value of a table's cell in Word? Is there a way
to detect if a table's cell is empty or not? Thanks.

You've posted in an end-user newsgroup, so I'm going to answer your question
literally, based on that fact: look at the cell.

If this is a programming question, I recommend you post to a programming group.
When you do, provide more information, such as the version of Word, the
programming language you're using, how to identify which table cell to check...

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail :-)

[Al]

Thanks for the help. You're right, being a novice (at posting) I posted to
wrong area. I meant for the VBA area. My goal is to search for first empty
cell in a table without using selection but within a tight loop (for speed).
Once found then I would move the selection to that cell. However, I can't
get VBA to allow me to directly test the cell contents or tell me whether the
cell is empty or not. Any further assistance will be appreciated too.

AL

"StevenM" wrote:

To: Al,

How do I read the content or value of a table's cell in Word? Is there
a way to detect if a table's cell is empty or not?

I assume that you meant to post this question in the VBA section and not the
general questions section where I found it.

The following macro illustrates the method of reading a value from a table
cell. Note that an empty cell will always have a length of 2 characters. And
it is often a good idea to remove those two characters from a string before
using it.

Sub IsCellEmpty()
Dim s As String
Selection.Collapse CollapseEnd
If Selection.Information(wdWithInTable) = False Then
MsgBox "The cursor must be positioned in a table."
Exit Sub
End If
s = Selection.Cells(1).Range.Text
If Len(s) = 2 Then
MsgBox "Cell is empty."
Else
s = Left(s, Len(s) - 2)
MsgBox "Cell contains: " & s
End If
End Sub

[StevenM[_2_]]

To: Al,

My goal is to search for first empty cell in a table without using
selection but within a tight loop (for speed). Once found then I would move
the selection to that cell. However, I can't get VBA to allow me to directly
test the cell contents or tell me whether the cell is empty or not.

Perhaps something like:

Sub CheckFirstCell()
Dim i As Long

If ActiveDocument.Tables.count = 0 Then Exit Sub
For i = 1 To ActiveDocument.Tables.count
If Len(ActiveDocument.Tables(i).Range.Cells(1).Range. Text) = 2 Then
MsgBox "First cell in table #" & i & " is empty."
Else
MsgBox "First cell in table #" & i & " is NOT empty."
End If
Next i
End Sub

Steven Craig Miller

[Al]

Steven:
Many thanks. It works great!

AL

"StevenM" wrote:

To: Al,

My goal is to search for first empty cell in a table without using
selection but within a tight loop (for speed). Once found then I would move
the selection to that cell. However, I can't get VBA to allow me to directly
test the cell contents or tell me whether the cell is empty or not.

Perhaps something like:

Sub CheckFirstCell()
Dim i As Long

If ActiveDocument.Tables.count = 0 Then Exit Sub
For i = 1 To ActiveDocument.Tables.count
If Len(ActiveDocument.Tables(i).Range.Cells(1).Range. Text) = 2 Then
MsgBox "First cell in table #" & i & " is empty."
Else
MsgBox "First cell in table #" & i & " is NOT empty."
End If
Next i
End Sub

Steven Craig Miller