Question

一点背景知识。我在使用VBA的MS-Access中开发了一些项目。现在，我需要完成一个小项目。然而，与访问相比，MSWord是一个不同的球赛，我需要一些帮助。

我需要使用Now（）（或任何相当于DATE的精确时间）插入日期，然后在空白行下面然后返回，这样您可以在按下返回后在空白行下面开始输入。从我收集到的内容来看，很难在msword中有效地捕获回车键。

这是我到目前为止所拥有的。我是在正确的轨道上吗？

Private Sub Document_New(KeyAscii As Integer)
 If KeyAscii = vbKeyEnter Then
  Dim MyText As String
  Dim RN As String
   RN = Now()
   MyText = "_______________________________________________________"
Selection.TypeText (Now())
Selection.TypeText (MyText)
 End If
End Sub

Answer 1

这在VBA中是可行的，但它很复杂。几乎任何组合键都可以使用KeyBindings对象映射到宏。棘手的部分是只在需要的地方和时间使用mappinag。这涉及识别必要的事件以来回触发映射。此外，确定重映射应该处于活动状态的文档并正确保存重映射以使其不影响其他文档（CustomizationContext）是势在必行。

有。知识库文章，详细描述了如何将Enter键重新映射到宏。文章中还有其他内容，您需要对其进行过滤并专注于重新映射并删除映射：

https://support.microsoft.com/en-us/kb/211219

坦率地说，我认为重新映射Enter不是一个好方法，因为它用于其他事情。另一个组合会更好，不需要任何明显的努力。如果你做得不对，你最终可能会为整个Word应用程序禁用Enter。

插入日期和空白行VBA

1 个答案: