--- reports/tools.el	2004/07/16 16:54:51	1.3
+++ reports/tools.el	2016/09/23 04:17:50	1.8
@@ -7,3 +7,33 @@
     (insert " "))
   (beginning-of-line))
 
+(defun convert-utf-to-html-entites  ()
+  "Convert utf entities to html"
+  (interactive)
+  (save-excursion
+    (setq case-fold-search nil)
+    (beginning-of-buffer)
+    (while (search-forward "«" nil t)
+    (replace-match "«" nil t))
+    (beginning-of-buffer)
+    (while (search-forward "»" nil t) 
+    (replace-match "»" nil t))
+    (beginning-of-buffer)
+    (while (search-forward "–" nil t) 
+    (replace-match "–" nil t))
+    (beginning-of-buffer)
+    (while (search-forward "—" nil t) 
+    (replace-match "—" nil t))
+    (beginning-of-buffer)
+    (while (search-forward "Є" nil t) ; YE
+    (replace-match "Є" nil t))
+    (beginning-of-buffer)
+    (while (search-forward "і" nil t) ; i
+    (replace-match "і" nil t))
+    (beginning-of-buffer)
+    (while (search-forward "ї" nil t) ; yi
+    (replace-match "ї" nil t))
+    (beginning-of-buffer)
+    (while (search-forward "І" nil t) ; yi
+    (replace-match "І" nil t))
+  ))