Свежие публикации

Здесь собраны все публикуемые пикабушниками посты без отбора. Самые интересные попадут в Горячее.

22 Апреля 2017
6

Прям Бендер из Футурамы

Пруфы:http://www.newsru.com/crime/21apr2017/fsspbeatpregnputa.html


В суд Омска в пятницу было передано уголовное дело, возбужденное в отношении бывшего сотрудника Федеральной службы судебных приставов (ФССП). Его подозревают в избиении и ограблении беременной проститутки. Мотивом расправы стало желание отомстить женщине, которая отбивала клиентов. Дело в том, что после увольнения с госслужбы пристав стал сутенером.


Подробнее: http://www.newsru.com/crime/21apr2017/fsspbeatpregnputa.html

Преступление было совершено в начале года. 24 января в полицию Советского административного округа Омска позвонила перепуганная женщина. Она сообщила, что к ней в квартиру ворвались трое злоумышленников. Визитеры избили хозяйку и похитили ее вещи, пишет Om1.ru.


На место происшествия выехала оперативно-следственная группа. А уже через несколько часов полицейским удалось задержать подозреваемых. Ими оказались 24-летние мужчины, один из которых раньше работал в службе судебных приставов и сохранил свое служебное удостоверение.


Как оказалось, отставной пристав и его друзья содержали массажный салон, в котором, по одной из версий, оказывали за деньги и сексуальные услуги. Потом организаторы бизнеса узнали, что такие же услуги предоставляет женщина, живущая неподалеку от их салона. Мужчины решили припугнуть конкурентку.


Злоумышленники заранее распределили роли. Один из них позвонил проститутке и представился клиентом, желавшим "культурно отдохнуть", пишет Om1.ru. Женщина согласилась его принять, но в назначенный час мужчина появился на пороге ее дома вместе с двумя приятелями.


При встрече выяснилось, что женщина, принимающая заказы как проститутка, находится на 32-й неделе беременности. Оказывать сопротивление визитерам, один из которых назвался сотрудником ФССП, потерпевшая не стала.


"Со времени работы в ведомстве у него остались форма и удостоверение, которое он и предъявил женщине", - рассказал о действиях бывшего пристава помощник прокурора Советского округа Омска Ярослав Концевой.


Пока один из нападавших удерживал избитую хозяйку, двое других обыскивали ее квартиру. В этот момент присматривавший за женщиной молодой человек отвлекся, и тогда она сумела позвонить в полицию.


Грабители успели скрыться до приезда блюстителей закона, похитив 20 тысяч рублей и ноутбук. Но стражи порядка быстро вышли на их след.


Пока шло следствие, пострадавшая благополучно родила малыша. Несмотря на инцидент и опасную профессию матери, ребенок появился на свет здоровым.


В отношении бывшего пристава-сутенера и его сообщников возбуждено уголовное дело по ст. 161 ("Грабеж, сопряженный с незаконным проникновением в жилище, совершенный группой лиц по предварительному сговору с применением насилия, не опасного для жизни") УК РФ. Им грозит наказание в виде семи лет лишения свободы.

Показать полностью 1
13

Подсчет символов в PowerPoint

Переводчики, которым платят за символы, сталкивались с проблемой подсчитать символы в презентации PowerPoint. Копировать в Word и считать там долго и гиморно.

Предлагаю найденный (и разжеванный мной) на просторах интернета способ.

Итак, будем вставлять скрипт для подсчета символов в PowerPoint


1. Создаем новую презентацию и сохраняем ее как "Презентация PowerPoint с поддержкой макросов. Файл сохраняем в надежное место и не удаляем если хотим считать символы и дальше


2. Открываем раздел для разработчиков: Файл=>Параметры=>Настройка ленты и ставим галочку на Разработчик

3. Открываем в закладке Разработчик VisualBasic (слева)

Для тех, у кого кнопка неактивна - доустанавливаем компонент Мелкософта VisualBasic

4. В окне VisualBasic выбираем: Insert=>Module

И сюда вставляем текст:

Public Sub TextSymbols()

Dim PPT As Slide

Dim i As Long

Dim j As Long

Dim k As Long

Dim Symbs As Long

On Error GoTo SysErr


If Windows.Count = 0 Then

MsgBox "Необходимо открыть файл презентации.", vbExclamation + vbOKOnly

Exit Sub

End If


Symbs = 0


For i = 1 To ActivePresentation.Slides.Count

