Добрый день, начинающие макросописатели!

Знаете ли вы, что для запуска простенького цикла не обязательно добавлять модуль, создавать процедуру (Sub).

Несложный цикл, даже вложенный, можно выполнить прямо из окошка Immediate (полезнейшая штука, я щетаю).

В окне Immediate для разделения команд используется не перенос строки, а двоеточие (кстати, двоеточие как разделитель можно использоватьи в обычных макросах).

Например, я хочу в бекапе файла для уменьшения размера убрать все формулы, заменив их значениями. В нём больше ста листов, еле ворочается.

Набираю в окне Immediate такую строку

for each sh in activeworkbook.Sheets:sh.usedrange.value=sh.usedrange.value:debug.Print sh.name:next sh

Жму Enter – и дожидаюсь окончания работы цикла. Ура, всё готово.

Наверняка, каждый, кто пользуется макросами в работе с MS Office, раньше или позже сталкивается с проблемой вставки русского текста в окно редактора макросов или из него.

Неправильно настроенная система пытается перекодировать текст и заменяет кириллические знаки на символ вопроса.

Вот так:

Можно покопаться в реестре, исправить настройки перекодировки. Но это средство доступно не всем.

Есть выход проще: перед копированием текста переключите раскладку на русскую в исходной программе (той, из которой копируете текст).

Пусть ваши макросы работают как надо!

существует массив

10011100001101010000010001010110001110011001001001010001101101111

111011000001001

нужно разделить его так чтобы выглядел он примерно так

10-01-110-0001-10-10-10-00001-0001-01-01-10-001-110-011-001-001-001-01-0001-10-110-11111110-110-00001-001

Т.е чтобы в каждой серии присутствовали оба знака.

Объясните последовательность действий.

Пока проходил производственную практику возникла необходимость отредактировать около 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. Также необходимо разрешить запуск макросов в настройках безопасности:

Надеюсь, что этот небольшой макрос поможет кому-то сэкономить время и силы при работе с документами :)