Тема: найти дату в документе и скопировать в имя файла
Добрый день.
Помогите, пожалуйста, с макросом, который ищет в документе вторую дату в формате ДД.ММ.ГГГГ, генерирует имя как <старое имя+ДД.ММ.ГГГГ> и сохраняет документ.
- Fck_This
- генерал-полковник
- Неактивен
Re: найти дату в документе и скопировать в имя файла
sylvio пишет:
Добрый день.
Помогите, пожалуйста, с макросом, который ищет в документе вторую дату в формате ДД.ММ.ГГГГ, генерирует имя как <старое имя+ДД.ММ.ГГГГ> и сохраняет документ.
На тему сохранения документа с определённым именем я уже отвечал на данном форуме не так давно.
http://wordexpert.ru/forum/viewtopic.php?id=3080
Даже нашёл, special for u.
Поиск осуществляйте с подстановочными символами, тоже тем куча, но вот вам код:
Public Sub lol()
sText = yay
End SubСоздайте процедуру, как в ветке форума, которую я укзал в начале, и вставьте туда строку sText = yay. Переменная sText будет строкой, которая должна добавляться к имени документа, т.е. имядокумента = Replace(sName, ".docx", "") & sText & ".docx"
Или какой-то ваш формат документа.
Public Function yay()
Dim sPerem As String
Dim sFindStroka As String
sFindStroka = "[0-9]{2}[.][0-9]{2}[.][0-9]{4}"
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Wrap = wdFindContinue
.MatchWildcards = True
Do While .Execute(FindText:=sFindStroka, Forward:=True) = True
.Execute
sPerem = Selection.Range.Text: yay = sPerem: Exit Function
Loop
End With
End FunctionЕсли совсем беда будет с совмещением макросов - пишите.
Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871
Re: найти дату в документе и скопировать в имя файла
Большое спасибо за подсказки, буду разбираться.