Formulas in Word Tables

G

Guest

Terry,
After 3 tries I got the ToolsCalculate into the Tools
menu. Nothin. (P.S. How do I remove it from the toolbar
where it now resides twice?)

What I'm trying to do is create a blank purchase
requisition form where in one cell you can put the
quantity; in the next cell to the right the price per
each; and have the next cell to the right give the total.
 
G

Greg Maxey

Right click the menu and click customize. Drag the Calculate icon off the
menu and drop it in the document.

For your form requirement see:
You should get a good start here and the linked articles by Dian Chapman:

http://word.mvps.org/faqs/customization/FillinTheBlanks.htm

That link will show you how to set up forms.

Your basic calculation is:

A1 B1 C1
5 $2.00 {=(a1*b1)}

The field code braces { } are entered with CTRL+F9. Toggle the field code
to display the result with ALT+F9. When a change is made, you can update
the field by selecting the field and pressing F9, or update all fields by
pressing CTRL+a (selects all) and pressing F9, toggling to and from print
preview (if "Update Fields" is checked in the File>Print>Options dialog
box), or running a macro something like:

Sub UpdateFields()
Dim oStory As Range
For Each oStory In ActiveDocument.StoryRanges
oStory.Fields.Update
If oStory.StoryType <> wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
End If
Next oStory
Set oStory = Nothing
End Sub
 
G

Guest

Excellent. Thanks very much.
-----Original Message-----
Right click the menu and click customize. Drag the Calculate icon off the
menu and drop it in the document.

For your form requirement see:
You should get a good start here and the linked articles by Dian Chapman:

http://word.mvps.org/faqs/customization/FillinTheBlanks.h tm

That link will show you how to set up forms.

Your basic calculation is:

A1 B1 C1
5 $2.00 {=(a1*b1)}

The field code braces { } are entered with CTRL+F9. Toggle the field code
to display the result with ALT+F9. When a change is made, you can update
the field by selecting the field and pressing F9, or update all fields by
pressing CTRL+a (selects all) and pressing F9, toggling to and from print
preview (if "Update Fields" is checked in the File>Print>Options dialog
box), or running a macro something like:

Sub UpdateFields()
Dim oStory As Range
For Each oStory In ActiveDocument.StoryRanges
oStory.Fields.Update
If oStory.StoryType <> wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
End If
Next oStory
Set oStory = Nothing
End Sub


--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.




.
 

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

Top