выгрузка даты в документ word

Программирование на Visual Basic for Applications
mshak
Обычный пользователь
Обычный пользователь
 
Сообщения: 59
Зарегистрирован: 29.01.2008 (Вт) 14:17

выгрузка даты в документ word

Сообщение mshak » 14.02.2008 (Чт) 15:28

День добрый. Во время исполнения долга перед отечеством наткнулся на такой вопрос:
каким образом выгрузить в документ WORD значение из текстбокса (текст бокс на форме аксеса), в котором содержится дата, в следующем формате: "dd mmmm yyyy г."
например сегодняшнее число должно отображатся следующим образом: "14 февраля 2008 г." а вместо этого я вижу "14.02.08"
Делал так:
Код: Выделить всё

word_doc.Paragraphs.Add
word_doc.Paragraphs(word_doc.Paragraphs.Count).Range.Text = vbTab & ДатаПроведения
' ДатаПроведения - textbox


когда делал подобное для выгрузки в эксель, то применял следующую конструкцию:
Код: Выделить всё

With excel_sheet.Range("H5")
    .Font.Bold = True
    .Value = ДатаПроведения ' ДатаПроведения - textbox
    .HorizontalAlignment = xlCenter
    .NumberFormat = "[$-FC19]dd mmmm yyyy г.;@"
End With


А тут ума не приложу

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

Сообщение Денис » 14.02.2008 (Чт) 16:22

Код: Выделить всё
word_doc.Paragraphs.Add
word_doc.Paragraphs(word_doc.Paragraphs.Count).Range.Text = vbTab & Format(ДатаПроведения, "dd mmmm yyyy г.;@")
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.

mshak
Обычный пользователь
Обычный пользователь
 
Сообщения: 59
Зарегистрирован: 29.01.2008 (Вт) 14:17

Сообщение mshak » 14.02.2008 (Чт) 16:31

спасибо большое


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 21

    TopList