Prev: Custom Template not listed with Standard Templates
Next: tab formatting on ruler
From: strawberryangel83 on 5 Mar 2010 13:43
i want to put a comma at the end of each word in a column in a table. how do
i do that?
From: Graham Mayor on 6 Mar 2010 01:11
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
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


"strawberryangel83" <strawberryangel83(a)discussions.microsoft.com> wrote in
message news:9B483D99-2CFD-4907-9158-B1EC165537D1(a)microsoft.com...
>i want to put a comma at the end of each word in a column in a table. how
>do
> i do that?


 | 
Pages: 1
Prev: Custom Template not listed with Standard Templates
Next: tab formatting on ruler