How do you display 1,000,000 in text.
Ernie&Bert
following message:
Error! Number Cannot Be Represented In Specified Format.
Using Word 2007
Stefan Blom
It seems as if only numbers smaller than or equal to 999,999 can be represented
as cardinal text.
--
Stefan Blom
Microsoft Word MVP
(Message posted via NNTP)
"Ernie&Bert" <Ernie&Be...@discussions.microsoft.com> wrote in message
news:DD09614F-A18D-47FA...@microsoft.com...
Jay Freedman
--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit.
"Stefan Blom" <Stefa...@discussions.microsoft.com> wrote in message news:ORr5Gqh7...@TK2MSFTNGP06.phx.gbl...
Doug Robbins - Word MVP
' Macro created 29/09/99 by Doug Robbins
With Selection.Find
.Text = ","
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
End With
Selection.Find.Execute Replace:=wdReplaceAll
numtext$ = Int(Val(Selection.Text))
If Val(numtext$) < 1000000 Then
Selection.Delete
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.TypeText Text:="=" & Val(numtext$) & " \* CardText"
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Selection.Fields.Update
ElseIf Len(numtext$) < 10 Then
millions = Val(Left(numtext$, Len(numtext$) - 6))
Balance = Val(Right(numtext$, Len(numtext$) - Len(millions)))
Selection.Delete
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.TypeText Text:="=" & millions & " \* CardText"
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.TypeText Text:=" million "
Selection.Collapse Direction:=wdCollapseEnd
If Balance <> 0 Then
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.TypeText Text:="=" & Balance & " \* CardText"
End If
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
ActiveDocument.Fields.Update
ElseIf Len(numtext$) < 14 Then
billions = Val(Left(numtext$, Len(numtext$) - 9))
millions = Val(Mid(numtext$, Len(billions) + 1, 3))
Balance = Val(Right(numtext$, Len(numtext$) - Len(millions) -
Len(billions)))
Selection.Delete
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.TypeText Text:="=" & billions & " \* CardText"
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.TypeText Text:=" billion "
Selection.Collapse Direction:=wdCollapseEnd
If millions <> 0 Then
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.TypeText Text:="=" & millions & " \* CardText"
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.TypeText Text:=" million "
Selection.Collapse Direction:=wdCollapseEnd
End If
If Balance <> 0 Then
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.TypeText Text:="=" & Balance & " \* CardText"
End If
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
ActiveDocument.Fields.Update
End If
--
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, originally posted via msnews.microsoft.com
"Ernie&Bert" <Ernie&Be...@discussions.microsoft.com> wrote in message
news:DD09614F-A18D-47FA...@microsoft.com...
Stefan Blom
Great!
--
Stefan Blom
Microsoft Word MVP
(Message posted via NNTP)
"Doug Robbins - Word MVP" <d...@REMOVECAPSmvps.org> wrote in message
news:eQk2TRl7...@TK2MSFTNGP04.phx.gbl...
Zaigham Farooqui
Balance = Val(Right(numtext$, Len(numtext$) - Len(millions) -
Len(billions)))
Regards
Zaigham
> On Friday, May 07, 2010 3:09 PM Ernie&Bert wrote:
> I have tried both DollarText and CardText, but it errors out with the
> following message:
> Error! Number Cannot Be Represented In Specified Format.
>
> Using Word 2007
>> On Friday, May 07, 2010 3:26 PM Stefan Blom wrote:
>> It seems as if only numbers smaller than or equal to 999,999 can be represented
>> as cardinal text.
>>
>> --
>> Stefan Blom
>> Microsoft Word MVP
>> (Message posted via NNTP)
>>> On Friday, May 07, 2010 4:57 PM Jay Freedman wrote:
>>> This is a multi-part message in MIME format.
>>>
>>> ------=_NextPart_000_0012_01CAEE06.6886CE40
>>> Content-Type: text/plain;
>>> charset="Windows-1252"
>>> Content-Transfer-Encoding: 7bit
>>>
>>> Take a look at Graham Mayor's example at
>>> http://www.gmayor.com/formatting_word_fields.htm#cash_amounts_in_words,
>>> following the paragraph that begins "The method has problems with numbers
>>> over 1 million".
>>>
>>> --
>>> Regards,
>>> Jay Freedman
>>> Microsoft Word MVP FAQ: http://word.mvps.org
>>> Email cannot be acknowledged; please post all follow-ups to the newsgroup so
>>> all may benefit.
>>> It seems as if only numbers smaller than or equal to 999,999 can be
>>> represented
>>> as cardinal text.
>>>
>>> --
>>> Stefan Blom
>>> Microsoft Word MVP
>>> (Message posted via NNTP)
>>>
>>>
>>>
>>>
>>>
>>> ------=_NextPart_000_0012_01CAEE06.6886CE40
>>> Content-Type: text/html;
>>> charset="Windows-1252"
>>> Content-Transfer-Encoding: quoted-printable
>>>
>>> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
>>> <HTML><HEAD>
>>> <META content=3D"text/html; charset=3Dwindows-1252" =
>>> http-equiv=3DContent-Type>
>>> <META name=3DGENERATOR content=3D"MSHTML 8.00.6001.18904">
>>> <STYLE></STYLE>
>>> </HEAD>
>>> <BODY bgColor=3D#ffffff>
>>> <DIV><FONT size=3D2 face=3DVerdana>Take a look at Graham Mayor's example =
>>> at <A=20
>>> href=3D"http://www.gmayor.com/formatting_word_fields.htm#cash_amounts_in_=
>>> words">http://www.gmayor.com/formatting_word_fields.htm#cash_amounts_in_w=
>>> ords</A>,=20
>>> following the paragraph that begins "<SPAN class=3Dq2><FONT size=3D2 =
>>> face=3DArial>The=20
>>> method has problems with numbers over 1 =
>>> million</FONT></SPAN>".</FONT></DIV>
>>> <DIV><FONT size=3D2 face=3DVerdana><BR>-- <BR>Regards,<BR>Jay =
>>> Freedman<BR>Microsoft=20
>>> Word MVP FAQ: <A=20
>>> href=3D"http://word.mvps.org">http://word.mvps.org</A><BR>Email cannot =
>>> be=20
>>> acknowledged; please post all follow-ups to the newsgroup so all may=20
>>> benefit.</FONT></DIV>
>>> <BLOCKQUOTE=20
>>> style=3D"BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; =
>>> PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
>>> <DIV>"Stefan Blom" <<A=20
>>> =
>>> href=3D"mailto:Stefa...@discussions.microsoft.com">StefanBlom@discussio=
>>> ns.microsoft.com</A>>=20
>>> wrote in message <A=20
>>> =
>>> seems as if only numbers smaller than or equal to 999,999 can be =
>>> represented=20
>>> <BR>as cardinal text.<BR><BR>-- <BR>Stefan Blom<BR>Microsoft Word=20
>>> MVP<BR>(Message posted via NNTP)<BR><BR><BR><BR>"Ernie&Bert" =
>>> <<A=20
>>> =
>>> href=3D"mailto:Ernie&Be...@discussions.microsoft.com">Ernie&Bert@d=
>>> iscussions.microsoft.com</A>>=20
>>> wrote in message <BR><A=20
>>> =
>>> 9614F-A18D-47FA-...@microsoft.com</A>...<BR>>I=20
>>> have tried both DollarText and CardText, but it errors out with =
>>> the<BR>>=20
>>> following message:<BR>> Error! Number Cannot Be Represented In =
>>> Specified=20
>>> Format.<BR>><BR>> Using Word 2007 =
>>> <BR><BR></BLOCKQUOTE></BODY></HTML>
>>>
>>> ------=_NextPart_000_0012_01CAEE06.6886CE40--
>>>>> On Saturday, May 08, 2010 7:48 AM Stefan Blom wrote:
>>>>> Great!
>>>>>
>>>>> --
>>>>> Stefan Blom
>>>>> Microsoft Word MVP
>>>>> (Message posted via NNTP)
>>>>> Submitted via EggHeadCafe
>>>>> SQL Operations on a Text File with ADO.NET
>>>>> http://www.eggheadcafe.com/tutorials/aspnet/37ed9e1b-c5de-4c0b-afbe-d8f78f9a6ecf/sql-operations-on-a-text-file-with-adonet.aspx
Jay Freedman
>
> Balance = Val(Right(numtext$, Len(numtext$) - Len(millions) -
> Len(billions)))
>
> Regards
> Zaigham
Because the macro was posted from software that limits the length of the lines, an unwanted line break was inserted into the code. Those two lines should be one line, like this:
Balance = Val(Right(numtext$, Len(numtext$) - Len(millions) - Len(billions)))
--