Всем доброго дня!
Столкнулся с такой проблемой.
Читаю текст из текстового документа в Writer.
' Чтение текста из документа Writer
Sub GetText()
Dim oTCurs As Object 'Created text cursor.
Dim text
On Error GoTo ExErrorHandler
oTCurs = ThisComponent.Text.createTextCursor()
text = ""
Dim nItems, i1, curTableName
Do While true
oTCurs.gotoEndOfParagraph(True)
text = text + oTCurs.String + " "
If Not oTCurs.gotoNextParagraph(False) Then Exit Do
Loop
Exit Sub
ExErrorHandler:
MsgBox "Ошибка чтения текста документа." + CHR$(10) + Error(), MB_ICONSTOP
On Error GoTo 0
End Sub
Когда в тексте нет изображений, я легко попадаю в нужное место документа, используя видимый курсор и полученный текст.
Если же в тексте есть изображения, мне не попасть в нужное место документа, т.к. эта процедура пропускает все изображения и
при позиционировании на текст, я оказываюсь на несколько символов ближе, чем нужно.
Подскажите, пожалуйста, как понять, что внутри текста есть изображение?
Спасибо.