Досадная ошибка или что-то ещё?!

[eeigor]

Тестируем инструкцию Mid (не функцию).
Синтаксис: Mid(Text$, Start&, Length&, Text$)

Код Выделить Развернуть

Rem Option VBASupport 1

Sub Test_MidStatement
   Dim nPos&, sFlags$

   sFlags = "ismwx"
   nPos = InStr(sFlags, "i")
   If nPos > 0 Then Mid(sFlags, nPos, 1, "")
   Print sFlags
End Sub
Работает. Но в режиме VBASupport не компилируется. Не ндравится ей закрывающая скобка: Mid(sFlags, nPos, 1, "")
Обойдём, конечно. Но одно короче другого...

Код Выделить Развернуть

    sFlags = Left(sFlags, nPos - 1) & Mid(sFlags, nPos + 1)
   Mid(sFlags, nPos, 1, "")

Это баг?

[sokol92]

Скорее, странности в документации. Инструкция Mid в VBA выглядит по-иному.  В LO Basic для Option Compatible (и Option VBASupport 1) работает так:

Код Выделить Развернуть

Sub TestMod
 Dim s As String
 s="Заец"
 Mid(s, 3, 1)="я"
 Msgbox s
End Sub


С моей точки зрения, нет никакого резона не использовать опцию Compatible (или VBASupport 1 в необходимых случаях). Также, всегда следует использовать Option Explicit.

[eeigor]

Скорее, странности в документации.

Не совсем, конечно...
Ваш вариант работает вне зависимости от опции VBASupport.
Mid(sFlags, nPos, 1) = ""

Однако упомянутый мной вариант, со ссылкой на документацию, тоже работает, но только если режим VBASupport не задан.
Очевидно, что надо внести изменения в документацию и обеспечить однообразность использования инструкции.
Характерно сообщение об ошибке (на скриншоте): требует ведь операции присваивания...

...нет никакого резона не использовать опцию Compatible или VBASupport 1 в необходимых случаях

Тот самый случай: используются диапазоны VBA ввиду отсутствия возможности в LO Calc передать ссылку в UDF на выбранный диапазон.

UPD:
Mid(sFlags, nPos, 1) = ""

Вообще, поражают ошибки, связанные с аварийным завершением приложения, когда, казалось бы, ничего отличного от предыдущих действий не делаешь: то нормально, то вылет...
Программа работать стала нестабильно: вылетает... Пришлось заменить на прежний вариант (который длиннее). Без уверенности, что в этом дело.