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

=СУММПРОИЗВ((ДЕНЬ(A2:A100)=ДЕНЬ(СЕГОДНЯ()))*(МЕСЯЦ(A2:A100)=МЕСЯЦ(СЕГОДНЯ())))

function test()
{
    const oRange1 = Api.GetActiveSheet().GetRange("A1");    
    const oRange2 = Api.GetActiveSheet().GetRange("A2");
    oRange2.SetValue(oRange1.GetValue());
} 
test();

Option Explicit

Sub CreateJson()
  Dim nRows As Long, nCols As Long, i As Long, s As String, arr
  
  nRows = 10000
  nCols = 30
  
  ' Генерируем объект Json с ключами "Field_i" и значениями "Значение i"
  ' Это представление одной записи результата.
  For i = 1 To nCols
    s = IIf(s = "", "{", s & ",") & """Field_" & i & """:""Значение " & i & """"
  Next i
  s = s & "}"
  
  ' Генерируем массив из nRows одинаковых записей
  ReDim arr(1 To nRows)
  For i = 1 To nRows
    arr(i) = s
  Next i
  
  s = "[" & Join(arr, ",") & "]"
  
  ' Записываем в файл C:\temp\Example.json в кодировке UTF-8
  Text_SaveToFile s, "C:\temp\example.json", "utf-8noBOM"
  
End Sub

'
' Источник макроса : https://excelvba.ru/code/TextFile
' © 2022 ExcelVBA.ru
'
Function Text_SaveToFile(ByVal txt$, ByVal Filename$, Optional ByVal Encoding$) As Boolean
    ' функция сохраняет текст txt в кодировке Encoding$ в файл filename$
    ' возвращает TRUE, если сохранение прошло успешно
    ' © 2022 ExcelVBA.ru
    On Error Resume Next: Err.Clear
    If Encoding$ = "ANSI" Then Encoding$ = "windows-1251"
    If Encoding$ = "" Then Encoding$ = "UTF-8" ' кодировка по умолчанию: UTF-8
    
    Select Case Encoding$
        Case "utf-8noBOM"
            With CreateObject("ADODB.Stream")
                .Type = 2: .Charset = "utf-8": .Open: .WriteText txt$
                Dim binaryStream As Object: Set binaryStream = CreateObject("ADODB.Stream")
                binaryStream.Type = 1: binaryStream.Mode = 3: binaryStream.Open
                .Position = 3: .CopyTo binaryStream        'Skip BOM bytes
                .flush: .Close
                binaryStream.SaveToFile Filename$, 2
                binaryStream.Close
            End With
 
        Case Else
            With CreateObject("ADODB.Stream")
                .Type = 2: .Charset = Encoding$: .Open: .WriteText txt$
                .SaveToFile Filename$, 2: .Close
            End With
    End Select
    Text_SaveToFile = Err = 0: DoEvents
End Function

Application.CutCopyMode = False