Insert Symbol into table cell

H

hals_left

How do I insert symbols into a table cell? The follwoing code fails
because its not a simple selection.

Thanks
hals_left

With ActiveDocument.Tables(2).Rows(1)
.Cells(j).Select
Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3842,
Unicode:=True
End With
 
H

Helmut Weber

Hi,
make sgure, that the selection doesn't contain
the end-of-cell mark. like

With ActiveDocument.Tables(1).Rows(1)
.Cells(1).Select
Selection.End = Selection.End - 1
Selection.InsertSymbol _
Font:="Wingdings", CharacterNumber:=-3842, _
Unicode:=True

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA-Table Word 2019 - Move a selected text, from a cell to the adjacent cell to its right, by pressing the ENTER key 0
Insert symbol into cell in table 4
HOW TO - put "ticks" instead of the X check box in your Word forms 0
Putting an image in a table cell 2
How can insert acute accent for selection of character into word? 3
Which checkbox is checked, which isn't? 2
Need help with macro to insert a symbol character 3
Insert Index into a Table 1

Top