From 0915e48b8c5bcf603026e57b7acb7f50c36dcae4 Mon Sep 17 00:00:00 2001 From: Olivier Hallot Date: Wed, 6 Mar 2024 12:23:52 -0300 Subject: More refactoring of the extension + Added automatic getExtensionVersion() for comments Author + Improved pt-BR and en-US text in dialogs + refactoring some msgBox constants. Change-Id: Icbc2ebc83505bda8e4037a01151806ec50d00bd6 Reviewed-on: https://gerrit.libreoffice.org/c/dev-tools/+/164479 Tested-by: Olivier Hallot Reviewed-by: Olivier Hallot --- userguides/sanitycheck/SanityCheck/Campos.xba | 1 - userguides/sanitycheck/SanityCheck/Comunes.xba | 21 +++++- userguides/sanitycheck/SanityCheck/Estilos.xba | 7 +- userguides/sanitycheck/SanityCheck/Formatos.xba | 2 +- userguides/sanitycheck/SanityCheck/Imagenes.xba | 39 +++++------ userguides/sanitycheck/SanityCheck/L10n.xba | 81 +++++++++++----------- userguides/sanitycheck/SanityCheck/Renombrar.xba | 4 +- userguides/sanitycheck/SanityCheck/Resaltes.xba | 1 - userguides/sanitycheck/SanityCheck/Tablas.xba | 1 - userguides/sanitycheck/description.xml | 2 +- userguides/sanitycheck/dist/Sanitycheck-1.0.0.oxt | Bin 110377 -> 0 bytes 11 files changed, 83 insertions(+), 76 deletions(-) delete mode 100644 userguides/sanitycheck/dist/Sanitycheck-1.0.0.oxt diff --git a/userguides/sanitycheck/SanityCheck/Campos.xba b/userguides/sanitycheck/SanityCheck/Campos.xba index d77a1e4b..252b657e 100644 --- a/userguides/sanitycheck/SanityCheck/Campos.xba +++ b/userguides/sanitycheck/SanityCheck/Campos.xba @@ -4,7 +4,6 @@ Option Explicit Private oDlgProps - Const Extension as string = "Revisiones v 1.0.0" Rem ############ Sub Dlg_Campos diff --git a/userguides/sanitycheck/SanityCheck/Comunes.xba b/userguides/sanitycheck/SanityCheck/Comunes.xba index 11174098..610775eb 100644 --- a/userguides/sanitycheck/SanityCheck/Comunes.xba +++ b/userguides/sanitycheck/SanityCheck/Comunes.xba @@ -3,13 +3,15 @@ REM ***** BASIC Módulo Comunes ***** Option Explicit - Const Extension as string = "Revisiones v 1.0.0" + Global Const ExtensionID as String = "vnd.b__antonio.sanitycheck" + Global Extension as String Dim oDlgAsist as Object Dim paso 'as integer Rem ############ + Sub Dlg_Asist - + Extension = getExtensionVersion() Call L10n.Trad_Comunes If Thiscomponent.HasLocation = false then : Msgbox (V_Txt(19),0+48+0, Extension) : Exit Sub : End If If Imagenes.F_Prueba_Sel = 0 Then : Exit Sub : End If @@ -300,7 +302,20 @@ Function MyName MyName = oRegKey.givenname & " " & oRegKey.sn End Function - + Rem #### + REM Take the version number from the description.xml of the extension +Function getExtensionVersion() As String + Dim extList As Object + Dim oElem As Object + extList = GetDefaultContext.getByName("/singletons/com.sun.star.deployment.PackageInformationProvider").getExtensionList() + Dim i As Integer + For i = 0 To uBound(extList) + oElem = extList(i) + If oElem(0) = ExtensionID Then + getExtensionVersion = "Sanity Check V." & oElem(1) + End If + Next i +End Function Rem ############ posible incorporación? Recargar documento. sub ActualizarTodo rem ---------------------------------------------------------------------- diff --git a/userguides/sanitycheck/SanityCheck/Estilos.xba b/userguides/sanitycheck/SanityCheck/Estilos.xba index d82f7fa1..8fdada4c 100644 --- a/userguides/sanitycheck/SanityCheck/Estilos.xba +++ b/userguides/sanitycheck/SanityCheck/Estilos.xba @@ -2,7 +2,6 @@ REM ***** BASIC Módulo Estilos ***** Option Explicit - Global estiloPU(18) as String Global estiloCU(22) as String Dim oDlgEstilos as Object @@ -20,7 +19,7 @@ Sub CargaEstilos_PU_Guias estiloPU(2) = "Column Contents" estiloPU(3) = "Definition Term" estiloPU(4) = "Definition Term 2" - estiloPU(5) = "First Heading" ' Puede que en la nueva plantilla no aparezca. + estiloPU(5) = "Heading 1 First" ' Puede que en la nueva plantilla no aparezca. estiloPU(6) = "Guide Name" estiloPU(7) = "Guide Subtitle" estiloPU(8) = "Guide Title" @@ -74,7 +73,7 @@ Sub ComprobacionEstilos Call L10n.Trad_Estilos Avisos_Estilos_Ajenos("P") Avisos_Estilos_Ajenos("C") - Call DialogoEstilos + Call DialogoEstilos End Sub Rem ############ @@ -152,7 +151,7 @@ End Function Rem ############ Sub DialogoEstilos() - + Extension = Comunes.getExtensionVersion() DialogLibraries.LoadLibrary("SanityCheck") oDlgEstilos = createUnoDialog(DialogLibraries.getByName("SanityCheck").getbyName("DlgEstilos")) diff --git a/userguides/sanitycheck/SanityCheck/Formatos.xba b/userguides/sanitycheck/SanityCheck/Formatos.xba index 6ffc2141..2e985232 100644 --- a/userguides/sanitycheck/SanityCheck/Formatos.xba +++ b/userguides/sanitycheck/SanityCheck/Formatos.xba @@ -3,7 +3,6 @@ REM ***** BASIC Módulo Formatos ***** Option Explicit - Const Extension as string = "Revisiones v 1.0.0" Dim PBcounter as Integer, oDlgFmt as Object Public E_Num(20) as String @@ -39,6 +38,7 @@ End sub Sub Dlg_Formatos ' Dim oDlgRenombrar Call L10n.Trad_Formatos + Extension = Comunes.getExtensionVersion() ' If Thiscomponent.HasLocation = false then : Msgbox (Ren_Txt(16),0+48+0,Extension) : Exit Sub : End If DialogLibraries.loadLibrary("SanityCheck") oDlgFmt = CreateUnoDialog(DialogLibraries.getByName("SanityCheck").getByName("DlgFormatos")) diff --git a/userguides/sanitycheck/SanityCheck/Imagenes.xba b/userguides/sanitycheck/SanityCheck/Imagenes.xba index cc48cb0b..2b52615f 100644 --- a/userguides/sanitycheck/SanityCheck/Imagenes.xba +++ b/userguides/sanitycheck/SanityCheck/Imagenes.xba @@ -2,8 +2,7 @@ REM ***** BASIC Módulo Imagenes ***** Option Explicit - - Const Extension as string = "Revisiones v 1.0.0" + Global oImgs as Object Global oImg as Object Global vCursor as Object ' CursorVisible @@ -17,13 +16,13 @@ Rem ############ Sub DlgImagenes -Msgbox "Comprobar renombrado de imágenes" + Msgbox "Comprobar renombrado de imágenes" Call L10n.Trad_Imagenes - If Thiscomponent.HasLocation = false then : Msgbox (I_Txt(34),0+48+0, Extension) : Exit Sub : End If + If Thiscomponent.HasLocation = false then : Msgbox (I_Txt(34),0+MB_ICONEXCLAMATION+0, Extension) : Exit Sub : End If If Imagenes.F_Prueba_Sel = 0 Then : Exit Sub : End If oImgs = ThisComponent.GraphicObjects() Ultima_Img = oImgs.getCount -1 - If Ultima_Img < 0 Then : Msgbox (I_Txt(39), 0+48+0,Extension) : Exit Sub : End If + If Ultima_Img < 0 Then : Msgbox (I_Txt(39), 0+MB_ICONEXCLAMATION+0,Extension) : Exit Sub : End If Indice_Img = 0 oImg = oImgs.getbyIndex(Indice_Img) vCursor = Thiscomponent.CurrentController.getViewCursor() @@ -63,9 +62,9 @@ end sub Sub Cargar_Parametros ' Call L10n.Trad_Imagenes - If not Dlg_Mostrado then : Msgbox I_Txt(33),0+48+0, Extension : exit sub: end if + If not Dlg_Mostrado then : Msgbox I_Txt(33),0+MB_ICONEXCLAMATION+0, Extension : exit sub: end if If Imagenes.F_Prueba_Sel = 0 Then : Exit Sub : End If - If Ultima_Img < 0 Then : Dlg_Mostrado = False : Msgbox (I_Txt(35),0+48+0, Extension) : Exit Sub : End If 'si se borran todas las imágenes + If Ultima_Img < 0 Then : Dlg_Mostrado = False : Msgbox (I_Txt(35),0+MB_ICONEXCLAMATION+0, Extension) : Exit Sub : End If 'si se borran todas las imágenes Ultima_Img = oImgs.getCount -1 oImg = oImgs.getbyIndex(Indice_Img) vCursor.gotoRange(oImg.Anchor,False) @@ -167,7 +166,7 @@ sub OnBtn_Anterior(oEv) oDlgImgs = oEv.Source.Context If oImgs.getCount -1 <> Ultima_Img Then Ultima_Img = oImgs.getCount -1 - Msgbox (I_Txt(27), 0+64+0, Extension) + Msgbox (I_Txt(27), 0+MB_ICONINFORMATION+0, Extension) Indice_Img = 0 ElseIf Not Indice_Img < 0 then Indice_Img = Indice_Img -1 @@ -182,7 +181,7 @@ Sub OnBtn_Siguiente(oEv) If oImgs.getCount -1 <> Ultima_Img Then Ultima_Img = oImgs.getCount -1 Indice_Img = 0 - Msgbox (I_Txt(27), 0+64+0, Extension) + Msgbox (I_Txt(27), 0+MB_ICONINFORMATION+0, Extension) ElseIf Indice_Img < Ultima_Img Then Indice_Img = Indice_Img + 1 End if @@ -193,7 +192,7 @@ End Sub Sub OnBtn_Salir Dlg_Mostrado = False Dlg_Activo = False - Msgbox (I_Txt(28), 0+64+0, Extension) + Msgbox (I_Txt(28), 0+MB_ICONINFORMATION+0, Extension) End Sub Rem ############ @@ -224,7 +223,7 @@ Sub OnBtn_Cambiar_Nombre_Img(oEv) On error goto ERRORES: oDlgImgs = oEv.Source.Context If oDlgImgs.getModel.getByName("Tx_Nombre_Img").Text = "" then - Msgbox (I_Txt(30), 0+48+0, "Error") + Msgbox (I_Txt(30), 0+MB_ICONEXCLAMATION+0, "Error") oDlgImgs.getModel.getByName("Tx_Nombre_Img").Text = oImg.name Exit Sub Else @@ -233,7 +232,7 @@ On error goto ERRORES: End If ERRORES: If Err = 1 Then - Msgbox (Chr(13) & I_Txt(31), 0+48+0, "Error") + Msgbox (Chr(13) & I_Txt(31), 0+MB_ICONEXCLAMATION+0, "Error") End If End Sub @@ -313,12 +312,12 @@ Function F_Ajuste_Imagenes_Marcos Call L10n.Trad_Imagenes - If Not Thiscomponent.HasLocation then : Msgbox (I_Txt(34),0+48+0,Extension ) : Exit Function : End If + If Not Thiscomponent.HasLocation then : Msgbox (I_Txt(34),0+MB_ICONEXCLAMATION+0,Extension ) : Exit Function : End If REM 1º: Formato de imagen (Obligatorio antes de formato marcos) Dim i as integer Static s as String oImgs = ThisComponent.GraphicObjects() - If oImgs.getCount = 0 Then : Msgbox (I_Txt(39), 0+48+0, Extension) : Exit Function : End If + If oImgs.getCount = 0 Then : Msgbox (I_Txt(39), 0+MB_ICONEXCLAMATION+0, Extension) : Exit Function : End If oProgressBar = ThisComponent.CurrentController.getStatusIndicator() oProgressBar.start( I_Txt(32), oImgs.Count * 2 ) @@ -357,7 +356,7 @@ Function F_Ajuste_Imagenes_Marcos NEXT s = I_Txt(40) s= s & F_Ajuste_Marcos 'Ajuste de marcos y luego Descripciones - Msgbox (s,0+64+0, I_Txt(41)) + Msgbox (s,0+MB_ICONINFORMATION+0, I_Txt(41)) F_Ajuste_Imagenes_Marcos = s End Function @@ -514,13 +513,13 @@ End Function Function F_AlternarLeyenda() Call L10n.Trad_Imagenes - If ThisComponent.HasLocation = false then : Msgbox (I_Txt(34),0+48+0,Extension): Exit Function : End If + If ThisComponent.HasLocation = false then : Msgbox (I_Txt(34),0+MB_ICONEXCLAMATION+0,Extension): Exit Function : End If If Imagenes.F_Prueba_Sel = 0 Then Exit Function - If ThisComponent.TextFrames.Count = 0 Then : Msgbox (I_Txt(53),0+64+0, Extension): Exit Function: End If - If Msgbox (I_Txt(50), 4+48+256, Extension) = 6 Then + If ThisComponent.TextFrames.Count = 0 Then : Msgbox (I_Txt(53),0+MB_ICONINFORMATION+0, Extension): Exit Function: End If + If Msgbox (I_Txt(50), 4+MB_ICONEXCLAMATION+256, Extension) = 6 Then Goto SIGUIENTE else - Msgbox (I_Txt(51), 0+64+0, Extension): Exit Function + Msgbox (I_Txt(51), 0+MB_ICONINFORMATION+0, Extension): Exit Function End If SIGUIENTE: Dim Document as Object, dispatcher as Object @@ -541,7 +540,7 @@ SIGUIENTE: Next Dim marco1 : marco1 = ThisComponent.getTextFrames.getByIndex(0).Anchor vcursor.gotoRange(marco1,False) - Msgbox (I_Txt(52),0+64+0, Extension) + Msgbox (I_Txt(52),0+MB_ICONINFORMATION+0, Extension) F_AlternarLeyenda = Chr(13) & I_Txt(52) End Function REM ================= Fin Imagenes =========================================================== diff --git a/userguides/sanitycheck/SanityCheck/L10n.xba b/userguides/sanitycheck/SanityCheck/L10n.xba index 3b95825b..cbef5c86 100644 --- a/userguides/sanitycheck/SanityCheck/L10n.xba +++ b/userguides/sanitycheck/SanityCheck/L10n.xba @@ -2,8 +2,7 @@ REM ***** BASIC Módulo L10n ***** Option explicit - Global Const Extension = "Revisiones" - + Public C_Txt(17) as String Public V_Txt(38) as String Public E_Txt(20) as String @@ -373,28 +372,28 @@ Sub Trad_Estilos E_Txt(11) = Chr(13) & "Deseja excluí-lo do documento?" E_Txt(12) = "Excluir estilo de parágrafo não utilizado" E_Txt(13) = "Remover estilo de caractere não utilizado" - E_Txt(14) = "Eles foram encontrados" + E_Txt(14) = "Estilos encontrados." E_Txt(15) = " Parágrafos com estilos fora do modelo" - E_Txt(16) = "Verifique os comentários para corrigi-lo" + E_Txt(16) = "Verifique os comentários para corrigi-los" E_Txt(17) = " - Estilo inexistente no modelo" E_Txt(18) = Chr(13) & "– Os comentários só são adicionados a parágrafos com um estilo" _ - & " fora do modelo aplicado por dois motivos: " & Chr(13) _ + & " fora do modelo aplicado. Isso por dois motivos: " & Chr(13) _ & "1.- a busca por estilos de caracteres é complicada e pode ser muito lenta e " _ & Chr (13) & "2.- O documento pode encher-se de comentários que dificultariam a sua leitura" _ & Chr(13) & Chr(13) & "– Ao corrigir um estilo de parágrafo aplicado, não há problema," _ - & " L.O. atualiza o documento, portanto el estilo é removido da lista de estilos aplicados " _ - & "nesta caixa de diálogo e movido para a lista de estilos Não utilizados." _ + & " O LibreOffice atualiza o documento, portanto o estilo é removido da lista de estilos aplicados " _ + & "nesta caixa de diálogo e movido para a lista de estilos não utilizados." _ & Chr(13) & Chr(13) & " – O problema surge com os estilos de caracteres: mesmo que sejam" _ - & " alteradas todas as ocorrências de um estilo estrangeiro no documento, " _ - & "L.O. não atualiza sua lista de estilos de caracteres e, portanto, continua " _ - & "a aparecer nos estilos aplicados, mesmo que não seja realmente aplicado." _ + & " alteradas todas as ocorrências de um estilo fora do modelo no documento, " _ + & "O LibreOffice não atualiza sua lista de estilos de caracteres e, portanto, continua " _ + & "a aparecer nos estilos aplicados, mesmo que não seja efetivamente aplicado." _ & Chr(13) & Chr(13) & "A solução:" & Chr(13) & "1.- Salve o documento e " _ & Chr(13) & "2.- Recarregue o documento" & Chr (13) _ - & "Quando você executar a verificação de estilo novamente, ela irá para a lista Não utilizados" + & "Quando executar a verificação de estilo novamente, ela irá para a lista Não utilizados" Case Else E_Txt(0) = "Style Check" - E_Txt(1) = "Styles outside the guides" + E_Txt(1) = "Styles not in template" E_Txt(2) = "Applied" E_Txt(3) = "Not used" E_Txt(4) = "Paragraph styles" @@ -407,23 +406,23 @@ Sub Trad_Estilos E_Txt(11) = "Do you want to delete it from the document?" E_Txt(12) = "Delete Unused Paragraph Style" E_Txt(13) = "Remove Unused Character Style" - E_Txt(14) = "They have been found" - E_Txt(15) = " Paragraphs with alien (paragraph) styles applied" + E_Txt(14) = "Styles were found." + E_Txt(15) = " Paragraphs with alien styles applied" E_Txt(16) = "Check the comments to correct it" E_Txt(17) = " - Alien style, not in the template" - E_Txt(18) = Chr(13) & "– Comments are only added to paragraphs with a foreign (paragraph)" _ + E_Txt(18) = Chr(13) & "– Comments are only added to paragraphs with alien" _ & " style applied for two reasons: " & Chr(13) & "1.- searching for character styles"_ - & " is complicated and it can be very slow" & Chr(13) & "2.- The document could be filled "_ - &"with comments which would make them difficult to read "& Chr(13) & Chr(13) _ - & "– When correcting an applied paragraph style, there is no problem, L.O. updates "_ + & " is complicated and it can be very slow" & Chr(13) & "2.- The document can be filled "_ + &"with so many comments which would make them difficult to read "& Chr(13) & Chr(13) _ + & "– When correcting an applied paragraph style, there is no problem, LibreOffice updates "_ &"the document, so the style is removed from the list of applied styles in this dialog "_ &"and moved to the list of unused styles." & Chr(13) & Chr(13) _ - & " – The problem arises with character styles: even if all occurrences of a foreign "_ - & "style in the document are deleted, L.O. does not update its list of character styles"_ - & " and therefore continues to appear in applied styles even though it is not actually applied. "_ - & Chr(13) & Chr(13) & "The solution:" & Chr(13) & "1.- Save the document and "_ - & Chr(13) & " 2.- Reload the document" & Chr (13) & "When you run the style "_ - & "check again, the style go to the Unused styles list" + & " – The problem arises with character styles: even if all occurrences of an alien "_ + & "style in the document are deleted, LibreOffice does not update the list of character styles"_ + & " and therefore continues to appear as applied styles even though it is not actually applied. "_ + & Chr(13) & Chr(13) & "The solution is:" & Chr(13) & "1.- Save the document and "_ + & Chr(13) & " 2.- Reload the document" & Chr (13) & "Upon running the style "_ + & "check again, the style is now in the unused styles list" End Select End Sub @@ -455,27 +454,27 @@ Sub Trad_Formatos Case "pt" F_Txt(0) = "Limpeza de formatos" - F_Txt(1) = "- Texto: Limpa a formatação direta de caracteres aplicada ao texto" & Chr(13) _ + F_Txt(1) = "- Caracteres: Limpa a formatação direta de caracteres aplicada ao texto" & Chr(13) _ & "- Parágrafos: Limpa a formatação direta aplicada a parágrafos (incluindo listas não numeradas)" _ & Chr(13) & "-- Numerado: Limpa a formatação aplicada aos parágrafos da lista numerada" - F_Txt(2) = "Caracteres " + F_Txt(2) = "Caracteres" F_Txt(3) = "Parágrafos" F_Txt(4) = "Parágrafos numerados" F_Txt(5) = "Limpar" F_Txt(6) = "Sair" F_Txt(7) = "Retornar" - F_Txt(8) = "Aqui vai a ajuda" - F_Txt(9) = "Limpeza de formatação de texto concluída" + F_Txt(8) = "Ajuda" + F_Txt(9) = "Limpeza de formatação de caracteres concluída" F_Txt(10) = "Limpeza de formatação de parágrafos concluída" F_Txt(11) = "Limpeza e redefinição de números concluídas " F_Txt(12) = " parágrafos foram marcados" & Chr(13) & "Verifique os comentários" F_Txt(13) = "Em processamento ..." - F_Txt(14) = "Verifique estilos e numeração" & Chr(13) & Chr(13) & "Estilo anterior = " - F_Txt(15) = "Seleccione itens para limpar" + F_Txt(14) = "Verifique estilos e numeração" & Chr(13) & Chr(13) & "Estilo do parágrafo anterior = " + F_Txt(15) = "Selecione os itens para limpeza" Case else F_Txt(0) = "Format Cleaning" - F_Txt(1) = "- Text: Clears direct character formatting applied to text" & Chr(13)_ + F_Txt(1) = "- Characters: Clears direct character formatting applied to text" & Chr(13)_ & "- Paragraphs: Clears direct formatting applied to paragraphs (Including unnumbered lists)"_ & Chr(13) & "-- Numbered: Clears the formatting applied to numbered list paragraphs" F_Txt(2) = "Characters" @@ -484,14 +483,14 @@ Sub Trad_Formatos F_Txt(5) = "Clear" F_Txt(6) = "Exit" F_Txt(7) = "Return" - F_Txt(8) = "Here goes the help" + F_Txt(8) = "Help" F_Txt(9) = "Text format cleanup done" F_Txt(10) = "Paragraph format cleanup done" - F_Txt(11) = "Numbering format Cleanup an Reset done " - F_Txt(12) = " paragraphs have been marked" & Chr(13) & "Check the annotations" + F_Txt(11) = "Numbering format cleanup an reset done " + F_Txt(12) = " paragraphs have been marked" & Chr(13) & "Please check the comments." F_Txt(13) = "Working ..." - F_Txt(14) = " Check styles and numbering" & Chr(13) & Chr(13) & "Previous style = " - F_Txt(15) = "Selecct items to clean" + F_Txt(14) = " Check styles and numbering" & Chr(13) & Chr(13) & "Style of previous paragraph = " + F_Txt(15) = "Select items to clean" End Select End sub @@ -571,7 +570,7 @@ Sub Trad_Imagenes I_Txt(53) = "No hay marcos en el documento" case "pt" - I_Txt(0) = "Revisão de imagems" + I_Txt(0) = "Revisão de imagens" I_Txt(1) = "Mudar" I_Txt(2) = "Como caractere" I_Txt(3) = "Alterar/Atribuir" @@ -610,10 +609,10 @@ Sub Trad_Imagenes I_Txt(30) = "O nome da imagem não pode ficar vazio" I_Txt(31) = Chr(13) & "Erro: -1 Nome duplicado?" & Chr(13) & "Tente outro" I_Txt(32) = "Em processamento ..." - I_Txt(33) = "Esta macro não funciona isoladamente." & Chr(13) & "Es executada a partir do diálogo" - I_Txt(34) = "Primeiro de tudo você deve salvar o documento" + I_Txt(33) = "Esta macro não funciona isoladamente." & Chr(13) & "Ela é executada a partir do diálogo" + I_Txt(34) = "Salve primeiro o documento" I_Txt(35) = "Todas as imagens foram excluídas" - I_Txt(36) = "Error N. " + I_Txt(36) = "Erro N. " I_Txt(37) = "Erro: 1 - Um objeto pode ser selecionado: imagem, quadro, etc." & Chr(13) & Chr(13) _ & "Coloque o cursor em um trecho de texto e tente novamente" I_Txt(38) = "Erro: 91 - Você pode estar em um comentário" & Chr(13) & Chr(13) _ @@ -631,7 +630,7 @@ Sub Trad_Imagenes I_Txt(47) = "A imagem foi cortada com o Writer." & Chr(13) & Chr(13) & "Use outro programa para as culturas" I_Txt(48) = "Verifique a escala:" & Chr(13) & Chr(13) & "Caixa de diálogo ""Imagem"", guia ""Cortar""" _ & Chr(13) & "(% Largura deve ser igual a % Altura)" - I_Txt(49) = "Pendiente texto ayuda" + I_Txt(49) = "Texto de ajuda pendente" Rem --- Macro Leyendas I_Txt(50) = "Apenas legendas devem ser colocadas acima das imagens" & Chr(13) & "para formato Web."_ & " Se as legendas estiverem no topo, a macro" & Chr(13) & "ajustar imagens e quadros "_ diff --git a/userguides/sanitycheck/SanityCheck/Renombrar.xba b/userguides/sanitycheck/SanityCheck/Renombrar.xba index ae85866f..a873b692 100644 --- a/userguides/sanitycheck/SanityCheck/Renombrar.xba +++ b/userguides/sanitycheck/SanityCheck/Renombrar.xba @@ -3,10 +3,8 @@ REM ***** BASIC Módulo Renombrar ***** Option Explicit - Const Extension as string = "Revisiones v 1.0.0" Dim oDlgRenombrar - Rem ############ Sub Dlg_Renombrar ' Dim oDlgRenombrar @@ -36,7 +34,7 @@ End Sub Sub Casillas_Renombrar(oEv) oDlg = oEv.Source.Context - Dim Imgs, Marcos, Tablas, Indice, suma + Dim Imgs, Marcos, Tablas, Indice, suma With oDlg.getModel Imgs = .getbyname("Ch_Imgs").State Tablas = .getbyname("Ch_Tablas").State diff --git a/userguides/sanitycheck/SanityCheck/Resaltes.xba b/userguides/sanitycheck/SanityCheck/Resaltes.xba index 9d10f126..cfe27887 100644 --- a/userguides/sanitycheck/SanityCheck/Resaltes.xba +++ b/userguides/sanitycheck/SanityCheck/Resaltes.xba @@ -3,7 +3,6 @@ REM ***** BASIC ("Módulo Resaltes") ***** Option Explicit - Const Extension as string = "Revisiones v 1.0.0" 'Const BASE_KEY As string = "vnd.org.bantoniof.Revisiones.Configuration/" Const Rosado As String = "250,220,230" ' Text Body List Intro Const Amar1 As String = "255,228,181" ' Lista1 diff --git a/userguides/sanitycheck/SanityCheck/Tablas.xba b/userguides/sanitycheck/SanityCheck/Tablas.xba index 3c6a209b..1efea7e1 100644 --- a/userguides/sanitycheck/SanityCheck/Tablas.xba +++ b/userguides/sanitycheck/SanityCheck/Tablas.xba @@ -3,7 +3,6 @@ REM ***** BASIC Módulo Tablas ***** Option explicit - Const Extension as string = "Revisiones v 1.0.0" Global oTablas as Object Global oTabla as Object Global vCursor as Object diff --git a/userguides/sanitycheck/description.xml b/userguides/sanitycheck/description.xml index d3ff1019..1a70920f 100644 --- a/userguides/sanitycheck/description.xml +++ b/userguides/sanitycheck/description.xml @@ -4,7 +4,7 @@ xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink"> - + diff --git a/userguides/sanitycheck/dist/Sanitycheck-1.0.0.oxt b/userguides/sanitycheck/dist/Sanitycheck-1.0.0.oxt deleted file mode 100644 index 562c4e5d..00000000 Binary files a/userguides/sanitycheck/dist/Sanitycheck-1.0.0.oxt and /dev/null differ -- cgit v1.2.3