<numFmts count="1">
<numFmt numFmtId="168" formatCode="[Color10]#,##0;[Red]\(#,##0\);"/>
</numFmts>

[Цвет10]# ##0;[Красный](# ##0);

Sub Test()
  Selection.FormulaLocal = Selection.FormulaLocal
End Sub

Sub Test()
  Selection.Replace " ", "", xlPart
  Selection.Value = Selection.Value
End Sub

Range("A1").Formula = "=TODAY()"

            .ActiveRecord = i
            MsgBox .DataFields("score").Value

Option Explicit

Sub my_macro()
  Dim i As Long
  For i = 1 To 2

    With ThisDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        
        With .DataSource
            .FirstRecord = i
            .LastRecord = i
        End With
                
        .Execute Pause:=False
    End With
  Next i
End Sub