que yo sepa no lo puedes hacer por consulta, hazlo por código, cra un formulario con dos botones y pega esto, tengo una tabla llamada datos y hay un campo llamado ciudad, el programa cuenta las palabras de ese campo
Option Compare Database
Dim i, c_pal As Integer
Dim Var As String
Dim db As DAO.Database, rs As DAO.Recordset
Private Sub BtnProceso_Click()
Var = "SELECT Datos.Ciudad FROM Datos ORDER BY Datos.Ciudad"
Set db = CurrentDb()
Set rs = db.OpenRecordset(Var, dbOpenDynaset)
If rs.RecordCount > 0 Then
Do While rs.EOF = False
c_pal = 0
For i = 1 To Len(rs!ciudad)
If Mid(rs!ciudad, i, 1) = " " Then
c_pal = c_pal + 1
End If
Next i
Debug.Print ""
Debug.Print rs!ciudad
Debug.Print "Total de palabras = " & c_pal + 1
rs.MoveNext
Loop
End If
rs.Close
Set db = Nothing
BtnSalir_Click
End Sub
Private Sub BtnSalir_Click()
DoCmd.Close
End Sub