Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Recalculating Prices in a word table
I need to read through a word document (Table)
The table has merged cells for Heading Part No Description Price ==================== Widgets A12344 Widget 1 £ 5.99 WA123 Widget 2 £ 6.45 Thinggies D555 Thinggy 1 £ 12.67 RT6161 Thinngy 2 £ 17.50 I need to produce a Trade Price List so say I deduct 20% from each value Can't seem to get the VALUE into a a NUMBER format !!! Sub Trade() ' ' Calculate Trade Price List ' Application.ScreenUpdating = False Dim x As Integer Dim LastRow As Long 'get used LASTROW LastRow = ActiveDocument.Tables(1).Rows.Count For x = 1 To 5 'LastRow Dim Price As Variant Dim Trade As Variant Price = Selection.Tables(1).Rows(x).Cells(3) Retail = Val(Price) * (1-0.2) MsgBox (Price & Trade) Next x End Sub |
#2
|
|||
|
|||
Use Excel.
-- Terry Farrell - Word MVP http://word.mvps.org/ "Simon" wrote in message ... :I need to read through a word document (Table) : The table has merged cells for Heading : : Part No Description Price : ==================== : Widgets : A12344 Widget 1 £ 5.99 : WA123 Widget 2 £ 6.45 : : Thinggies : D555 Thinggy 1 £ 12.67 : RT6161 Thinngy 2 £ 17.50 : : I need to produce a Trade Price List : so say I deduct 20% from each value : : Can't seem to get the VALUE into a a NUMBER format !!! : : Sub Trade() : ' : ' Calculate Trade Price List : ' : Application.ScreenUpdating = False : Dim x As Integer : Dim LastRow As Long 'get used LASTROW : LastRow = ActiveDocument.Tables(1).Rows.Count : : For x = 1 To 5 'LastRow : Dim Price As Variant : Dim Trade As Variant : Price = Selection.Tables(1).Rows(x).Cells(3) : Retail = Val(Price) * (1-0.2) : MsgBox (Price & Trade) : Next x : : End Sub : : : : |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
The WordPerfect "Reveal Codes" method is so much easier to use. | Microsoft Word Help | |||
Underscore (_) will not always display in RTF files (Word 2002). | Microsoft Word Help | |||
is word perfect compatible with office word? | Microsoft Word Help | |||
creating forms | Microsoft Word Help | |||
letters - ask/fillin | New Users |