Макрос для создания копий одного файла на весь месяц

[zenner]

Добрый День! Помогите пожалуйста с макросом который создаст копию этого CTA-32 Dispozitie de lucru 01.11.2012.rar файла на весь месяц но чтобы имя файла соответствовало дате и чтобы дата внутри документа(которая окрашена желтым цветом) также автоматически менялась. СПАСИБО!!!

[zenner]

Сообщение от zenner

Добрый День! Помогите пожалуйста с макросом который создаст копию этого Вложение 55226 файла на весь месяц но чтобы имя файла соответствовало дате и чтобы дата внутри документа(которая окрашена желтым цветом) также автоматически менялась. СПАСИБО!!!

Например если в феврале 28 дней, чтобы макрос создал 28 копий этого файла и чтобы имя файла соответствовало дате и чтобы дата внутри документа(которая окрашена желтым цветом) также автоматически менялась.

[viter.alex]

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

Sub CreateMonthCopies()
    Dim i As Integer
    Const BMNAME As String = "DocumentDate"
    Dim sDocDir As String
    Dim sDocName As String
    Dim bm As Bookmark, oRng As Range
    sDocDir = Mid(ActiveDocument.FullName, 1, InStrRev(ActiveDocument.FullName, Application.PathSeparator))
    For i = 1 To 31
        On Error Resume Next
        sDocName = DateValue((i & "/" & Month(Date) & "/" & Year(Date)))
        If Err.Number = 0 Then
            Set oRng = ActiveDocument.Bookmarks(BMNAME).Range
            oRng.Text = DateValue((i & "/" & Month(Date) & "/" & Year(Date)))
            ActiveDocument.Bookmarks.Add BMNAME, oRng
            ActiveDocument.SaveAs2 sDocDir & sDocName & ".doc", FileFormat:=0, AddToRecentFiles:=False
        Else
            Err.Clear
            Exit For
        End If
        DoEvents
    Next
End Sub

[zenner]

Сообщение от viter.alex

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

Sub CreateMonthCopies()
    Dim i As Integer
    Const BMNAME As String = "DocumentDate"
    Dim sDocDir As String
    Dim sDocName As String
    Dim bm As Bookmark, oRng As Range
    sDocDir = Mid(ActiveDocument.FullName, 1, InStrRev(ActiveDocument.FullName, Application.PathSeparator))
    For i = 1 To 31
        On Error Resume Next
        sDocName = DateValue((i & "/" & Month(Date) & "/" & Year(Date)))
        If Err.Number = 0 Then
            Set oRng = ActiveDocument.Bookmarks(BMNAME).Range
            oRng.Text = DateValue((i & "/" & Month(Date) & "/" & Year(Date)))
            ActiveDocument.Bookmarks.Add BMNAME, oRng
            ActiveDocument.SaveAs2 sDocDir & sDocName & ".doc", FileFormat:=0, AddToRecentFiles:=False
        Else
            Err.Clear
            Exit For
        End If
        DoEvents
    Next
End Sub

Помогите пожалуйста Чайнику: Я скачал Ваш прикрепленный файл,создал файл Normal.dot (или это файл в папке Шаблоны?), вставил код макроса но не работает!Объясните пожалуйста по шагам что и как мне нужно сделать. СПАСИБО!!!(И еще: Я не покрасил желтым по невнимательности дату еще в одном месте: "Dispoz. Din programa DMTC din 01.11.2012(1 dispozitii" ) . Там тоже нужно менять эту дату.

[zenner]

И еще раз для точности хотел бы объяснить точно, то что мне нужно.Я создаю один ворд файл как в прикреплении, называю его первым числом месяца, внутри документа также пишу дату первого дня месяца, далее запускаю макрос который сделает (например для февраля) 28 файлов которые как в названии самого файла так и внутри документа(там где отмечено желтым) будут иметиь соответствующую дату.

[viter.alex]

Шаблон Normal.dot создавать не нужно. Это шаблон, который ворд использует всегда по умолчанию. Свой шаблон удалите. Затем, нажимаете Alt+F11. Попадаете в редактор VBA. Слева видите дерево проектов. Шаблон Normal в самом верху.

Выделяете, кликнув по нему. Добавляете новый модуль, как показано на скриншоте. Дважды кликаете по имени добавленного модуля. В появившееся большое поле кода справа вставляете текст макроса. После этого уже в ворде макрос можно вызвать, нажав Alt+F8
В указанном месте дата не выделена, но ссылку я туда сам вставил. Будет обновляться.
Вам нужно только открыть файл и запустить макрос. Именовать файл по дате первого числа не нужно.