编写代码的过程中，通过下面的代码打开并控制Word文件
Try
With myProcess
.StartInfo.FileName = str_模板文件
.StartInfo.CreateNoWindow = True
.Start()
End With
Catch ex As Exception
MessageBox.Show("在当前运行路径下没有找到对应程序，请仔细检查！", "错误信息", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
‘
For lngI As Long = 0 To 65536 * 1000
Next
wd_App = GetObject(, "Word.Application")
wd_App.Visible = True
wd_Doc = wd_App.Documents(str_模板文件)
wd_Doc.Tables(1).Cell(1, 2).Range.Text &= "OK"
结果是有时正常，有时会出错：正常情况是文件已经打开，出错时是文件未打开。
几经试验后发现，如果，用代码打开Word文件后，系统还没有完全生成Wor的进程，导致程序失败，于是，添加红色字体的代码，直到*1000后，才不再出错。