Ответ: Как автоматически в Word разбить пробелами большие числа по 3 символа? Напр. 2303004,1 на 2 303 004,1
Для начала перебираете все слова в тексте на предмет число это или нет. Такой вот функцией, например:
Declare Function StrSpn Lib "SHLWAPI" Alias _
"StrSpnW" (ByVal psz As Long, ByVal pszSet As Long) As Long
Public Function IsDecimal (ByVal sString As String) As Boolean
Const DECIMAL_NUM As String = "0123456789,-"
Dim iPos
iPos = StrSpn (StrPtr(sString), StrPtr(DECIMAL_NUM)
' если возвращается значение, не равное длине исходной строки,
' то значит найдены символы, не являющиеся цифрами
IsDecimal = (iPos = Len(sString))
End Function
Потом в от позиции запятой до конца слова в обе стороны через каждые 3 символа вставлять пробел.