Set PPT = ActivePresentation.Slides(i)


For j = 1 To PPT.Shapes.Count

If PPT.Shapes(j).TextFrame.HasText = msoTrue Then Symbs = Symbs + Len(PPT.Shapes(j).TextFrame.TextRange.Text)


If PPT.Shapes(j).GroupItems.Count > 0 Then

For k = 1 To PPT.Shapes(j).GroupItems.Count

If PPT.Shapes(j).GroupItems(k).TextFrame.HasText = msoTrue Then Symbs = Symbs + Len(PPT.Shapes(j).GroupItems(k).TextFrame.TextRange.Text)

Next k

End If

Next j

Next i


MsgBox "Символов=" + Trim(Str(Symbs))


SysErr:

Resume Next

End Sub


5. Закрываем окно VisualBasic и добавляем скрипт в панель быстрого доступа: Файл=>Параметры=>Панель быстрого доступа=>Выбрать команды из макроса=>выделяем наш скрипт и добавляем

В итоге получаем такое:
Ну и результат:

В последующем для подсчета символов сначала запускаем наш файл с пункта 1, а потом тот, в котором нужно подсчитать символы.

Символы в "Заметки" не считает

П.С. Скрипт писал не я, я просто расписал от "А до Я" способ настройки

Показать полностью 6
445

Двулапая Ракета

Несколько лет назад в интернете появилась необычная история котенка Анакина, у которого с рождения были лишь две передние лапы и не было задних. История Анакина сложилась удачно, его подобрали и взяли из приюта к себе в семью хорошие люди.

У другого двуногого кота, с которым мы вас сейчас познакомим, надеемся будет такая же хорошая судьба. Итак, познакомьтесь с Ракетой, бело-черным котенком, у которого как и у Анакина, всего две лапы из четырех и тоже передние. И также как Анакина Ракету обнаружили случайно в группе бродячих кошек.

Жительница Берлина по имени Марин подкармливала обитающих возле ее дома бродячих кошек. Одна из местных кошек ранее принесла потомство и женщина заметила среди котят, которым было от роду несколько недель, котенка с дефектом - у него не было задних лап.

Когда она захотела его поймать, котенок необычайно быстро убежал от нее на своих двух лапках! Тогда женщина вернулась через некоторое время с ароматной приманкой. Котенок вышел на запах еды и женщине удалось поймать его.

Котенок оказался мальчиком и он поразил Марин тем, что умело и ловко балансировал на двух лапах и умел быстро бегать.

Марин взяла его к себе домой и приняла решение оставить у себя насовсем. По ее словам в первую ночь котенок был напуган и плакал, но потом он быстро освоился в ее доме.

- Он ходил за мной по всюду и громко мурлыкал. И он освоился так, что может залезть куда угодно. Его умение балансировать просто невероятное.

Ракета отъелся и обогрелся и полюбил валяться на полу вверх животом. Он также подружился с другими двумя кошками, жившими у Марин.

Показать полностью 5

Время прогревать аудиторию!

Сентябрь — это не только начало учебного года, но и время активной подготовки к горячему сезону распродаж. Самое время подключить подписку Пикабу+:

  • рассказывайте о своих товарах и услугах

  • добавляйте ссылки

  • создавайте витрину товаров прямо в профиле

  • подключайте дополнительное продвижение постов

Пора готовить сани!

ПОДКЛЮЧИТЬ ПИКАБУ+

15

Ученые из России создали полимеры, способные заменить металл

Ученые из России создали полимеры, способные заменить металл
Как сообщают СМИ, ученые Кабардино-Балкарского государственного университета имени Х. М. Бербекова сумели изобрести столь сверхпрочные материалы, которые во многом превосходят металл.


Суперконструкционные полимеры экономичны в производстве, устойчивы к радиации, термо- и морозостойки. Кроме того, они более чем в два раза легче алюминия.


Применять новые материалы можно при строительстве самолетов, ракет и автомобилей. А также - в медицине и нефтегазовой отрасли. С их помощью можно создавать оборудование, способное работать в экстремальных температурных условиях, в том числе в условиях Арктики и в космосе.

Показать полностью
Мои подписки
Подписывайтесь на интересные вам теги, сообщества, авторов, волны постов — и читайте свои любимые темы в этой ленте.
Чтобы добавить подписку, нужно авторизоваться.

Отличная работа, все прочитано! Выберите