CODEWITHSUNDEEP
vbams-word
zepeu
zepeu

Reputation: 81

Checking if a Word table's cell is empty - Empty cell containing a "marker"

This Word file has a giant table with 2 columns. I have to make a statement like: 

If theCellIsEmpty, then
    Fill it
End if

The thing is that when I get the content of the cell through:

FirstCellText = ActiveDocument.Tables(Tbl).Cell(Rw, 1).Range.Text

It doesn't get the "" I'm expecting, but it contains a sort of dot, so the text read is never empty.

Here is the dot I'd like to test for: Here is the dot I'd like to test

Moreover, I have no idea what this dot can be or where it came from. I tried to find it in the characters table without success.

Could someone explain me how to test the presence of this "end of line character" or the emptiness of the row? I don't want to check if the cell only has 1 character as if this character is something put there with a purpose, I don't want to delete it.

Also, every single line has this dot at the end...

What is it? How can I use/avoid it?

Upvotes: 1

Views: 4364

Answers (2)

macropod
macropod

Reputation: 13505

All you should need is something like:

Dim Cll As Cell
For Each Cll In ActiveDocument.Tables(1)
  With Cll.Range
    'if all it has is the end-of-cell marker, it's empty, so fill it
    If Len(.Text) = 2 Then .Text = "Filler Text"
  End With
Next

Upvotes: 1

zepeu
zepeu

Reputation: 81

Thanks for all your help, I might have a simple solution thanks to Freeman, mostly :-)

I took the ascii number of the character to check what it is (through asc(xxxx) function) and it happens to be a "carriage return" having the ascii number "13"

Therefore, so I just need check if the content of the cell gives the ascii number 13 and it's done. (the "asc(xxxxxx)" gives the ascii number of only the first character of the text chain :) )

Of course, if the cell starts with a carriage return and there is text after, it won't be nice, so checking also if the text contained in the cell is only 2 char long will be a nice thing (this "carriage return" is apparently 2 char long... strange...) :)

If  Asc(FirstCellText) = 13 and len(FirstCellText) = 2 Then

Upvotes: 2

Related Questions