用下面的代码打开Word文档时报错，如图：

Dim dlg As New OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim Proc As New Process
    Proc.File = dlg.FileName
    Proc.Start
    proc.WaitForInputIdle
End If

1、第一招：

http://www.cnblogs.com/bile/p/3520439.html

2、第二招：

桌面右击foxtable启动快捷方式，选择“以管理员身份运行”

3、第三招：

运行安装目录里的 office.reg

开始----运行----输入word 2003的安装路径，例如 "C:\\Program Files\\Microsoft Office\\OFFICE11\\winword.exe" /regserver 注意/符号前面有一个空格，其中"C:\\Program Files\\Microsoft Office\\OFFICE11\\winword.exe" 是word 2003的安装程序的路径，参数regserver表示注册的意思！
运行后，会启动Office 2003的安装程序，进行修复，重新注册。
word 2007为默认的启动程序的方法类同，可以执行 开始----运行----"D:\\Program Files\\Microsoft Office\\Office12\\winword.exe" /regserver

 1、你选择的文件没有对应打开程序，比如你打开excel，但是你没安装Office；

 2、去掉最后一句代码看看