Заполнение календаря.

[Alfimov26rus]

Здравствуйте! Подскажите как реализовать такую схему: пациент поступил допустим 06.11.2015. Как теперь сделать чтобы с этой даты с учетом календаря выполнялось заполнение листа назначений. То есть: в листе назначений появились даты с 06.11.2015 +1+2+3+4+5 ....+15, или они автоматически менялись в соответствии с календарем.

[Alfimov26rus]

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

[Ципихович Эндрю]

про то где это делаете ни слова, молчите далее.......

[Борис_Р]

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

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

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

Sub sequence_dates()
    Dim myRange As Range  ' объявляем переменные.
    Dim FirstDate As Date
    Dim IntervalType As String '    "yyyy"  Год, "q"   Квартал, "m"    Месяц,
'                                    "y"  День года, "d"    День, "w"    День недели "ww"    Неделя
    Dim Number As Integer
    IntervalType = "d"
    Number = 1          ' Приращение
    Set myRange = ActiveDocument.Content
    myRange.Find.Execute FindText:="[0-9]{2}.[0-9]{2}.[0-9]{4}", Forward:=True, MatchWildcards:=True
    If myRange.Find.Found = True Then
        FirstDate = myRange.Text '
        myRange.Collapse Direction:=wdCollapseEnd
    Else
        MsgBox "В документе отсутствуют даты для обработки"
        Exit Sub
    End If
'После того, как получили значение начальной даты, в цикле изменяем значения остальных дат
    Do
        myRange.Find.Execute FindText:="[0-9]{2}.[0-9]{2}.[0-9]{4}", Forward:=True, MatchWildcards:=True
        If myRange.Find.Found = True Then
            myRange.Text = DateAdd(IntervalType, Number, FirstDate)
            Number = Number + 1
'           Debug.Print (Number & vbTab & myRange.Text)
            myRange.Collapse Direction:=wdCollapseEnd
        Else: Exit Do
        End If
    Loop
End Sub

Удачи

[Demetros]

Может так проще будет.