Added check for headings in footers and headers

Redaction/Translations.xba

@@ -218,6 +218,18 @@ Function getRussian(identifier As String) As String
       Case "isInTable"
          getRussian = "находится внутри таблицы."
          Exit Function
+      Case "foundHeadingIn"
+         getRussian = "Найден заголовок в"
+         Exit Function
+      Case "inHeader"
+         getRussian = "верхнем колонтитуле"
+         Exit Function
+      Case "inFooter"
+         getRussian = "нижнем колонтитуле"
+         Exit Function
+      Case "inPageStyle"
+         getRussian = "стиля страниц"
+         Exit Function
 	  Case Else
 	    getRussian = "Перевод не найден"
 	End Select  
@@ -418,6 +430,18 @@ Function getEnglish(identifier As String) As String
       Case "isInTable"
          getEnglish = "located inside the table."
          Exit Function
+      Case "foundHeadingIn"
+         getEnglish = "Found heading in"
+         Exit Function
+      Case "inHeader"
+         getEnglish = "header"
+         Exit Function
+      Case "inFooter"
+         getEnglish = "footer"
+         Exit Function
+      Case "inPageStyle"
+         getEnglish = "of page style"
+         Exit Function
 	  Case Else
 	    getEnglish = "No translation"
 	End Select  
@@ -617,6 +641,18 @@ Function getCroatian(identifier As String) As String
       Case "isInTable"
          getCroatian = "smještene unutar stola."
          Exit Function
+      Case "foundHeadingIn"
+         getCroatian = "Naslov pronađen u"
+         Exit Function
+      Case "inHeader"
+         getCroatian = "zaglavlje"
+         Exit Function
+      Case "inFooter"
+         getCroatian = "podnožje"
+         Exit Function
+      Case "inPageStyle"
+         getCroatian = "stil stranice"
+         Exit Function
       Case Else
 	    getCroatian = "No translation"
 	End Select  
@@ -816,6 +852,18 @@ Function getSerbian(identifier As String) As String
       Case "isInTable"
          getSerbian = "смештене унутар стола."
          Exit Function
+      Case "foundHeadingIn"
+         getSerbian = "Наслов пронађен у"
+         Exit Function
+      Case "inHeader"
+         getSerbian = "хеадер"
+         Exit Function
+      Case "inFooter"
+         getSerbian = "фоотер"
+         Exit Function
+      Case "inPageStyle"
+         getSerbian = "стил странице"
+         Exit Function
       Case Else
 	    getSerbian = "No translation"
 	End Select  
@@ -1015,6 +1063,18 @@ Function getBosnian(identifier As String) As String
       Case "isInTable"
          getBosnian = "smještene unutar stola."
          Exit Function
+      Case "foundHeadingIn"
+         getBosnian = "Naslov pronađen u"
+         Exit Function
+      Case "inHeader"
+         getBosnian = "zaglavlje"
+         Exit Function
+      Case "inFooter"
+         getBosnian = "podnožje"
+         Exit Function
+      Case "inPageStyle"
+         getBosnian = "stil stranice"
+         Exit Function
       Case Else
 	    getBosnian = "No translation"
 	End Select