Форматирование даты в word, выбрав нет. ячеек в таблице

Мое требование заключается в том, что я хочу изменить формат даты выбранных ячеек в таблице в документе word. Я попробовал ниже кода. Я могу изменить формат даты, если выберу одну дату. Но, я не могу изменить формат даты для выбранного нет. ячеек в таблице. ….pls справка

Код:

Sub ConvertDateFormat()
'
' Date formating
'

Dim oCl As Word.Cell
Dim oRng As Range
'
' Condition to check the selected data
'
  If Selection.Type = wdSelectionIP Or _
      Not Selection.Information(wdWithInTable) Then
    MsgBox "Select a cell or range of cells before running" _
      & " this macro.", , "Nothing Selected"
    Exit Sub
  End If
  For Each oCl In Selection.Cells
    Set oRng = oCl.Range
    '
    'Drop of the end of cell mark
    '
    oRng.End = oRng.End - 1
    With oRng


    If IsDate(oRng) Then
        Selection.Text = Format(Selection.Text, "yyyy-MM-dd")
        Selection.Collapse wdCollapseEnd
    Else ' not a date - end loop
        MsgBox ("Invalid Date Format")


    End If
        End With
      Next oCl
    lbl_Exit:

Exit Sub
End Sub

1 ответ

  1. Я думаю, что ваша проблема заключается в том, что вы пытаетесь изменить текст всего выделения, который содержит несколько ячеек. Поэтому я думаю, что вы должны заменить эту одну строку

    oRng.Text = Format(oRng.Text, "yyyy-MM-dd")
    

    И я не понимаю, почему вы сворачиваете отбор.