completar comando em macro mesclar e centralizar e fechar janela de estilos e formatação

editar

Para a resposta desta questão irei unificar as informações:

Na primeira macro cravada com o Mesclar e Centraliza, a janela de pergunta sempre será exibida nas seguintes situações:

1. Quando houver dados em mais de uma
   célula no intervalo selecionado;
2. Dados a partir da segunda célula no intervalo de seleção, exemplo: A1:C1 contém dados em B1;
3. Em qualquer situação tendo dados na célula abaixo da seleção.

Não exibirá a pergunta somente quando a célula abaixo estiver vazia e não seguirem o item 1 e 2 acima.

Como dito no comentário, foi necessário acrescentar um código para inserir uma linha abaixo do intervalo antes de mesclar e outro para excluí-la após o código de Mesclar e Centraliza.

Segunda janela (Estilo)

O problema está na hora de fechar a janela, pois quando se grava a macro abrindo e fechando com F11 ou ícone de Estilo é escrito com erro:

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:StyleEndPreview", "", 0, Array())

Neste caso era só excluir rem para "comentários" da segunda linha, e a sequência ficaria assim:

rem pre-visualização final de estilo
dispatcher.executeDispatch(document, ".uno:StyleEndPreview", "", 0, Array())

rem Sair da caixa de estilo
dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "DesignerDialog"
args11(0).Value = false

dispatcher.executeDispatch(document, ".uno:DesignerDialog", "", 0, args11())

Agradeço aos comentários!