Календарь для ввода даты

[agregator]

Здравствуйте. Есть календарь на форме для ввода дат, работающий в Excel, подскажите как его переделать, чтобы он работал в Worde (хотя бы кнопка "Ок").

[akokin]

Попробуйте такой календарь, специально для Word:
http://wordexpert.ru/page/kalendar-v-word

[viter.alex]

Похоже, что нужно просто заменить вот эти процедуры:

Private Sub Cmd_Select_Click()
    'Команда - закончить выбор даты и закрыть форму
    'SelectedDate = CStr(DateValue(dt_1))
    Selection.TypeText dt_1
    Unload Me
End Sub

Private Sub Дата_с_продолжением_Click()
    'Команда - закончить выбор даты и закрыть форму
    'SelectedDate = CStr(DateValue(dt_1))
    Selection.TypeText dt_1
    'Unload Me
End Sub

[agregator]

Всем спасибо за помощь. Я выбрал:
Selection.Text = Format(dt_1, "dd.mm.yyyy H:MM")
Подскажите пожалуйста код, который прописывает даты во все выделенные ячейки Wordовской таблицы.

[viter.alex]

Dim oCell As Cell
For Each oCell In Selection.Cells
  oCell.Range.Text = "Твой текст"
Next

[agregator]

viter.alex, спасибо. А как сделать, что бы работало и в ячейках и вне ячеек? Я попробовал так, не работает:
Dim oCell As Cell
If oCell = Nothing
Then
Selection.Text = Format(dt_1, "dd.mm.yyyy H:MM")
Else
For Each oCell In Selection.Cells
oCell.Range.Text = Format(dt_1, "dd.mm.yyyy H:MM")
End If

[agregator]

Состряпал такой код, вроде работает:
Private Sub Cmd_Select_Click()
Dim oCell As Cell
On Error GoTo db
For Each oCell In Selection.Cells
oCell.Range.Text = Format(dt_1, "dd.mm.yyyy H:MM")
Next
Exit Sub
db: Selection.Text = Format(dt_1, "dd.mm.yyyy H:MM")
End Sub

Может сделаете, что нибудь получше?

[viter.alex]

Например, так

Dim oCell As Cell
If Selection.Cells.Count > 0 Then
  For Each oCell In Selection.Cells
    oCell.Range.Text = "Твой текст"
  Next
Else
  Selection.TypeText = "Твой текст"
End If

[agregator]

Viter.alex, последний код работает в таблице, а вне таблицы пишет Debug на

If Selection.Cells.Count > 0 Then

Selection.Cells.Count = <Запрашиваемый номер семейства не существует.>

[viter.alex]

Тогда вместо Selection.Cells.Count используйте Selection.Information(wdWithinTable ):

If Selection.Information(wdWithinTable) Then