-- make attributed string system font with monospaced digits
set fontSize to current application's NSFont's systemFontSizeForControlSize:(current application's NSRegularControlSize)
set theFont to current application's NSFont's systemFontOfSize:fontSize weight:(current application's NSFontWeightRegular)
set monoFont to current application's NSFont's monospacedDigitSystemFontOfSize:fontSize weight:(current application's NSFontWeightRegular)
set attsDict to current application's NSDictionary's dictionaryWithObject:theFont forKey:(current application's NSFontAttributeName)
set attString to current application's NSMutableAttributedString's alloc()'s initWithString:theMessage attributes:attsDict
set theRegex to current application's NSRegularExpression's regularExpressionWithPattern:"(\\t| )(\\d+)(\\t|\\n| )" options:0 |error|:(missing value)
set theMatches to theRegex's matchesInString:(attString's |string|()) options:0 range:{0, attString's |length|()}
repeat with aMatch in theMatches
set theRange to (aMatch's rangeAtIndex:2)
(attString's addAttribute:(current application's NSFontAttributeName) value:monoFont range:theRange)
end repeat
That's just going to change the font of numerical columns.