Leggendo altrove problematiche simili, pare che la soluzione sia solo via Function. Io ho elaborato questo, ipotizzando di tagliare fino a un massimo di 4 parole. In una tabella Titoli ho un campo Titolo (nel mio caso è testo breve…spero funzioni anche per testo lungo).
1. Apro una query in visualizzazione struttura
2. Importo la tabella Titoli
3. Trascino il campo Titolo
4. In una nuova colonna scrivo questo:
Testo4parole: fT4P([Titolo])
5. Salvo la query con nome T4P
6. Apro un Modulo dove dentro ci ho scritto questo:
Public Function fT4P(Titolo) As String
Dim strRidotto As String, strTL As String
Dim bySpazio As Byte, K As Byte
strTL = Titolo
For K = 1 To 4
bySpazio = InStr(strTL, " ")
If bySpazio > 0 Then
strRidotto = strRidotto & " " & Left(strTL, bySpazio - 1)
strTL = Replace(strTL, Left(strTL, bySpazio), "")
Else
strRidotto = strRidotto & " " & strTL
GoTo Fine
End If
Next K
Fine:
fT4P = strRidotto
End Function
7. Salvo il Modulo1
8. Apro la query T4P
Ho fatto un test e funziona.