Мыльные пузыри
Немного развил тему прошлого поста и снял видео с пузырями
Немного развил тему прошлого поста и снял видео с пузырями
Использовал обычные мыльные пузыри, надувая дымом из кальяна. Снято в домашних условиях на Sony A7s2.
Sony A7s2 + 16-35 f/4
Комета C/2020 F3 (Neowise)Снято на Sony a7s2 + Canon 70-200 f/4
Параметры:
F/4, ISO 3200, 4 sec, 200mm
Sony A7s2 + Sony 50mm 1.8
Французские спецслужбы изменили свое первоначальное мнение о том, что Мохамед Бухлель радикализировался буквально за несколько дней перед 14 июля, а теракт совершил чуть ли не спонтанно.
Франсуа Моленс, прокурор Парижа:
“На текущей стадии расследования, после изучения различных обстоятельств и фотографий, все выглядит так, что Мохамед Бухлель вынашивал и готовил свой преступный план в течение многих месяцев, прежде чем начать действовать”.
Спецслужбы, в частности выяснили, что ровно за год до теракта, 14 июля 2015 года, Бухлель фотографировал фейерверк и толпу гуляющих по набережной Ниццы, а в январе 2015 года после атаки на “Шарли Эбдо” посылал своим приятелям смски с одобрением действий “солдат Аллаха”.
http://ru.euronews.com/2016/07/21/nice-attack-planned-in-adv...
Пока проходил производственную практику возникла необходимость отредактировать около 300 документов в одной папке. Это были доп. соглашения к ТД, но не суть.
В общем, чтобы не париться, я, путем поиска в гугл, создал небольшую форму с макросом для замены текста во всех файлах word (.docx) в определенной папке.
Выглядит это так:
*ниже приложу ссылку для скачивания*
Путь до папки копируется прямо из проводника:
С пунктами "что заменить" и "на что заменить" я думаю все понятно.
Чекбокс "с задержкой" предназначен для слабых ПК, дабы постоянное открытие и закрытие документов не загружало память. Текстбокс рядом с чекбоксом предназначен для указания задержки в секундах, 3 секунд на самых слабых ПК более, чем достаточно.
Вот как выглядит сам код:
Private Sub CommandButton1_Click()
Dim s As String, fldr As String
fldr = TextBox1.Value & "\"
s = Dir(fldr & "*.doc")
Do While s <> ""
With Documents.Open(fldr & s)
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = TextBox2.Value
.Replacement.Text = TextBox3.Value
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
If CheckBox1.Value = True Then Call idle(TextBox4)
ActiveDocument.Save
.Close
End With
s = Dir
Loop
MsgBox ("Замена завершена!")
End Sub
И код таймера задержки:
Public Sub idle(n As Single)
Dim t As Single
t = Timer + n
DoEvents
Do While Timer < t
Loop
End Sub
Как я уже говорил, части кода взяты с просторов интернета и совмещены в один документ. Вы можете встретить что-то подобное в интернете.
Сделал наглядный пример. Создал несколько документов в папке с текстом:
Заменяем:
После замены:
Документ с макросом вы можете скачать по ссылке: https://yadi.sk/d/58JkrdIXtCTtx
*Работает на версиях MS Office 2010 и 2013. Также необходимо разрешить запуск макросов в настройках безопасности:
Надеюсь, что этот небольшой макрос поможет кому-то сэкономить время и силы при работе с документами :)