salve
non sapendo come si sviluppa la tua tabella. ti posto un esempio di come si può fare quello che chiedi.
considerata uno scenario come quello in immagine allegata:
copia la macro che segue in modulo standard di Vba:
Code:
Sub TestTabella()
With ActiveDocument.Tables(1)
x = .Cell(1, 1).Range.Text
End With
giorno = Left(x, 2)
mese = Mid(x, 4, 2)
anno = Mid(x, InStr(4, x, "/") + 3, 2)
Select Case giorno
Case "01"
GG = "Uno"
Case "02"
GG = "Due"
Case "03"
GG = "Tre"
Case "04"
GG = "Quattro"
Case "05"
GG = "Cinque"
Case "06"
GG = "Sei"
Case "07"
GG = "Sette"
Case "08"
GG = "Otto"
Case "09"
GG = "Nove"
Case "10"
GG = "Dieci"
Case "11"
GG = "Undici"
Case "12"
GG = "Dodici"
Case "13"
GG = "Tredici"
Case "14"
GG = "Quattrodici"
Case "15"
GG = "Quindici"
Case "16"
GG = "Sedici"
Case "17"
GG = "Diciassette"
Case "18"
GG = "Diciotto"
Case "19"
GG = "Diciannove"
Case "20"
GG = "Venti"
Case "21"
GG = "Ventuno"
Case "22"
GG = "Ventidue"
Case "23"
GG = "Ventitre"
Case "24"
GG = "Ventiquattro"
Case "25"
GG = "Venticinque"
Case "26"
GG = "Ventisei"
Case "27"
GG = "Ventisette"
Case "28"
GG = "Ventotto"
Case "29"
GG = "Ventinove"
Case "30"
GG = "Trenta"
Case "31"
GG = "Trentuno"
End Select
Select Case mese
Case "01"
mm = "Gennaio"
Case "02"
mm = "Febbraio"
Case "03"
mm = "Marzo"
Case "04"
mm = "Aprile"
Case "05"
mm = "Maggio"
Case "06"
mm = "Giugno"
Case "07"
mm = "Luglio"
Case "08"
mm = "Agosto"
Case "09"
mm = "Settembre"
Case "10"
mm = "Ottobre"
Case "11"
mm = "Novembre"
Case "12"
mm = "Dicembre"
End Select
Select Case anno
Case "11"
an = "Duemilaundici"
Case "12"
an = "Duemiladodici"
Case "13"
an = "Duemilatredici"
Case "14"
an = "Duemilaquattordici"
End Select
With ActiveDocument.Tables(1)
.Cell(3, 1).Range.Text = "Il giorno " & GG & " del mese di " & mm & " dell'anno " & an
End With
With ActiveDocument.Tables(1).Cell(3, 1).Range.Find
.Text = GG
.Replacement.Text = GG
.Replacement.Font.Bold = wdToggle
.MatchWholeWord = True
.Execute Replace:=wdReplaceAll
End With
With ActiveDocument.Tables(1).Cell(3, 1).Range.Find
.Text = mm
.Replacement.Text = mm
.Replacement.Font.Bold = wdToggle
.MatchWholeWord = True
.Execute Replace:=wdReplaceAll
End With
With ActiveDocument.Tables(1).Cell(3, 1).Range.Find
.Text = an
.Replacement.Text = an
.Replacement.Font.Bold = wdToggle
.MatchWholeWord = True
.Execute Replace:=wdReplaceAll
End With
End Sub
saluti
Giap
