Просмотр поста

Function RegParse(ByVal text As String, _
         Optional ByVal patt As String = "продолжение таблиц.*") As Boolean
'
' Работа с REGEXP
' Использование: RegParse("Продолжение таблицы")
'
    Dim regex As New RegExp
    
    With regex
        .MultiLine = False 'Однострочный поиск
        .Global = True     'Поиск до конца строки
        .IgnoreCase = True 'Регистронезависимый
        .pattern = patt    'Шаблон
        
        If .Test(text) Then
            RegParse = True
        Else
            RegParse = False
        End If
    End With
    
End Function

Function Logging(ByVal text As Variant, _
        Optional ByVal file As String = "debug.log")
'
' Запись в лог.файл
' Использование: Logging (ActiveDocument.Content)
'
    Open ActiveDocument.path & "\" & file For Output As 1
        Print #1, text & vbCrLf
    Close #1
    
End Function

Sub MyTest()
'
' Текстовое поле
'
    With ActiveDocument.Shapes
        .AddTextbox Orientation:=msoTextOrientationHorizontal, Left:=64, Top:=40, Width:=2, Height:=762
        .AddTextbox(msoTextOrientationHorizontal, 66, 40, 505, 762).Select
    End With
        
End Sub