KhanBR

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