Hi Greg
The built-in Windows calculator has an option to include the thousands
separators: it just doesn't paste them into Word. It's one of those silly
little inconsistencies that MS like to torture us with!
Terry Farrell
: George,
:
: You should have a look at:
:
http://word.mvps.org/FAQs/General/ToolsCalculate.htm
:
: I don't know of any means to reformat the calculator
: contents. If you can wait until you are ready to
: reformat, here is a couple of macros that will reformat
: numbers in your document.
:
: Sub FormatNumbers()
:
: ' Macro created August 6, 2004 by CDR Gregory K. Maxey
:
: 'masks the decimal to prevent converting .#### to .#,###
: Selection.HomeKey wdStory
: Selection.Find.ClearFormatting
: Selection.Find.Replacement.ClearFormatting
: With Selection.Find
: .Text = ".([0-9]{4,})"
: .Replacement.Text = "zbo\1"
: .Forward = True
: .Wrap = wdFindStop
: .MatchWildcards = True
: End With
: Selection.Find.Execute Replace:=wdReplaceAll
: 'Clear Find and Replace Windows
: Call ClearFRPara
: 'Finds and reformats groups of four or more numbers
: Do
: Selection.Find.ClearFormatting
: With Selection.Find
: .Text = "<[0-9]{4,}"
: .Forward = True
: .Wrap = wdFindContinue
: .Format = False
: .MatchCase = False
: .MatchWholeWord = False
: .MatchAllWordForms = False
: .MatchSoundsLike = False
: .MatchWildcards = True
: Selection.Find.Execute
: If Selection.Find.Found = True Then
: With Selection
: .Text = Format(.Text, "#,###")
: End With
: End If
: End With
:
: Loop Until Selection.Find.Found = False
:
: Call ClearFRPara
: 'removes the decimal mask
: Selection.Find.ClearFormatting
: Selection.Find.Replacement.ClearFormatting
: With Selection.Find
: .Text = "zbo"
: .Replacement.Text = "."
: .Forward = True
: .Wrap = wdFindContinue
: .Format = False
: .MatchCase = False
: .MatchWholeWord = False
: .MatchWildcards = False
: .MatchSoundsLike = False
: .MatchAllWordForms = False
: End With
: Selection.Find.Execute Replace:=wdReplaceAll
: Selection.Collapse
: End Sub
: Sub ClearFRPara()
:
: With Selection.Find
: .ClearFormatting
: .Replacement.ClearFormatting
: .Text = ""
: .Replacement.Text = ""
: .Forward = True
: .Wrap = wdFindStop
:
: End With
:
: End Sub
:
:
: >-----Original Message-----
: >I don't know if this is a "Word" question or a "Windows"
: question. If
: >this is not the appropriate newsgroup, your re-direction
: would be
: >appreciated.
: >
: >I use Word 2000 on Windows XP.
: >
: >I do a lot of simple calculations where I go to the
: calculator, do my
: >"figgering," then Ctrl-C, Alt-Tab, and Ctrl-V the result
: into a Word
: >document.
: >
: >However, the pasted number does not carry the comma after
: the hundreds
: >place. I.e., I want 1,234.56, but I get 1234.56.
: >
: >Is there a way I can tweak the calculatore to do this, or
: can I
: >download a simple calculator to do this?
: >
: >Your assistance is greatly appreciated.
: >
: >George Lutz
: >.
: >
