我有一个每周发送的报告模板，在四个不同的位置（三个在正文中，一个在主题行）是与前一周的星期一相对应的日期。（基本上，这是我报告的那一周的“一周”日期，总是前一周。）
我想在光标所在的位置添加一个日期。（如果我能以某种方式在模板中为我想要添加日期的位置设置书签，那就更好了。）我已经对插入文本进行了大量研究，并且在我的示例中不断遇到相同的两个问题一直在发现：
我可以编写一个宏来打开一条新消息并填充各个区域（主题行、正文等），但我无法让该宏仅处理我已经打开的消息。
对于我尝试过的所有在我已经打开的消息上实际运行的示例，我只能让它向正文添加文本。我希望创建一些简单的东西，就像 Word 所做的那样：
Selection.TypeText Text:="Hello!"
这些方法对我来说都不起作用。
*编辑＃1：当然，在我发布此内容后，我发现我找到的解决方案之一只是将文本添加到光标所在的位置，现在可以工作。
TypeName(Application.ActiveWindow) = "Inspector" Then
SendKeys Format(Now, "MMMM dd, yyyy")
DoEvents
End If
如果我坚持这种方法，我只需要知道如何设置它，以便插入前一周星期一的日期，而不是今天的日期（我并不总是在同一天运行报告，所以我可以不仅仅是告诉它做一些简单的事情，比如从今天的日期中减去八天）。我还想知道是否可以告诉它通过执行查找/替换之类的操作将该日期插入到多个位置。
*编辑＃2：我还遇到了一个快速查找/替换主体的不错的例子。它唯一的问题是它完全去除了所有格式，包括表格、颜色等。
Dim Insp As Inspector
Dim obj As Object
Set Insp = Application.ActiveInspector
Set obj = Insp.CurrentItem
obj.Body = Replace(obj.Body, "xxxxxxxxxx", Format(Now - 8, "MMMM dd, yyyy"))
Set obj = Nothing
Set Insp = Nothing
（您可能还注意到我-8在日期格式中添加了 a 。我想如果我不能让它始终添加我正在寻找的确切日期，我至少可以让它接近。）
我有一个宏需要大约五秒钟来执行,我正在使用代码,Application.ScreenUpdating = False所以看起来Word在运行时已经锁定.
我在最后使用一个消息框告诉他们它是完整的,但我想在执行过程中显示一个图像告诉用户宏正在运行(主要是因为他们不会担心,但也因为它更好看着).
可能有一种更简单的方法,但我决定创建一个图像,创建一个非常基本的用户表单,并简单地将我的图像设置为其背景.然后,一旦代码开始运行,我就会弹出该用户表单.
我遇到的问题是,除非我关闭它,否则其余代码将不会执行.它只是挂起,直到我做某事.有没有办法让我可以在不停止其余流程的情况下显示用户表单？如果没有,是否有另一种方法可以在宏运行时显示图像？