在包含日期的 Word 文档中搜索今天的日期答案

【问题标题】：Search for the date of today in a Word doc filled with dates在包含日期的 Word 文档中搜索今天的日期
【发布时间】：2016-05-20 21:06:24
【问题描述】：

我的 Word 文档中填写了几年的日期。我想添加一个今天搜索的宏。日期格式为 DD.MM.YYYY。我尝试了很多东西都是徒劳的。我尝试的最后一件事是：

Sub Today
    Dim c As String
    Set c = Format(Now(), "DD.MM.YYYY")
    c.Find.ClearFormatting
    c.Find.Execute
End Sub

但它不起作用......

【问题讨论】：

你试过Datetime.Now而不是Now吗？
这个问题表明严重缺乏认真的研究。如果您尝试使用 Word 的内置查找功能搜索日期并将其记录在宏中，那么您已经开始使用有用的代码基础。 “它不起作用”不是一个有用的问题描述。您需要详细说明它是如何不起作用的。我很确定您会收到一条错误消息以及生成它的行。记录当前日期的查找宏。单击您的问题下方的编辑并替换该代码。然后询问如何调整它以找到任何一天的“今天的日期”，我们可以为您提供帮助。
您将 c 声明为 String，然后使用 Set 来赋值： Set 仅在为对象类型变量赋值时使用。
养成break模式的习惯，用Msgbox显示结果，让你知道问题出在哪里。
找到后你想做什么？

标签： vba date search ms-word

【解决方案1】：

非常感谢，拉胡尔

你帮我看路了。我最终想出了这个，它成功了。要回答你的附带问题，在 Find it 之后必须去那里。

Sub Today()
Dim s As String
s = Format(Now(), "DD.MM.YYYY^p")
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = s
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    If Selection.Find.Found Then
    Exit Sub
    Else
    MsgBox "Date not found."
    End If
End Sub

一切顺利，

威廉

【讨论】：

再次感谢拉胡尔。我之前没有注意到接受功能。我接受了。

【解决方案2】：

这是您要找的吗？

Sub Demo123()
Application.ScreenUpdating = False
Dim s As String
s = Format(Now(), "DD.MM.YYYY")
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = s
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = False
    .Execute
  End With
  Do While .Find.Found
      .HighlightColorIndex = wdYellow
      'or do whatever you want
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

【讨论】：