Question

我有以下日期

2018年2月12日 2018年2月13日 2018年2月14日

我需要将上述日期转换为12.2.2018,13.2.2018,14.2.2018，这些日期应该加下划线。

Answer 1

此代码段将以所需格式将日期插入光标位置，并插入尾随空格。

Dim d As String

d = "7/25/2011"
With Selection
    .Font.Underline = wdNone            ' next text will not be underlined
    .TypeText " "                       ' or any separator that will follow the date
    .Collapse                           ' remove selection
    .Start = .Start - 1                 ' set cursor before the separator
    .Collapse                           ' remove selection
    .Font.Underline = wdUnderlineSingle ' next text will be underlined
    .TypeText Format(d, "dd.mm.yyyy")
    .Collapse                ' remove selection and leave the cursor right after the date
End With

将日期mm / dd / yyyy转换为mm.dd.yyyy word vba

1 个答案: