word - konvertere tal til bogstaver

Som eks. i første omgang:

Dim tabel As Variant
Dim tal As Currency, somBogstaver As String, talStr As String
Sub TalTilBog()
    tabel = Array("nul", "en", "to", "tre", "fire", "fem", "seks", "syv", "otte", "ni")
   
Rem Test-værdier
'  tal = "100.000"
  tal = "12.345.678,90"
   
    talStr = CStr(tal)
   
    somBogstaver = udførKonv(talStr)
    MsgBox (somBogstaver)
End Sub
Private Function udførKonv(tal)
Dim k As String
Dim tegn, txt

    k = ""
   
    For f = 1 To Len(tal)
        tegn = Mid(tal, f, 1)
        kt = konv(tegn)
        If kt <> "" Then
            k = k + kt + "-"
        End If
    Next f
   
    udførKonv = Left(k, Len(k) - 1)
End Function
Private Function konv(t)
    If Asc(t) >= 48 And Asc(t) <= 57 Then
        konv = tabel(Val(t))
    Else
        konv = ""
    End If
End Function

tak for det.

hvor skal jeg indsætte denne kode ??

Selv tak.

En mulighed er, at have et felt i databasens tabel, der anvendes til brevfletningen, som "konverterer" beløbsfeltet til bogstav-udtrykket. Dette felt skal så medtages i bevfletningen.

Om det kan ske under selve brevfletningen - kan jeg ikke umiddelbart overskue p.t. - med mindre brevfletningsprocessen sker under VBA-styring. Men måske kan det lade sig gøre - prøver at undersøge det.