Ir para conteúdo
Fórum Script Brasil
  • 0

Migrar macro de VBA Word para OOo Basic Writer


KhanBR

Pergunta

Boa tarde, 

Aguem pode me dar uma dica de como converter VBA para OOo Basic Wrtier

' Inserindo a TAG #INICIO#
    Selection.HomeKey unit:=wdStory
    If Selection.Range.Tables.Count > 0 Then
        Selection.SplitTable
    End If
    Selection.Range.InsertParagraph
    Selection.HomeKey unit:=wdStory
    Selection.Style = -1
    ActiveDocument.Range.InsertBefore "#INICIO#"
               
    ' Inserindo a TAG #FIM#
    Selection.EndKey unit:=wdStory
    Selection.Range.InsertParagraph
    Selection.EndKey unit:=wdStory
    Selection.Style = -1
    Selection.Range.InsertAfter "#FIM#"
    
    ' Formatando o Estilo dos paragrafos
    For i = 1 To ActiveDocument.Paragraphs.Count
        If ActiveDocument.Paragraphs(i).Style.NameLocal <> "Normal" Then
            ActiveDocument.Paragraphs(i).Style = -1
            ActiveDocument.Paragraphs(i).Alignment = wdAlignParagraphJustify
        End If
    Next

    Exit Sub
    
Erro:
    If Err.Description <> "" Then
        MsgBox ("Falha na formatação da matéria. " & Err.Description)
        Exit Sub
    End If
    
ErroTabela:
    If Err.Description <> "" Then
        MsgBox ("Falha na formatação de tabela: " & Err.Description & "." & " Verifique a estrutura da tabela!")
        Exit Sub
    End If

End Sub
 

 

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...