необычное применение обычных вешей
НЕОБЫЧНОЕ ПРИМЕНЕНИЕ ОБЫЧНЫХ ВЕЩЕЙ
Ежедневно мы покупаем множество вещей, которые нам не нужны. Только мы об этом не догадываемся. Также как и не подозреваем о секретных свойствах тех вещей, которые у нас уже есть. Оглянись вокруг и найди применение всему, что тебя окружает.
1. Хочешь устранить неприятный запах в сумке, холодильнике, коробке, банке из под какого-либо продукта? Положи туда неиспользованный чайный пакетик.
2. Перекись водорода не только заживляет раны, но и выводит пятна на одежде.
3. Не торопись покупать специальные тряпочки для того, чтобы протирать ими свои любимые гаджеты! Детские влажные салфетки отлично справляются с этой задачей.
4. Хочешь избавиться от муравьев? Насыпь побольше корицы в «опасные места».
5. Металлические предметы отлично очищаются с помощью зубной пасты.
6. Протри столовые приборы обратной стороной банановой кожуры. Сразу заметишь, как они засверкают.
7. Мед может заменить антибактериальное средство.
8. Измельчи таблетку аспирина, разбавь водой и помажь место укуса комара. Все пройдет!
9. Сода идеально подходит для чистки зубов, а особенно для их отбеливания.
10. Крем для рук придаст блеск твоей обуви.
11. Древесный уголь поможет освежить воздух в помещении.
12. Окна можно мыть бумажными кофейными фильтрами. Тогда не будет никаких разводов.
13. Хочешь заточить ножницы? Сложи пополам кусочек фольги и порежь ее.
Замена ключевых слов в Шаблоне ОпенОфис
Функция ПреобразоватьВURL(ИмяФайла)
Возврат "file:///" + СтрЗаменить(ИмяФайла, "∖", "/");
КонецФункции
Процедура ЗапШаблон()
ServiceManager = СоздатьОбъект("com.sun.star.ServiceManager");
Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");
Scr = СоздатьОбъект("MSScriptControl.ScriptControl");
Scr.Language="javascript";
Scr.Eval("Args=new Array()");
Args = Scr.Eval("Args");
Scr.AddObject("ServiceManager", ServiceManager);
ТекстовыйПроцессор = Desktop.LoadComponentFromURL(ПреобразоватьВURL("d:/test.odt"), "_blank", 0, Args);
Replace = ТекстовыйПроцессор.CreateReplaceDescriptor();
//ключевое слово в шаблоне {НомерДог} заменяем на 999
Replace.SearchString = "{НомерДог}";
Replace.ReplaceString = "999";
ТекстовыйПроцессор.ReplaceAll(Replace);
КонецПроцедуры
