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
Pergunta
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
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
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.