VBA Word查找/段落复制

Question

当前，我正在尝试打开一个Word文档，查找某个单词（在本例中为“ Description”），然后在下面两行并复制下面的段落。

这是代码：

Sub getTextFromWord()

Dim WordApp As Object, WordDoc As Object

file = "C:\filepath\Document.docx"
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = False
Set WordDoc = WordApp.Documents.Open(file)

With Selection.Find
    .Forward = True
    .Wrap = wdFindStop
    .Text = "Description"
    .Execute
End With

'Selection.MoveDown Unit:=wdLine, Count:=2
'Selection.StartOf Unit:=wdParagraph
'Selection.MoveEnd Unit:=wdParagraph
'Selection.Copy
'Range("A1").PasteSpecial

WordDoc.Close
WordApp.Quit
Set WordDoc = Nothing
Set WordApp = Nothing

End Sub

当我尝试运行它时（当前的Selection.MoveDown部分被注释掉了），我得到了450错误或Excel的弹出窗口，提示“ Microsoft Excel正在等待另一个应用程序完成OLE操作”。 任何帮助将不胜感激。

我要复制的文档的格式本质上是：

日期：2015年7月9日

描述

这是一般描述。 今天是2015年7月9日，这是我的一般说明等。

Answer 1

我相信，并且我对此可能是不正确的，您可以简单地抑制警报，然后代码将自行完成。

为此，请在子例程的开头添加Application.DisplayAlerts = False 。

不要忘记在子例程的末尾添加Application.DisplayAlerts = True以将其重新打开。

当Excel将控制权传递给Word并没有足够迅速地得到响应时，似乎会出现此消息，但是我认为代码仍应执行。