Office中国论坛/Access中国论坛

标题: 如何将word嵌入窗体作为DOC文档编辑器？ [打印本页]

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

作者: zzcjp 时间: 2006-9-1 08:02
标题: 采用ole
我的以上问题经过几天的努力，终于解决了，不敢独享欢乐，将代码贴在这里分享：

设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 时间: 2006-9-1 17:43
Ole类型的字段中插入Word文档，通过向导建立窗体，然后双击Ole容器就可以进行编辑。

作者: cyjiaaa 时间: 2008-12-31 12:52
标题: 不错不错
[:50]

作者: LeeTien 时间: 2016-3-1 12:46
不错就是没有滚动条，查看不方便

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)