Question

我的要求是我要更改word文档中表格中所选单元格的日期格式。我试过下面的代码。如果我选择一个日期，我可以更改日期格式。但是，我无法更改选定号码的日期格式。表中的单元格。 ....请帮忙

代码：

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

Answer 1

我认为您的问题是您尝试更改包含多个单元格的整个选择的文本。所以我认为你必须用

代替那一行

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

而且我不明白为什么你要抄袭选择。

通过选择否来在单词中格式化日期。表格中的细胞

1 个答案: