Test works

Addons.xcu

@@ -44,6 +44,11 @@
 			 		<value>%origin%/icons/img-48</value>
 				  </prop>
 				</node>
+			    <node oor:name="buttonClean" oor:op="replace">
+				  <prop oor:name="Context" oor:type="xs:string">
+				    <value>com.sun.star.text.GlobalDocument,com.sun.star.text.TextDocument,com.sun.star.text.WebDocument</value>
+				  </prop>
+				</node>
 			</node>
 		    <node oor:name="buttonValidate" oor:op="replace">
 		      <prop oor:name="Context" oor:type="xs:string">
@@ -60,7 +65,25 @@
 		        <value>_self</value>
 		      </prop>
 		      <prop oor:name="ImageIdentifier" oor:type="xs:string">
-			 	<value>%origin%/icons/img-48</value>
+			 	<value>%origin%/icons/img-48.png</value>
+		      </prop>
+		    </node>
+			<node oor:name="buttonClean" oor:op="replace">
+		      <prop oor:name="Context" oor:type="xs:string">
+		        <value>com.sun.star.text.GlobalDocument,com.sun.star.text.TextDocument,com.sun.star.text.WebDocument</value>
+		      </prop>
+		      <prop oor:name="Title" oor:type="xs:string">
+		        <value xml:lang="ru">Чистка</value>
+		        <value xml:lang="en">Purification</value>  
+		      </prop>
+		      <prop oor:name="URL" oor:type="xs:string">
+				<value>macro:///IPHRedaction.Clean.cleanButton</value>
+		      </prop>
+		      <prop oor:name="Target" oor:type="xs:string">
+		        <value>_self</value>
+		      </prop>
+		      <prop oor:name="ImageIdentifier" oor:type="xs:string">
+			 	<value>%origin%/icons/img-48.png</value>
 		      </prop>
 		    </node>
 		    

IPHRedaction/Clean.xba

@@ -67,14 +67,13 @@
 	saveAndreload()
 End Sub
 
+Sub cleanButton
+	MsgBox "Clean Works!"
+End Sub
 Sub workaroundForDiacriticKerningBug
 	    AskAndReplace("([:print:][\u0300-\u036F])","$1")
 End Sub
 
-Sub validate
-	MsgBox TEST WORKS
-End Sub
-
 Sub executeCitationCorrection
 	StartTracking
 	    AskAndReplace("(?<=[:alpha:])<(?=…>)"," <")

IPHRedaction/Validation.xba

@@ -72,7 +72,7 @@ Sub workaroundForDiacriticKerningBug
 End Sub
 
 Sub validate
-	MsgBox TEST WORKS
+	MsgBox "Validation works!"
 End Sub
 
 Sub executeCitationCorrection