Numberic formatting in table cells

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

kdw - 30 Nov 2005 18:19 GMT

How do I apply currency formatting to an entire column or individual cells in
a table through VBA?

I have used the method in Ken Getz's book on converting a recordset in
Access to a Word table using

.InsertAfter varData
Set objTable = .convertToTable()

Everything works great except that the values in one of the columns should
be currency. I can not find the proper method(s) to format the column.

I am using this through automation from Access.

Thank you!

Reply to this Message

Doug Robbins - Word MVP - 30 Nov 2005 21:31 GMT

Dim i As Long, curange As Range
With ActiveDocument.Tables(1)
For i = 1 To .Rows.Count
Set curange = .Cell(i, 1).Range
curange.Text = Format(Val(curange.Text), "$#,###.00")
Next i
End With

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

> How do I apply currency formatting to an entire column or individual cells
> in
[quoted text clipped - 12 lines]
>
> Thank you!

Reply to this Message

kdw - 30 Nov 2005 22:18 GMT

With the exception of having to specify curange as Word.Range since I am
calling this in Acess, this works perfectly! Just what I am looking for.
Thank you Doug!

> Dim i As Long, curange As Range
> With ActiveDocument.Tables(1)
[quoted text clipped - 20 lines]
> >
> > Thank you!

Reply to this Message

Rate this thread: