Динамическое изменение даты

[AvivNoa]

Добрый день . Прошу помочь в следующем вопросе.

(если спрашиваю глупость- не забрасывайте камнями).

В Worde - вставляю ( Insert-ом) (интерфейс англицкий) - Date and Time (в текст) , и рядом хочу что бы в продолжении текста, изменялось динамически следующая вставка времени (добавлялось ,например , 9 месяцев)

Пример:
Зачатие произошло 1.01.2001 ,
ожидаемое рождение ребенка (1.01.2001)+9месяцев = 1.10.2001


как можно применить формулу для изменения даты.
Наверняка есть стандартная формула в ВОРДЕ, просто я никогда этим не занималась.

Спасибо за помощь.

Noa

[Sasha_Smirnov]

Вот попробуйте для начала.
Программа тупо добавляет 9 мес. к той дате, что вы выделили в документе, — и печатает (ниже) новую.

Необходимо в Региональных стандартах Windows выбрать русский (или другой язык, где точки являются допустимыми в формате дат).

Sub ToFitTheDate()
Const NESKOLKO = 9
Dim dateNew As Date

With Selection
    
    If Not IsDate(.Text) Then MsgBox "Необходимо выделить ДАТУ.": Exit Sub
    
    MsgBox "Прибавляю " & NESKOLKO & " месяцев."
    
    dateNew = DateAdd("m", NESKOLKO, DateValue(.Text)) 'добавили NESKOLKO месяцев'
    
    .Collapse Direction:=wdCollapseEnd 'снятие выделения (с исходной даты)'
    
    .MoveRight wdSentence   'перемещение в следующее предложение (если оно есть)'
    
    .TypeParagraph          'печать абзаца (это для наглядности)'
    
    .TypeText Format(dateNew, "D.mm.yyyy") 'печать новой даты'
        
End With
End Sub

(В приложенном файле есть готовая кнопка — «Date FIT», пробуйте!)

[AvivNoa]

спасибо за ответ
Наверное я некорректно изложила свою проблему, если она заставила Вас так задумываться, а так понимаю , что проблема моя решается гораздо проще (если знать где копать )
Попытаюсь еще раз изложить суть проблемы . Имеется документ о проведении проверки , ну предположим следующего содержания :

% Я испектор сантехнадзова Сидоров Вася 10.02.09 произвел проверку ........................... следующей проверки 10.04.10 %

Так вот моя задача, при открытии файла в место где дата проверки текущей, "вкидывается " (системой- из Insert- Data and Time)- сегодняшняя дата , а в место где имеется "дата следующей проверки" - система сама добавляет заранее заданное число месяцев или дней.
Навярняка в ВОРДЕ имеется такая функция- просто я не могу её найти .
Функция типа DATA(dd/mm/yyyy)+DATA(dd/mm/yyyy), что то типа такого .
Спасибо за помощь
Noa

[Sasha_Smirnov]

Текущая дата вставляется сочетанием альт-шифт-D.

При следующем открытии (или при печати) она обновляется, если так настроен Word, или (выделив её) по F9.

А вот получить, в виде поля, предстоящую дату — не получается. Даже если в поле "Формула" сложить дату (сегодняшнюю) и 1 — то поле (после обновления) даёт 1 (а не завтрашнюю дату).

В то же время в программе такое действие проходит на ура. Так что присылайте документ — бум думать!

[AvivNoa]

отвечаю
во первых спасибо за желание помочь
файл документа приложен
спасибо

во получилось приложить файлик

[viter.alex]

Не знаю, что-то кажется мне, что полями здесь не отделаешься.
Нужно пользовать макрос. Может встроенные элементы формы? К ним можно нужный макрос прикрутить. Да…

[Sasha_Smirnov]

Да полями-то можно — да только знать их на уровне ассемблера! (А мы не таковские!)

Посему опять таки пробный макрос.

Sub FindDateFieldAndComputeOther()
Const Q = 1 'количество добавляемых к текущей дате дней, месяцев или лет'
Dim byteQ As Byte, dateSys As Date, dateTemp As Date

With ActiveDocument.Fields
    byteQ = .Count          'количество полей в активном документе'
    If byteQ = 0 Then Exit Sub 'если полей 0, программе работать не с чем'
    .Update                 'обновляем поля (дата - становится сегодняшней)'
    If Not .Item(1).ShowCodes Then _
    .ToggleShowCodes        'делаем коды полей видимыми'
End With


If byteQ < 4 Then _
MsgBox "В документе """ & ActiveDocument & """ меньше 4 полей;" & vbCr & _
"чтобы добавить, где Вам нужно, поля даты, жмите <Alt>+<Shift>+D": Exit Sub

With Selection
    .HomeKey (wdStory)      'кусор - в начало документа'
    .Find.Text = "^d"       'ищем поле (от курсора и далее)'
    .Find.Wrap = wdFindStop
    .Find.Execute           'нашли и выделили'

    If InStr(UCase(.Text), "DATE") Then
        .Fields.ToggleShowCodes 'переключили поле к виду "значение поля";'
                                	'теперь выделена сегодняшняя дата'
        dateSys = .Text     'сохранили значение даты в переменной dateSys'
        .Collapse           	'сняли с неё выделение'
    Else
        MsgBox "Документ не содержит поле DATE сразу за курсором.": Exit Sub
    End If
    
    
    dateTemp = dateSys + 1              'добавили 1 день'
    .Find.Execute           'нашли следующее поле'
                            	'это не обязательно дата, - любое поле Word;'
                            	'достаточно нажать контрол-F9 в нужных вам местах'
    .TypeText dateTemp      'напечатали (вместо него) дату завтрашнего дня'
    
    dateTemp = DateAdd("m", Q, dateSys) 'добавили Q месяцев'
    .Find.Execute           'нашли следующее поле'
    .TypeText dateTemp      'напечатали (вместо него) дату через Q месяцев'
    
    dateTemp = DateAdd("YYYY", Q, dateSys) 'добавили Q лет'
    .Find.Execute           'нашли следующее поле'
    .TypeText dateTemp      'напечатали (вместо него) дату через Q лет'
End With
End Sub

А в 2.doc — жмите кнопку «Next DATE».
И ради всего святого, не лепите лишних пробелов в Ваших образцовых текстах. А то прокляну:-)

[Serge_Bliznykov]

по ссылке многоуважаемого Aent (c форума forum.developing.ru)
нашёл статью Formatting Word fields with switches

и там есть ссылочка на любопытнейший файлик - DateCalc.zip - 81kb - (Updated 1/5/2008) A document containing instructions and examples of just about every date calculation you could wish for.

во вложении, решение задачи исключительно используя вычисления в полях!!!

p.s. Внимание! Не забывать обновлять поля выделив текст и нажав F9 !!

[Sasha_Smirnov]

Это ж моя прошлогодняя мечта! Супер, Серж. Жаль, что не сам.

[viter.alex]

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

…И ради всего святого, не лепите лишних пробелов в Ваших образцовых текстах. А то прокляну:-)

Это уж как полагается.

А человек-то нашел! Завтра печатаю, и учиться, учиться, учиться