putting symbol at end of each word

  • Thread starter strawberryangel83
  • Start date
S

strawberryangel83

i want to put a comma at the end of each word in a column in a table. how do
i do that?
 
G

Graham Mayor

Assuming there is only one word in each cell in the column, the following
macro will put a comma after each word in the column containing the cursor.
Empty cells are ignored

Dim oCell As Cell
With Selection.Columns(1)
For Each oCell In .Cells
If Len(oCell.Range) > 2 Then
oCell.Range.InsertAfter Chr(44)
End If
Next oCell
End With

http://www.gmayor.com/installing_macro.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 

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

no underline comma 1
Alt codes 4
little macro code 7
I cannot put in the 'at' symbol. Shift 2 gives me inverted comma 1
Put parenthesis around each word in a list 1
Insert Symbol panel disaster! 1
Formatting table cells 6
Word Endnotes in Word 2007 0

Top