MsgBox - не вижу текста и кнопки при запуске макроса

[timal1234]

доигрался... теперь и второй файл глючит....
что-то тут не так

[timal1234]

Меню / Правка / Ссылки на внешние файлы.

Показывает TEMP_5. Это что за зверь?

ого!
щас посмотрю.

это я копировал оттуда....
можно просто скопировать и вставить только значения через SHIFT+CTRL+V.
я думаю это не причём....
в оригинале нет ссылок (проверил)

[sokol92]

Стартуйте LO в альтернативной конфигурации, как указано в #8. Открывайте свои файлы из этого экземпляра. Сбои появляются?

[timal1234]

сейчас заметил вот что:
Нажимаю на кнопку "вставить из файла" на вкладке "Кабели(ОБЩ)"...
если указываю выложенный тут файл "ТЕМР_6.ods", то предупреждение безопасности показывается 1 раз.
а если указываю глючный файл - то ДВА раза !
как будто файл открывается два раза.

но при нажатии на кнопку "вставить из файла" на вкладке "Нумерация блоков" такого не происходит.

почему так? это макрос "COPY_PAGE_KABELS".

[timal1234]

ещё:
если удалить заполненные ячейки на вкладке "ФО" в глючном файле - макрос работает без глюков.
далее сохраняю, закрываю, открываю снова, запускаю макрос - опять глюк.

НО иногда при нажатии CTRL+A и DEL - удаляет всё и зависает напрочь.

[timal1234]

пытаюсь включить логирование... только ничего не получается... не вижу лог-файл....
делаю так:
в начале основного Sub:

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

'======Включение ЛОГИРОВАНИЯ =========
'------ установить уровень логирования ------------------
'setLogLevel( "org.openoffice.logging.DefaultLogger", com.sun.star.logging.LogLevel.SEVERE )
'setLogLevel( "org.openoffice.logging.DefaultLogger", com.sun.star.logging.LogLevel.WARNING )
'setLogLevel( "org.openoffice.logging.DefaultLogger", com.sun.star.logging.LogLevel.INFO )
'setLogLevel( "org.openoffice.logging.DefaultLogger", com.sun.star.logging.LogLevel.CONFIG )
'setLogLevel( "org.openoffice.logging.DefaultLogger", com.sun.star.logging.LogLevel.FINE )
'setLogLevel( "org.openoffice.logging.DefaultLogger", com.sun.star.logging.LogLevel.FINER )
setLogLevel( "org.openoffice.logging.DefaultLogger", com.sun.star.logging.LogLevel.FINEST )

'--------------------------------------------------------------------------

'--------- лог в текстовый файл ---------------------------------
Dim Log_File_URL
Log_File_URL = ConvertToURL("X:\Temp\___LOG.txt")
logToFile("org.openoffice.logging.DefaultLogger", Log_File_URL)
'--------------------------------------------------------------------------
'=========== включили  логирование ============
дополнительные модули такие:
( взято отсюда:
https://wiki.openoffice.org/wiki/Category:Logging )

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

Sub setLogLevel( sLoggerName as String, nLevel as Long )
  Dim oLoggerSettings as Object
  oLoggerSettings = getLoggerSettings( sLoggerName )

  oLoggerSettings.LogLevel = nLevel
  oLoggerSettings.commitChanges()
End Sub

Function getLoggerSettings( sLoggerName as String ) as Object
  Dim oConfigProvider as Object
  oConfigProvider = createUnoService( "com.sun.star.configuration.ConfigurationProvider" )

  Dim aArgs(0) as new com.sun.star.beans.NamedValue
  aArgs(0).Name = "nodepath"
  aArgs(0).Value = "/org.openoffice.Office.Logging/Settings"

  Dim oAllSettings as Object
  oAllSettings = oConfigProvider.createInstanceWithArguments( _
    "com.sun.star.configuration.ConfigurationUpdateAccess", aArgs() )

  ' if not configuration for this logger exists, yet, create it
  if ( Not oAllSettings.hasByName( sLoggerName ) ) Then
    oAllSettings.insertByName( sLoggerName, oAllSettings.createInstance() )
    oAllSettings.commitChanges()
  End If

  Dim oLoggerSettings as Object
  aArgs(0).Value = "/org.openoffice.Office.Logging/Settings/" & sLoggerName
  oLoggerSettings = oConfigProvider.createInstanceWithArguments( _
    "com.sun.star.configuration.ConfigurationUpdateAccess", aArgs() )

  getLoggerSettings = oLoggerSettings
End Function

Sub logToFile( sLoggerName as String, sFileURL as String )
  Dim oLoggerSettings as Object
  oLoggerSettings = getLoggerSettings( sLoggerName )

  oLoggerSettings.DefaultHandler = "com.sun.star.logging.FileHandler"

  Dim oHandlerSettings as Object
  oHandlerSettings = oLoggerSettings.getByName( "HandlerSettings" )

  If oHandlerSettings.hasByName( "FileURL" ) Then
    oHandlerSettings.replaceByName( "FileURL", sFileURL )
  Else
    oHandlerSettings.insertByName( "FileURL", sFileURL )
  End If

  oLoggerSettings.commitChanges()
End Sub
что не правильно?
UPD:
похоже это не для Либре....
а как правильно?

[timal1234]

подозрение пало на форматирование вкладки "ФО".
удалил лист, вставил новый, скопировал из образца только кнопки с макросом.
пока работает без глюков....
тестирую дальше

[timal1234]

подозрение пало на форматирование вкладки "ФО".
удалил лист, вставил новый, скопировал из образца только кнопки с макросом.
пока работает без глюков....
тестирую дальше

пока глюков не обнаружено...
вопрос (что это было) пока на паузе....
сейчас мне некогда разбираться.... работает и ладно.... 
всем спасибо за желание помочь.