数書式 
Calc やセル、書式フィールドなどで利用できる数書式フォーマットされた文字列を単独で利用できます。
NumberFormatsSupplier 
数書式を提供するサービス。数書式を実際にフォーマットしてくれる NumberFormatter サービスで利用します。また、NumberFormats サービスをこのサービスから取得します。
oNFS = CreateUnoService("com.sun.star.util.NumberFormatsSupplier")
XNumberFormats 
数書式を保持、作成などを行うインターフェース。NumberFormatsSupplier サービスから次のようにして取得します。このインターフェースで数書式のキーなどを取得します。
oNumberFormats = oNFS.getNumberFormats()
NumberFormatter 
実際に数書式にフォーマットしてくれるサービス。attachNumberFormatsSupplier メソッドで利用する XNumberFormatsSupplier を与えてから利用します。
Sub nf_4
Dim aLocale As New com.sun.star.lang.Locale
aLocale.Language = "ja"
aLocale.Country = "JP"
oNFS = CreateUnoService("com.sun.star.util.NumberFormatsSupplier")
oNumberFormats = oNFS.getNumberFormats()
nKey = oNumberFormats.queryKey( "#,##0", aLocale, False )
oNF = CreateUnoService("com.sun.star.util.NumberFormatter")
oNF.attachNumberFormatsSupplier(oNFS)
msgbox oNF.convertNumberToString(nKey,10000)
End Sub
convertNumberToString メソッドは数値をフォーマットされた文字列に変換します。
変換後の色が必要なときには queryColorForNumber メソッドを利用します。三つ目の引数はデフォルトの色です。
msgbox oNF.queryColorForNumber(nKey,10000,0)