Sub ПоляВТекст()
'
' Преобразует все поля в текст (даты, текст, список и другие)
'
'
Dim i As Integer
Dim r As String
Dim objcc As ContentControl
 
' количество полей в активном документе
r = ActiveDocument.ContentControls.Count

Option Explicit
#If Win64 Then
    Private Const ptrSz As LongPtr = 8
#Else
    Private Const ptrSz As Long = 4
#End If
Private Type SAFEARRAYBOUND
    cCount              As Long
    lBound              As Long
End Type
Private Type SAFEARRAY
    cDims               As Integer
    fFeatures           As Integer
    cbElements          As Long
    cLocks              As Long
    #If Win64 Then