Парсинг контента Word (из doc или docx файла) в lotus.

st =  tbl.Cell(1,1).range.text

    For i = 1 To worddoc.Sections.Count
        Set xxx = worddoc.Sections(i).Range
        Msgbox Cstr(xxx.text)
    Next

Sub Click(Source As Button)
    Dim WordApp As Variant
    Dim worddoc  As Variant
    Dim wObj As Variant
    
    Dim rngToSearch As Variant
    
    Set WordApp = CreateObject ("Word.Application")
    Set worddoc = WordApp.Documents.Open("C:\XML\Письмо.docx",False)    
    WordApp.Visible=True
    
    'Msgbox Cstr(worddoc.Bookmarks.Count)
    Set Bookmark = worddoc.Bookmarks
    
    mStart% = Bookmark(1).Range.Start
    mEnd%= Bookmark(2).Range.End
    
    Set myRange = worddoc.Range(  mStart%,mEnd%   )
    Msgbox Cstr(myRange.text)
    
    
End Sub

Sub Click(Source As Button)
    
    Dim worddoc As Variant
    Dim WordApp As Variant
    Dim rnsg As Variant
    
    Set WordApp = CreateObject ("Word.Application")
    WordApp.Visible=False
    mypatch$ = "C:\XML\123.docx"
    Set worddoc = WordApp.Documents.Open(mypatch$)    
    worddoc.Select
    
    Set myRange = worddoc.Content
    Msgbox Cstr(myRange.Text)
    
    worddoc.Close
    WordApp.Quit
    
End Sub

Dim Slovo As String



For i = 1 To ActiveDocument.Range.Words.Count
 Slovo = ActiveDocument.Words.Item(i)

  If ActiveDocument.Words.Item(i).Font.Bold = True Then
ActiveDocument.Words.Item(i) = "<b>" & ActiveDocument.Words.Item(i) & "</b>"

Selection.EndOf
End If
Next

'For Each Slovo In ActiveDocument.Words
'If Slovo.Font.Size = 14 Then
Slovo.InsertAfter ("***")
End If
Next

    mStart% = Bookmark(1).Range.Start    '  WORD ТЕКСТ
    mEnd%= Bookmark(2).Range.End
    Print mStart% 
    Print mEnd%
    Set myRange = worddoc.Range(  mStart%,mEnd%   )
    
    'objWords = myRange.Words ' ЖИРНЫЙ ШРИФТ <B>
    Print "Слов в Word тексте: "  & Cstr(worddoc.Words.Count )
    Print "Слов Word в myRange: "  & Cstr(myRange.Words.Count )
    For iCount = myRange.Words.Count To 1 Step -1
    '    Print "iCount " &  iCount
        Set slovo = myRange.Words(iCount)
        If  Asc(slovo.Text) = 13 Then
            Print "плохой символ"
        Else
            If slovo.Bold = True Then
                Print "slovo " & slovo.Text 
                slovo.Text = "<b>" & Trim$(slovo.Text) & "</b> "
            Else
                For xCount = slovo.Characters.Count To 1 Step -1
                    Set bukva = slovo.Characters(xCount)
                    If bukva.Bold = True Then
                        Print "bukva " & slovo.Text 
                        bukva.Text = "<b>" & Trim$(bukva.Text) & "</b>"
                    End If
                Next
            End If
        End If
        
    Next

Set myRange = worddoc.Range(  mStart%,mEnd%   )
    
    Dim rngResult As Variant
    
    Set rngResult  = myRange.Duplicate  ' клонирует имеющийся текстовый диапазон
    rngResult.Find.ClearFormatting ' очищает форматирование внутри объекта Find 
    rngResult.Find.Font.Bold = True
    rngResult.Find.Replacement.ClearFormatting   ' Сброс форматирования из предыдущих операций поиска.
    
    rngResult.Find.Text = "(<*>)"
    rngResult.Find.Replacement.Text = "<b>\1</b>"  ' на что заменяем
    rngResult.Find.Forward = True ' поиск по всему документу вперед
    rngResult.Find.Wrap = wdFindContinue ' продолжать поиск, если анчали не с  начала документа
    rngResult.Find.Format = True ' включить форматирование
    rngResult.Find.MatchCase = False ' не учитывать регистр
    rngResult.Find.MatchWholeWord = False ' искать части слов
    rngResult.Find.MatchAllWordForms = False ' учитывать словоформы
    rngResult.Find.MatchSoundsLike = False  ' учитывать похожие слова
    rngResult.Find.MatchWildcards = True '  подстановочные знаки - флажок в (Edit menu) ворда
    
    rngResult.Find.Execute

Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim udoc As NotesUIDocument
    Set udoc = ws.CurrentDocument
    Dim doc As NotesDocument
    Set doc = udoc.Document
    
    Dim worddoc As Variant
    Dim WordApp As Variant
    Set WordApp = CreateObject ("Word.Application")
    WordApp.Visible=False
    mypatch$ = "C:\XML\123.docx"
    Set worddoc = WordApp.Documents.Open(mypatch$)    
    worddoc.Select
    Set myRange = worddoc.Content
    Msgbox Cstr(myRange.Text)
    
    myRange.Find.Text = "b"
    myRange.Find.Replacement.Text = "<b>"
    myRange.Find.ClearFormatting ' очищает форматирование внутри объекта Find 
    'myRange.Find.Font.Bold = True
    myRange.Find.Replacement.ClearFormatting   ' Сброс форматирования из предыдущих операций поиска.
    myRange.Find.Forward = True ' поиск по всему документу вперед
    myRange.Find.Wrap = wdFindContinue ' продолжать поиск, если анчали не с  начала документа
    myRange.Find.Format = True ' включить форматирование
    myRange.Find.MatchCase = False ' не учитывать регистр
    myRange.Find.MatchWholeWord = False ' искать части слов
    myRange.Find.MatchAllWordForms = False ' учитывать словоформы
    myRange.Find.MatchSoundsLike = False  ' учитывать похожие слова
    'myRange.Find.MatchWildcards = True '  подстановочные знаки - флажок в (Edit menu) ворда
    myRange.Find.Execute ,,,,,,,,, wdReplaceAll
    Msgbox Cstr(myRange.Text)
    myRange.Text = "===="
    
    
    'Dim myList  List As String
    'myList  ("b") = "<b>"
    'myList  ("1") = "<1>"
    'xxxxxxxxxx = ReplaceByTemplate(myList , worddoc) 
    
    worddoc.Close
    WordApp.Quit
    Call doc.Save( False, True )
    Call udoc.Close
End Sub