litvinovg/cleanandvalidate
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases 50 Packages Wiki Activity Actions

Do not clean in read only documents

Browse source
This commit is contained in:
Georgy Litvinov 2020-07-02 17:54:23 +02:00
parent 8116838758
commit c7c164c553
6 changed files with 23 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Redaction/Translations.xba
View file

@ -202,6 +202,9 @@ Function getRussian(identifier As String) As String
Exit Function
Case "dialogRussianFixesIPH"
getRussian = "Исправления для текстов на русском"
Exit Function
Case "documentIsReadOnly"
getRussian = "Документ открыт только для чтения. Запуск чистки в данном режиме невозможен."
Exit Function
Case Else
getRussian = "Перевод не найден"
@ -387,6 +390,9 @@ Function getEnglish(identifier As String) As String
Exit Function
Case "dialogRussianFixesIPH"
getEnglish = "Corrections for texts in Russian"
Exit Function
Case "documentIsReadOnly"
getEnglish = "The document is read-only. Cleaning cannot be started in this mode."
Exit Function
Case Else
getEnglish = "No translation"
@ -572,6 +578,9 @@ Function getCroatian(identifier As String) As String
Case "dialogRussianFixesIPH"
getCroatian = "Ispravci za tekstove na ruskom"
Exit Function
Case "documentIsReadOnly"
getCroatian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada."
Exit Function
Case Else
getCroatian = "No translation"
End Select
@ -756,6 +765,9 @@ Function getSerbian(identifier As String) As String
Case "dialogRussianFixesIPH"
getSerbian = "Исправци за текстове на руском"
Exit Function
Case "documentIsReadOnly"
getSerbian = "Документ је само за читање. Чишћење се не може покренути у овом режиму."
Exit Function
Case Else
getSerbian = "No translation"
End Select
@ -940,6 +952,9 @@ Function getBosnian(identifier As String) As String
Case "dialogRussianFixesIPH"
getBosnian = "Ispravci za tekstove na ruskom"
Exit Function
Case "documentIsReadOnly"
getBosnian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada."
Exit Function
Case Else
getBosnian = "No translation"
End Select