如何将word嵌入窗体作为DOC文档编辑器？

zzcjp

我在编写文件管理系统时需要在一个窗体中编辑文件的关键词、拟稿人等资料，当我要从现有的DOC中概括关键词时我必须用代码调用WORD来打开DOC文档，这时word是打开自己的窗口，很不方便。我需要将word窗口嵌入到我的主窗口中，直接用它来浏览和编辑DOC文档。从网上下了一个用于WEB地word控件，引用后可以嵌入窗体，但是却不正常使用，导入DOC文档是提示出错。哪位高手有办法实现以上想法，可帮了菜鸟的大忙了。

zzcjp

我的以上问题经过几天的努力，终于解决了，不敢独享欢乐，将代码贴在这里分享：

设OLE控件在【文件属性子窗体】，OLE控件名：文件内容 ，是绑定控件。

Private Sub 选择文件名_AfterUpdate()
Me!选择文件路径全名 = DLookup("文件路径", "文件存放表", "[文件名]='" & 选择文件名 & "'")
If IsNull(Me!选择文件路径全名) Or Me!选择文件路径全名 = "" Then
MsgBox "请选择合适的文件名！", vbOKOnly, "系统提示"
Else
文件属性子窗体.Requery
Me.选择文件名.Requery
Me!选择文件路径名 = DLookup("文件路径", "文件存放表", "[文件名]='" & 选择文件名 & "'")
  qm = DLookup("文件路径", "文件存放表", "[文件名]='" & 选择文件名 & "'") & 选择文件名
  If Dir(qm) <> "" Then
   
    [文件属性子窗体].Form![文件内容].OLETypeAllowed = acOLELinked '指定由文件链接
    [文件属性子窗体].Form![文件内容].SourceDoc = qm      '创建来源文件"
     If Right(选择文件名, 3) = "doc" Or Right(选择文件名, 3) = "xls" Or Right(选择文件名, 3) = "txt" Then
   '判断即将写入OLE控件的文件类型：.doc;.xls;.txt 三种  '==================================================================================
     ' 指定由源文件创建连接。特别注意：ole在未绑定84控件属性中将“是否锁定”设为”否，
     '“是否有效”设为“是”，否则运行到本行代码时出错！！！
     [文件属性子窗体].Form![文件内容].Action = acOLECreateLink
    '===================================================================================
     [文件属性子窗体].Form![文件内容].SizeMode = acOLESizeClip ' 指定裁剪，原尺寸
    Else
      If MsgBox("你选择的文件可能是媒体文件，你要播放或显示这个文件吗？", vbYesNo, "系统提示") = vbYes Then
      qm = DLookup("文件路径", "文件存放表", "[文件名]='" & 选择文件名 & "'") & 选择文件名 '全路径全名
      FollowHyperlink qm     '利用系统函数调用OLE保存的文件的对应应用程序显示该文件
      End If
    End If
   Else
   MsgBox "没有找到【" & qm & "】这个文件！", vbOKOnly, "系统提示"
   End If
   End If
End Sub

fan0217

Ole类型的字段中插入Word文档，通过向导建立窗体，然后双击Ole容器就可以进行编辑。

cyjiaaa

[:50]

LeeTien

不错就是没有滚动条，查看不方便