View Single Post
  #3   Report Post  
Posted to microsoft.public.word.tables
DeanH DeanH is offline
external usenet poster
 
Posts: 1,862
Default In Word 2003 how to insert characters before all cell markers

Hi Macropod.
Again a very nice little macro set.
Question though, how can the first macro be changed to deal with any and all
tables within a document not just selected cells, and also have the text to
be inserted preset?
Many thanks
DeanH

"macropod" wrote:

Hi MathKing,

You could add text to the end of each selected cell via a macro like:
Sub AddDemo()
Dim oCel As Cell, StrTxt As String
StrTxt = InputBox("What is the text to insert at the end of each selected cell")
For Each oCel In Selection.Cells
oCel.Range.InsertAfter (StrTxt)
Next
End Sub

Similarly, you can delete the last character with:
Sub DelDemo()
Dim oCel As Cell, lStr As Long
For Each oCel In Selection.Cells
lStr = oCel.Range.Characters.Count
If lStr 1 Then oCel.Range.Characters(lStr - 1).Delete
Next
End Sub

--
Cheers
macropod
[Microsoft MVP - Word]


"MathKing" wrote in message ...
I want to insert a character before the cell marker in many cells in a table.
I can't use the find and replace feature. There must be a way to do this (or
to delete a character before every cell marker). Can someone help me?