On Wed, Mar 21, 2007 at 08:37:58AM -0300, Valdomiro wrote: > Olá pessoal! > > Gostaria de fazer uma macro que acrescentasse um <p> no início de cada > parpágrafo e um </p> no final, em todos os parágrafos do documento. > > Cheguei a fazer uma usando o recurso de "Gravar Macro", mas não encontrei a > tecla de atalho que leve o cursor ao fim do parágrafo, pois se for apenas > clicando com o mouse ele não reconhece o intervalo. Ainda assim precisaria > criar o loop para ele repetir o procedimento do início ao fim do documento. > > Como nunca trabalhei com macro peço aos colegas que conhecerem essa > ferramente me orientar nesse sentido.
Eu só sei colocar no início e no fim do documento. Tenho uma macro para
fazer isso.
--
Stela dato:2.454.181,107 Loka tempo:2007-03-21 12:34:43 Merkredo
Sub Aleatorio
REM __ _ ___ ___ ___
REM __ _ / _|___/ |/ _ \ ( _ )/ _ \
REM / _` | |_/ __| | (_) |/ _ \ (_) |
REM | (_| | _\__ \ |\__, | (_) \__, |
REM \__, |_| |___/_| /_/ \___/ /_/
REM |___/
REM +------------------------------------+
REM ! [EMAIL PROTECTED] !
REM +--------------+---------------------+
REM ! Macro ! Aleatorio.bas !
REM +--------------+---------------------+
REM ! Alvo ! OpenOffice !
REM +--------------+---------------------!
REM ! Estado ! Final !
REM +--------------+---------------------+
REM ! Data Estelar ! 2.454.022 !
REM +------------------------------------+
REM Macro para colocacao de cabecalho e assinatura
REM em documentos de texto do StarOffice 5.1
REM Definicao das Variaveis
REM Todas as variaveis dessa rotina estao declaradas aqui
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Let Ano = 0
Let Mes = 0
Let Dia = 0
Let Hora = 0
Let Minuto = 0
Let Segundo = 0
Let DecimalDia = 0
Let NDJ = 0
Let HoraNDJ = 0
Rem Formatacao de NDJ
Let Milhoes$ = ""
Let Milhares$ = ""
Let Unidades$ = ""
Rem SomeraHoraro = 0 para Horario normal
Rem SomeraHoraro = 1 para Horario de verao
Let SomeraHoraro = 0
Rem Fuso para o horario de Brasilia
Let Fuso = -3
Let TempX = 0
Let TempZ = 0
Let DiaJuliano = 1
Let Enrolacao = 0
Let A$ = ""
REM Transferencia
Let DataEstelar$ = ""
Let DataANSI$ = ""
Let SHoraro$ = ""
REM Entra a data e hora
A$=InputBox("Ano?")
Let Ano = Val(A$)
A$=InputBox("Mês?")
Let Mes=Val(A$)
A$=InputBox("Dia?")
Let Dia =Val(A$)
Let Hora = 23
Let Minuto = 59
Let Segundo = 59
REM Calculos
REM A Formula para o Calculo de NDJ foi obtida no
REM Manual da calculadora HP-12C
If Mes <= 2 Then Let TempX = 0
If Mes <= 2 Then Let TempZ = Ano-1
If Mes > 2 Then Let TempX = int(0.4 * Mes + 2.3)
If Mes > 2 Then Let TempZ = Ano
Let NDJ = 365 * Ano + 31 * (Mes -1) + Dia + Int (TempZ / 4) - TempX
Rem Hora em decimal de dia
If SomeraHoraro = 1 Then Let Fuso = Fuso + 1
Let DecimalDia = (Hora * 3600 + Minuto * 60 + Segundo) / 86400
Let HoraNDJ = DecimalDia + 0.5 - (Fuso * 0.041666)
Let DiaJuliano = 1721044 + NDJ + HoraNDJ
Rem Formata a data estelar
LET A$ = STR$(Int(DiaJuliano))
LET Milhoes$ = Left$(A$,2)
LET Milhares$ = Mid$(A$,3,3)
LET Unidades$ = Right$(A$,3)
Let HoraNDJ = HoraNDJ + 1.0004
Let A$ = STR$(HoraNDJ)
Let A$ = Mid(A$,4,3)
Let DataEstelar$ = Milhoes$ + "." + Milhares$ + "." + Unidades$ + "," + A$
Rem Horario de verao e hora no formato ANSI
If SomeraHoraro = 1 Then Let SHoraro$ = "somera horaro" Else let SHoraro$ =
"normala horaro"
Let DataANSI$ = Str$(ano) + "-"
Let A$ = Mid(Str$(mes),2,2)
If Len(A$) < 2 Then let A$ = "0" + A$
Let DataANSI$ = DataANSI$ + A$ + "-"
Let A$ = Mid(Str$(dia),2,2)
If Len (A$) < 2 Then let A$ = "0" + A$
Let DataANSI$ = DataANSI$ + A$ + " "
Let A$ = Mid(Str$(hora),2,2)
If Len (A$) < 2 Then let A$ = "0" + A$
Let DataANSI$ = DataANSI$ + A$ + ":"
Let A$ = Mid(Str$(minuto),2,2)
If Len (A$) < 2 Then let A$ = "0" + A$
Let DataANSI$ = DataANSI$ + A$ + ":"
Let A$ = Mid(Str$(segundo),2,2)
If Len (A$) < 2 Then let A$ = "0" + A$
Let DataANSI$ = DataANSI$ + A$
REM Transferencia
rem Saida$ = DataEstelar$
A$ = DataEstelar$ + SHoraro$ + DataANSI$
Rem
Rem Let A$ = StelaDato
Let SDato$ = Left$(A$,14)
Let SH$ = Mid$(A$,15,13)
Let LokaTempo$ = Right$ (A$,19)
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:GoToEndOfPage", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Text"
args1(0).Value = "Amike"
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Text"
args3(0).Value = "Gilberto F da Silva - [EMAIL PROTECTED] - ICQ 136782671"
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args3())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:GotoStartOfDoc", "", 0, Array())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Text"
args2(0).Value = "São Bernardo do Campo SP Brazilo, stela dato: "
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args2())
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Text"
args4(0).Value = Sdato$
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args4())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Text"
args5(0).Value = "Loka tempo: "
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args5())
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "Text"
args6(0).Value = LokaTempo$ + " " + SHoraro$
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args6())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Text"
args7(0).Value = "Saluton!"
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args7())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
End sub
pgpk93L5FnbMN.pgp
Description: PGP signature
