将对话框映射到 Word 对象模型

以下脚本中引用的选项对应于“选项”对话框的“视图”选项卡中的选项。要在 Microsoft Word 2003 中访问这些选项，请依次单击“工具”、“选项”和“视图”选项卡。下面显示了此对话框中的可用选项与 Microsoft Word 对象模型之间的映射。如果看不清图形（很可能会出现这种情况），请单击此处查看大图。

已使用 Microsoft Word 2003 对本页中显示的脚本进行了测试。至少某些功能可以在任何支持 Visual Basic for Applications (VBA) 的 Microsoft Word 版本上使用；不过，没有使用任何其他版本对这些脚本进行测试。

返回页首

用于检索值的示例代码

示例脚本检索 Microsoft Word 2003“选项”对话框的“视图”选项卡中的配置信息。

On Error Resume Next
Set objWord = CreateObject("Word.Application")
Set objOptions = objWord.Options
Set objDoc = objWord.Documents.Add()
Set objWindow = objWord.ActiveDocument.ActiveWindow
Set objView = objWord.ActiveDocument.ActiveWindow.View
Set objComments = objDoc.Comments

Wscript.Echo "Startup Task Pane: " & objWord.ShowStartupDialog
Wscript.Echo "Status bar: " & objWord.DisplayStatusBar
Wscript.Echo "Windows in Taskbar: " & _
    objWord.ShowWindowsInTaskbar
Wscript.Echo "Highlight: " & objView.ShowHighlight
Wscript.Echo "Bookmarks: " & objView.ShowBookmarks
Wscript.Echo "Tab characters: " & objView.ShowTabs
Wscript.Echo "Spaces: " & objView.ShowSpaces
Wscript.Echo "Paragraph marks: " & objView.ShowParagraphs
Wscript.Echo "Drawings: " & objView.ShowDrawings
Wscript.Echo "Object anchors: " & objView.ShowObjectAnchors
Wscript.Echo "Text boundaries: " & objView.ShowTextBoundaries
Wscript.Echo "Wrap to window: " & objView.WrapToWindow
Wscript.Echo "Animated text: " & objView.ShowAnimation
Wscript.Echo "Smart tags: " & objView.DisplaySmartTags
Wscript.Echo "Picture placeholders: " & _
    objView.ShowPicturePlaceholders
Wscript.Echo "All: " & objView.ShowAll
Wscript.Echo "Field codes: " & objView.ShowFieldCodes
Wscript.Echo "Hidden text: " & objView.ShowHiddenText
Wscript.Echo "Optional hyphens: " & objView.ShowHyphens
Wscript.Echo "Background colors and images: " & _
    objView.DisplayBackgrounds
Wscript.Echo "Field shading: " & objView.FieldShading
For Each strComment in objComments
    Wscript.Echo "Screen tips: " & strComment.ShowTip
Next
Wscript.Echo "Horizontal scroll bar: " & _
    objWindow.DisplayHorizontalScrollBar
Wscript.Echo "Vertical scroll bar: " & _
    objWindow.DisplayVerticalScrollBar
Wscript.Echo "Vertical ruler: " & _
    objWindow.DisplayVerticalRuler

objWord.Quit

返回页首

用于修改值的示例代码

示例脚本将 Microsoft Word 中的“启动任务窗格”选项设置为 TRUE。

On Error Resume Next

Set objWord = CreateObject("Word.Application")
objWord.ShowStartupDialog = TRUE

objWord.Quit

返回页首

这些示例脚本不受任何 Microsoft 标准支持计划或服务的支持。这里仅按原样提供示例脚本，而不作任何类型的担保。Microsoft 进一步明确拒绝所有的暗示担保，包括但不限于对适销性或对特定目的适用性的任何暗示担保。使用或执行示例脚本和文档所引起的全部风险应由您自己承担。在任何情况下，对于使用或不能使用示例脚本或文档所引起的任何损害（包括但不限于商业利润损失、业务中断、商业信息丢失或其他资金损失所造成的损害），Microsoft、其作者以及参与脚本创建、生产或传递的任何其他人员都概不负责，即使 Microsoft 已被告知存在这些损害的可能性。

返回页首

如果您的组织使用 XML 架构 （XML 架构：以 XML 编写的正式规范，定义了 XML 文档的结构，包括元素名和丰富的数据类型，以及哪些元素要以组合形式出现，每一元素具有哪些属性。）定义数据结构，则本文中描述的过程是最佳方法。在 Microsoft Office Word 2007 中，通过将架构附加到文档，可以创建标准格式的 XML 文档，此类文档可包含自定义 XML 以及 Word XML 架构 (WordprocessingML) 所提供的格式和属性。

这种双架构用法不仅保留自定义架构定义的数据，而且还保留 WordprocessingML 定义的多种格式。或者，您也可以放弃 WordprocessingML，只保存您标记的内容（自定义 XML 数据）。

• 将 XML 架构附加到文档

• 将 XML 标记应用于文档内容

• 验证 XML 数据

• 将 Word 格式和属性与自定义 XML 数据一起保存

• 仅保存自定义 XML 数据

将 XML 架构附加到文档

附加到文档中的 XML 架构是为您的组织进行自定义而设计的。XML 架构通常由 IT 专业人员创建，他们的职责就是在 Word 中为您的组织构建专用的模板或解决方案。

可用于附加到文档的架构在架构库中列出。

向架构库中添加架构

若要向架构库中添加架构，请按照下列步骤操作：

1. 在“开发工具”选项卡上的“XML”组中，单击“架构”。

   注释    若要显示“开发工具”选项卡，请执行下列操作： 单击“Office 按钮”，然后单击“Word 选项”。 单击“常用”，然后在“使用 Word 时采用的首选项”下选中“在功能区显示‘开发工具’选项卡”复选框。（功能区是 Microsoft Office Fluent 用户界面的一个组件。）

2. 单击“添加架构”，通过浏览找到要添加到架构库中的 XML 架构，然后单击“打开”。
3. 在“架构设置”对话框中，选择所需的选项，然后在“别名”框中为该架构键入名称。

   注释    您在此处键入的别名将显示在“模板和加载项”对话框的可用架构列表中。

4. 单击“确定”。

将架构附加到文档

在架构库中放置架构后，就可以将其附加到文档。

注释    可以将多个架构附加到文档。所有附加架构中的元素均显示在“XML 结构”任务窗格的元素列表中。

1. 在 Word 中打开文档。
2. 在“开发工具”选项卡上的“XML”组中，单击“架构”。
3. 在“当前已经附加了选中的架构”框中，选中要附加到文档的各 XML 架构的对应复选框。

返回页首

将 XML 标记应用于文档内容

自定义 XML 架构附加到文档后，“XML 结构”任务窗格即会提供该架构中定义的元素列表。通过选择文档内容，然后从该列表中选择元素，即可将 XML 标记应用于文档中。如果架构为元素定义了属性，还可以在“XML 结构”任务窗格中指定这些属性。

添加或删除 XML 标记

请执行下列操作之一：

添加 XML 标记

1. 在文档中，突出显示要添加标记的内容。

   可以在文档中选择字词、短语、段落、单元格、行、列、域、图片或对象。

2. 在“XML 结构”任务窗格的“选择一种元素并应用于当前的选定内容”列表中，选择一种元素。

   注释    要对所选的元素和属性加以限制，请选中“仅列出当前元素的子元素”复选框。

3. 如果需要，可为元素指定属性。

   操作方法

   1. 在“XML 结构”任务窗格的“文档中的元素”下，右键单击相应的元素，然后单击“属性”。
   2. 在“有效的属性”列表中，选择所需的属性。
   3. 在“值”框中，键入属性值。
   4. 单击“添加”。

删除 XML 标记

1. 在“XML 结构”任务窗格中，选中“在文档中显示 XML 标记”复选框。
2. 在文档中，将指针停留在“元素名的开始”或“元素名的结尾”标记上。
3. 右键单击，然后单击“删除元素名”标记，以删除该标记但不删除该标记的内容。

   注释    每个元素都有一个开始标记和结束标记。这两个标记只能成对删除。

显示或隐藏 XML 标记

• 按 Ctrl+Shift+X。

打印 XML 标记

1. 单击“Office 按钮”，然后单击“Word 选项”。
2. 单击“高级”。
3. 在“打印”下，选中“打印 XML 标记”复选框。

显示 XML 元素名

如果文档包含空的 XML 元素，即使“在文档中显示 XML 标记”选项关闭，也可以在文档的主体中按名称查看这些元素。

1. 在“开发工具”选项卡上的“XML”组中，单击“架构”。
2. 单击“XML 选项”。
3. 在“XML 视图选项”部分中，选中“显示用于所有空白元素的占位符文本”复选框。

提示    您可以为元素指定自己的占位符文本，方法是：右键单击相应的标记，单击“属性”，然后在“占位符文本”框中键入所需的文本。

防止意外删除 XML 元素

如果您希望用户能够编辑 XML 文档中的数据，但不能编辑或删除 XML 标记，可以使用文档保护功能使用户只能编辑 XML 元素的内容，而不能编辑标记本身。

1. 在“XML 结构”任务窗格中，选中“在文档中显示 XML 标记”复选框。
2. 在“开发工具”选项卡上的“保护”组中，单击“保护文档”。
3. 在“保护文档”任务窗格中，选中“仅允许在文档中进行此类编辑”复选框，然后选择“不允许任何更改(只读)”。
4. 在文档中，选择某一元素的内容。
5. 在“保护文档”任务窗格中，选中“例外项(可选)”部分中的“每个人”复选框。
6. 对希望用户编辑其内容的每个 XML 标记，分别重复步骤 4 和 5。
7. 单击“是，启动强制保护”。
8. 请执行下列操作之一：
   • 若要指定密码以防无意中去除文档保护，请在“新密码(可选)”框中键入一个密码，然后确认该密码。
   • 若要对文档加密，以便只有经过验证的文档所有者才能去除保护，请单击“用户验证”。

返回页首

验证 XML 数据

Word 可以根据附加到 XML 文档的 XML 架构的规则，验证该文档。架构冲突显示在“XML 结构”任务窗格中，它们也显示在文档中。

提示    若要在应用 XML 标记时避免出现验证错误，请选中“XML 结构”任务窗格中的“仅列出当前元素的子元素”复选框。

1. 在“开发工具”选项卡上的“XML”组中，单击“架构”。
2. 在“架构验证选项”下，执行下列一项或两项操作：
   • 若要强制执行验证，请选中“使用附加架构验证文档”复选框。
   • 若要防止 Word 保存无效的文档，请清除“允许另存为 XML (即使无效)”复选框。
3. 当您在文档中工作时，请使用“XML 结构”任务窗格检查文档的有效性。在每个元素旁都会显示一个图标，用于指示该元素是否无效以及冲突的特性。此外，架构冲突在文档中还标有波浪线。

关闭波浪线

默认情况下，架构冲突在文档主体中标有波浪线。若要关闭此功能，请执行下列操作：

1. 在“开发工具”选项卡上的“XML”组中，单击“架构”。
2. 单击“XML 选项”。
3. 在“架构验证选项”下，选中“隐藏文档中的架构冲突”复选框。

返回页首

将 Word 格式和属性与自定义 XML 数据一起保存

如果要保留 Word 文档的页面布局和格式以及自定义 XML 数据，请使用以下过程保存文档。

1. 单击“Office 按钮”，然后单击“另存为”。.
2. 在“保存类型”框中，单击“Word 2003 XML 文档”。
3. 在“文件名”框中，键入相应文档的名称。
4. 如果要使用可扩展的样式表语言转换 (XSLT) （XSL 转换 (XSLT)：一种文件，用于将 XML 文档转换为其他类型的文档，例如 HTML 或 XML。设计本意是作为 XSL 的一部分使用。） 设置文档的格式，请选中“应用转换”复选框，然后单击“转换”以找到 XSLT 文件。

   注意    如果在保存文件时应用 XSLT，Word 会丢弃 XSLT 未使用的所有数据。

5. 单击“保存”。

返回页首

仅保存自定义 XML 数据

在仅保存自定义 XML 数据时，在生成的 XML 文件中将丢弃文档中未用附加架构中的元素标记的所有内容。

1. 单击“Office 按钮”，然后单击“另存为”。.
2. 在“保存类型”框中，单击“Word 2003 XML 文档”。
3. 在“文件名”框中，键入相应文档的名称。
4. 选中“仅保存数据”复选框。
5. 如果要使用可扩展的样式表语言转换 (XSLT) （XSL 转换 (XSLT)：一种文件，用于将 XML 文档转换为其他类型的文档，例如 HTML 或 XML。设计本意是作为 XSL 的一部分使用。） 设置文档的格式，请选中“应用转换”复选框，然后单击“转换”以找到 XSLT 文件。

   注意    如果在保存文件时应用 XSLT，Word 会丢弃 XSLT 未使用的所有数据。

6. 单击“保存”。

参阅word帮助中的selection对象中的information 属性说明，先取出要填充的位置，以便以后按指定位置填充：

information 属性


返回有关指定的所选内容或区域的信息。variant 类型，只读。

语法

expression.information(type)

expression 必需。该表达式返回一个 range 或 selection 对象。

type long 类型，必需。需要返回的信息。可取下列 wdinformation 常量之一：

wdactiveendadjustedpagenumber 返回页码，在该页中包含指定的所选内容或区域的活动结尾。如果设置了一个起始页码，并对页码进行了手工调整，则返回调整过的页码。


wdactiveendpagenumber 返回页码，在该页中包含指定的所选内容或区域的活动结尾，页码从文档的开头开始计算而不考虑对页码的任何手工调整。


wdactiveendsectionnumber 返回节号，在该节中包含了指定的所选内容或区域的活动结尾。


wdatendofrowmarker 如果指定的所选内容或区域位于表格的行结尾标记处，则本参数返回 true。


wdcapslock 如果大写字母锁定模式有效，则本参数返回 true。


wdendofrangecolumnnumber 返回表格列号，在该表格列中包含了指定的所选内容或区域的活动结尾。


wdendofrangerownumber 返回表格行号，在该表格行包含了指定的所选内容或区域的活动结尾。


wdfirstcharactercolumnnumber 返回指定的所选内容或区域中第一个字符的位置。如果所选内容或区域是折叠的，则返回所选内容或区域右侧紧接着的字符编号。


wdfirstcharacterlinenumber 返回所选内容中第一个字符的行号。如果 pagination 属性为 false，或 draft 属性为 true，则返回 - 1。


wdframeisselected 如果所选内容或区域是一个完整的图文框文本框，则本参数返回 true。


wdheaderfootertype 返回一个值，该值表明包含了指定的所选内容或区域的页眉或页脚的类型，如下表所示。 值 页眉或页脚的类型
- 1 无
0 偶数页页眉
1 奇数页页眉
2 偶数页页脚
3 奇数页页脚
4 第一个页眉
5 第一个页脚


wdhorizontalpositionrelativetopage 返回指定的所选内容或区域的水平位置。该位置是所选内容或区域的左边与页面的左边之间的距离，以磅为单位。如果所选内容或区域不可见，则返回 - 1。


wdhorizontalpositionrelativetotextboundary 返回指定的所选内容或区域相对于周围最近的正文边界的左边的水平位置，以磅为单位。如果所选内容或区域没有显示在当前屏幕，则本参数返回 - 1。


wdinclipboard 有关此常量的详细内容，请参阅 microsoft office 98 macintosh 版的语言参考帮助。


wdincommentpane 如果指定的所选内容或区域位于批注窗格，则返回 true。


wdinendnote 如果指定的所选内容或区域位于页面视图的尾注区内，或者位于普通视图的尾注窗格中，则本参数返回 true。


wdinfootnote 如果指定的所选内容或区域位于页面视图的脚注区内，或者位于普通视图的脚注窗格中，则本参数返回 true。


wdinfootnoteendnotepane 如果指定的所选内容或区域位于页面视图的脚注或尾注区内，或者位于普通视图的脚注或尾注窗格中，则本参数返回 true。详细内容，请参阅前面的 wdinfootnote 和 wdinendnote 的说明。


wdinheaderfooter 如果指定的所选内容或区域位于页眉或页脚窗格中，或者位于页面视图的页眉或页脚中，则本参数返回 true。


wdinmasterdocument 如果指定的所选内容或区域位于主控文档中，则本参数返回 true。
wdinwordmail 返回一个值，该值表明了所选内容或区域的的位置，如下表所示。值 位置
0 所选内容或区域不在一条电子邮件消息中。
1 所选内容或区域位于正在发送的电子邮件中。
2 所选内容或区域位于正在阅读的电子邮件中。


wdmaximumnumberofcolumns 返回所选内容或区域中任何行的最大表格列数。


wdmaximumnumberofrows 返回指定的所选内容或区域中表格的最大行数。


wdnumberofpagesindocument 返回与所选内容或区域相关联的文档的页数。


wdnumlock 如果 num lock 有效，则本参数返回 true。


wdovertype 如果改写模式有效，则本参数返回 true。可用 overtype 属性改变改写模式的状态。


wdreferenceoftype 返回一个值，该值表明所选内容相对于脚注、尾注或批注引用的位置，如下表所示。 值 描述
— 1 所选内容或区域包含、但不只限定于脚注、尾注或批注引用中。
0 所选内容或区域不在脚注、尾注或批注引用之前。
1 所选内容或区域位于脚注引用之前。
2 所选内容或区域位于尾注引用之前。
3 所选内容或区域位于批注引用之前。


wdrevisionmarking 如果修订功能处于活动状态，则本参数返回 true。


wdselectionmode 返回一个值，该值表明当前的选定模式，如下表所示。 值 选定模式
0 常规选定
1 扩展选定
2 列选定


wdstartofrangecolumnnumber 返回所选内容或区域的起点所在的表格的列号。


wdstartofrangerownumber 返回所选内容或区域的起点所在的表格的行号。


wdverticalpositionrelativetopage 返回所选内容或区域的垂直位置，即所选内容的上边与页面的上边之间的距离，以磅为单位。如果所选内容或区域没有显示在屏幕上，则本参数返回 - 1。


wdverticalpositionrelativetotextboundary 返回所选内容或区域相对于周围最近的正文边界的上边的垂直位置，以磅为单位。如果所选内容或区域没有显示在屏幕上，则本参数返回 - 1。


wdwithintable 如果所选内容位于一个表格中，则本参数返回 true。


wdzoompercentage 返回由 percentage 属性设置的当前的放大百分比。

在Word中怎么样通过编写程序实时检测光标位置？我没有办法做到，因为Thisdocument对象只提供NEW,CLOSE,OPEN三种事件，不知各位大虾有没有其他办法？谢谢了 问题点数：20、回复次数：4Top

1 楼MagicFan（我爱杨过） 回复于 2002-04-01 11:35:26 得分 20

写一个Class Module，在这个class里面定义一个WithEvent的application。然后用它的WindowSelectionChange的事件。
例如：
写一个Class Module名为aaa.
Public WithEvents App As Application

Private Sub App_WindowSelectionChange(ByVal sel As Selection)
'在这里面可以写你的代码，对selection位置的不同，作你想作的事。
End Sub

然后定义一个Module名为testaaa
Dim AppEvents As New EDD
Sub InitEvents() '必须要在Document加载的时候触发这个事件，WindowSelectionChange才会有效。
Set AppEvents.App = Application
End Sub

最后，在Document_New或者Document_Open里面
InitEvents

好了，大功告成。

Top

2 楼MagicFan（我爱杨过） 回复于 2002-04-01 11:36:56 得分 0

sorry,刚刚写错一个词。

然后定义一个Module名为testaaa
Dim AppEvents As New EDD

应该是
然后定义一个Module名为testaaa
Dim AppEvents As New aaa

从文档中移除保护功能。

命名空间:Microsoft.Office.Tools.Word
程序集:Microsoft.Office.Tools.Word（在 microsoft.office.tools.word.dll 中）

语法

Public Overridable Sub Unprotect ( _
 <OptionalAttribute> ByRef Password As Object _
)

Dim instance As Document
Dim Password As Object

instance.Unprotect(Password)

public virtual void Unprotect (
 [OptionalAttribute] ref Object Password
)

备注

示例

下面的代码示例使用 Unprotect 方法从文档中移除保护功能。该示例假定密码变量 securelyStoredPassword 是从用户输入获取的。

Visual Basic	复制代码
Private Sub DocumentUnprotect(ByRef securelyStoredPassword As Object) If Me.ProtectionType <> Word.WdProtectionType.wdNoProtection Then Me.Unprotect(securelyStoredPassword) End If End Sub

C#	复制代码
private void DocumentUnprotect(ref object securelyStoredPassword) { if (this.ProtectionType != Word.WdProtectionType.wdNoProtection) { this.Unprotect(ref securelyStoredPassword); }

在微软的网站上看到关于这个Script Error的处理方法。
http://support.microsoft.com/default.aspx?scid=kb;en-us;261003

没看明白，有几个问题。
=============
当之一脚本引擎遇到处理错误, 转发错误到 WebBrowser 控件, 它然后查询其容器以查看如果容器有实现 IOleCommandTarget 。
-----------------------
问题：这个要实现的IOleCommandTarget，是作为类WebBrowser2的成员实现？还是作为我的WebBrowser控件所在的对话框类CMYDlg的成员实现？
==================================

=====================
这个接口IOleCommandTarget的实现在网上也没找到个MFC下的例子，自己看别人的实现另外一个接口的代码，依葫芦画瓢写了一下，不知道对不对？
class WebBrowser2 : public class CWin
{
..............
..............
BEGIN_INTERFACE_PART(OleCommandTarget, IOleCommandTarget)
STDMETHOD(QueryStatus) (
/* [unique][in] */ const GUID *pguidCmdGroup,
/* [in] */ ULONG cCmds,
/* [out][in][size_is] */ OLECMD prgCmds[ ],
/* [unique][out][in] */ OLECMDTEXT *pCmdText);
STDMETHOD(Exec)(
/* [unique][in] */ const GUID *pguidCmdGroup,
/* [in] */ DWORD nCmdID,
/* [in] */ DWORD nCmdexecopt,
/* [unique][in] */ VARIANT *pvaIn,
/* [unique][out][in] */ VARIANT *pvaOut);
END_INTERFACE_PART(OleCommandTarget)
}
.cpp中的在此省略
================

=================
如果容器已实现 IOleCommandTarget , WebBrowser 控件调用 OLECMDID_SHOWSCRIPTERROR 命令 ID 和 CGID_DocHostCommandHandler （其中 Mshtmhst.h 文件中定义） 的命令组 ID IOleCommandTarget::Exec 方法。
-----------------------
问题：如果已经实现了IOleCommandTarget接口，那出现脚本错误的时候，WebBrowser怎么调用IOleCommandTarget::Exec 方法？是在WebBrowser中哪里可以判断出脚本错误了？（这个问题好像解决了第一个问题，似乎IOleCommandTarget应该实现在WebBrowser2中。不知道对不对）
这里我的理解是：当有脚本错误发生的时候，在WebBrowser2中实现的接口方法IOleCommandTarget::Exec会被自动调用，在函数参数中会指明当前发生了脚本错误OLECMDID_SHOWSCRIPTERROR 。但是难以理解的是，这样的结果，难道仅仅是因为在WebBrowser实现了IOleCommandTarget接口？好像说不通，还是我不知道？总之很乱，搞不清楚他们的关系。
===============================


我要在WebBrowser上显示一个页面，当出现脚本错误的时候，做一些额外的处理，同时不希望那个Script error对话框出现。所以找到这个因为脚本错误，而引起响应的地方是个关键。


哎，整了大半天了，还是没搞明白，希望高人指点一下，谢谢先。 问题点数：100、回复次数：21

1 楼jiangsheng（蒋晟.Net[MVP]）回复于 2006-11-05 06:51:25 得分 30

blog.joycode.com/jiangsheng/archive/2005/07/09/58754.aspx

2 楼flyboy81（【欧尼油】一切都要靠自己*韬光养晦*）回复于 2006-11-05 13:00:03 得分 0

to jiangsheng
那部分的代码大体的意思明白了，但是我在实现的时候还是有些疑问：
class CDHtmlExploreControlSite: public CBrowserControlSite
这里的CBrowserControlSite是哪里来的呢？我在MSDN中没有查到。

在例子中的对话框使用的类是继承于CDHtmlDialog，而我本地建的对话框是继承于CDialog，该如何使用CDHtmlDialog呢？本地的SDK是2003的支持VC6的最新的SDK。
多谢了。

3 楼flyboy81（【欧尼油】一切都要靠自己*韬光养晦*）回复于 2006-11-05 13:03:24 得分 0

我在VCKBASE上找到如下例子：
http://www.vckbase.com/article/atl/013820610.htm
对于我处理Script Error有些帮助，但是他的实现方法好像和jiangsheng 提供的方法有区别。
在vckbase的这个例子中他并没有提到如何将这个派生出来的CMyOleControl 和CWebBrowser和CDialog联系起来。
迷惑。。。。。

4 楼jiangsheng（蒋晟.Net[MVP]）回复于 2006-11-05 14:57:23 得分 10

CBrowserControlSite is an undocumented MFC class
to use it in CDialog you need to copy some code from the MFC source code of CDHtmlDialog

The difference of handling command in ActiveX and in ActiveX host is the command set being called. Script error won't be redirected to ActiveX.

5 楼flyboy81（【欧尼油】一切都要靠自己*韬光养晦*）回复于 2006-11-05 18:59:58 得分 0

VC6 下有实现的可能么？

6 楼jiangsheng（蒋晟.Net[MVP]）回复于 2006-11-05 23:53:55 得分 10

Sure
http://support.microsoft.com/kb/196835/EN-US/

7 楼hasia（hasia）回复于 2006-11-06 21:17:36 得分 20

我看到msdn上说CHtmlView::ExecFormsCommand的功能是
Executes the specified command using the IOleCommandTarget::Exec method

可是当我override这个函数时，依然会弹出脚本错误对话框
我的代码如下：
HRESULT CHtmlCtrl::ExecFormsCommand(DWORD dwCommandID, VARIANT *pVarIn, VARIANT *pVarOut)
{
HRESULT hr;

switch(dwCommandID) {
case OLECMDID_SHOWSCRIPTERROR:
//Don't show the error dialog,but continue to run script
pVarOut->vt=VT_BOOL;
pVarOut->boolVal=VARIANT_TRUE;
hr=S_OK;
return hr;
default:
break;
}
return CHtmlView::ExecFormsCommand(dwCommandID,pVarIn,pVarOut);
}


请问一下，我哪个地方错了

谢谢了

8 楼hasia（hasia）回复于 2006-11-06 21:27:39 得分 1

jiangsheng(蒋晟.Net[MVP]) ：

能不能给个详细点的例子？
让我们看的明白点
谢谢

9 楼jiangsheng（蒋晟.Net[MVP]）回复于 2006-11-07 09:05:23 得分 0

There is a bug in Visual C 2002 and 2003 that CHtmlView::ExecFormsCommand does not pass the corrent parameter to the internal implementation. Use Visual C 2005, or use IOleCommandTarget directly.

This is an example
BEGIN_INTERFACE_PART(OleCommandTarget, IOleCommandTarget)
STDMETHOD(QueryStatus)(const GUID*, ULONG, OLECMD*, OLECMDTEXT*);
STDMETHOD(Exec)(const GUID*, DWORD, DWORD, VARIANTARG*, VARIANTARG*);
END_INTERFACE_PART(OleCommandTarget)

STDMETHODIMP CBrowserControlSiteEx::XOleCommandTarget::Exec(const GUID*
pguidCmdGroup,
DWORD nCmdID,
DWORD nCmdexecopt,
VARIANTARG* pvaIn,
VARIANTARG* pvaOut )
{
METHOD_PROLOGUE_EX_(CBrowserControlSiteEx, OleCommandTarget)

HRESULT hr = S_OK;
if (pguidCmdGroup && IsEqualGUID(*pguidCmdGroup,
CGID_DocHostCommandHandler))
{
switch (nCmdID)
{
case OLECMDID_SHOWSCRIPTERROR:
{
IHTMLDocument2* pDoc = NULL;
IHTMLWindow2* pWindow = NULL;
IHTMLEventObj* pEventObj = NULL;
BSTR rgwszNames[5] =
{
SysAllocString(L"errorLine"),
SysAllocString(L"errorCharacter"),
SysAllocString(L"errorCode"),
SysAllocString(L"errorMessage"),
SysAllocString(L"errorUrl")
};
DISPID rgDispIDs[5];
VARIANT rgvaEventInfo[5];
DISPPARAMS params;
BOOL fContinueRunningScripts = true;
int i;
params.cArgs = 0;
params.cNamedArgs = 0;

// Get the document that is currently being viewed.
hr = pvaIn->punkVal->QueryInterface(IID_IHTMLDocument2, (void **)
&pDoc);

// Get document.parentWindow.
hr = pDoc->get_parentWindow(&pWindow);
pDoc->Release();

// Get the window.event object.
hr = pWindow->get_event(&pEventObj);

// Get the error info from the window.event object.
for (i = 0; i < 5; i )
{
// Get the property's dispID.
hr = pEventObj->GetIDsOfNames(IID_NULL, &rgwszNames[i], 1,
LOCALE_SYSTEM_DEFAULT, &rgDispIDs[i]);

// Get the value of the property.
hr = pEventObj->Invoke(rgDispIDs[i], IID_NULL,LOCALE_SYSTEM_DEFAULT,
DISPATCH_PROPERTYGET, &params, &rgvaEventInfo[i],NULL, NULL);

SysFreeString(rgwszNames[i]);
}

// At this point, you would normally alert the user with
// the information about the error, which is now contained
// in rgvaEventInfo[]. Or, you could just exit silently.
(*pvaOut).vt = VT_BOOL;

//if (fContinueRunningScripts)
//{
// Continue running scripts on the page.
(*pvaOut).boolVal = VARIANT_TRUE;
//}
//else
//{
// Stop running scripts on the page.
// (*pvaOut).boolVal = VARIANT_FALSE;
//}
break;
}
case OLECMDID_SHOWMESSAGE:
//(*pvaOut).boolVal = VARIANT_TRUE;
break;

default:
hr = OLECMDERR_E_NOTSUPPORTED;
break;
}
}
else
{
hr = OLECMDERR_E_UNKNOWNGROUP;
}
return (hr);

}

10 楼guti_milan（）回复于 2006-11-07 09:32:35 得分 0

之前也遇到了类似情况
不过还好看了微软知识库一切都明白了
不过里面还是有些需要注意的就是
CControlSite和COccManager类的用法！
可以借鉴一下
http://www.webasp.net/article/4/3177_print.htm

11 楼hasia（hasia）回复于 2006-11-07 10:42:53 得分 0

to jiangsheng(蒋晟.Net[MVP]) ：
谢谢你的回答，不过还是有点问题

我用的VisualC＋＋2005 professional版，还是会弹出脚本错误？
我在pVarOut->vt=VT_BOOL;这里设置了断点，
一直没有调用

用IOleCommandTarget方法，弹出了很多错误
难道还需要什么头文件或者库文件吗？msdn上好像没有说啊

warning C4002: too many actual parameters for macro 'DECLARE_INTERFACE_MAP'

error LNK2001: unresolved external symbol "protected: virtual struct AFX_INTERFACEMAP const * __thiscall CHtmlCtrl::GetInterfaceMap(void)const " (?GetInterfaceMap@CHtmlCtrl@@MBEPBUAFX_INTERFACEMAP@@XZ)

error LNK2001: unresolved external symbol "public: virtual long __stdcall CHtmlCtrl::XOleCommandTarget::QueryInterface(struct _GUID const &,void * *)" (?QueryInterface@XOleCommandTarget@CHtmlCtrl@@UAGJABU_GUID@@PAPAX@Z)

error LNK2001: unresolved external symbol "public: virtual unsigned long __stdcall IUnknown::AddRef(void)" (?AddRef@IUnknown@@UAGKXZ)

error LNK2001: unresolved external symbol "public: virtual unsigned long __stdcall IUnknown::Release(void)" (?Release@IUnknown@@UAGKXZ)

error LNK2001: unresolved external symbol "public: virtual long __stdcall IOleCommandTarget::QueryStatus(struct _GUID const *,unsigned long,struct _tagOLECMD * const,struct _tagOLECMDTEXT *)" (?QueryStatus@IOleCommandTarget@@UAGJPBU_G
UID@@KQAU_tagOLECMD@@PAU_tagOLECMDTEXT@@@Z)

error LNK2001: unresolved external symbol "public: virtual long __stdcall IOleCommandTarget::Exec(struct _GUID const *,unsigned long,unsigned long,struct tagVARIANT *,struct tagVARIANT *)" (?Exec@IOleCommandTarget@@UAGJPBU_GUID@@KKPAU
tagVARIANT@@1@Z)



另外，我是在.cpp中手动添加的这些函数实现的
CHtmlCtrl继承自CHtmlView

ULONG CHtmlCtrl::XOleCommandTarget::AddRef()
{
METHOD_PROLOGUE_EX_(CHtmlCtrl, OleCommandTarget) //这一句去掉也一样
return IOleCommandTarget::AddRef();
}

ULONG CHtmlCtrl::XOleCommandTarget::Release()
{
METHOD_PROLOGUE_EX_(CHtmlCtrl, OleCommandTarget) //这一句去掉也一样

return IOleCommandTarget::Release();
}

12 楼hasia（hasia）回复于 2006-11-07 10:44:32 得分 0

我这个程序的目的是在对话框中显示网页
所以用CHtmlCtrl继承CHtmlView

13 楼jiangsheng（蒋晟.Net[MVP]）回复于 2006-11-07 10:52:22 得分 0

You need to implement the interfaces in your browser site, not your browser.
For more information, see
http://msdn.microsoft.com/workshop/browser/hosting/wbcustomization.asp
and look into MFC source code.

14 楼hasia（hasia）回复于 2006-11-07 15:22:14 得分 0

to jiangsheng(蒋晟.Net[MVP])
如果我用的是CHtmlView，让CHtmlView和CStatic关联，进行显示的
没有用WebBrowser

有什么好的办法吗？
谢谢了

15 楼hasia（hasia）回复于 2006-11-07 17:43:11 得分 0

我重新写了一个web browse site类
但是还是会像上面说的一样，有很多unresolved external symbol 出现，
难道真的需要什么库吗？
没看到msdn上说啊


在vc6和vc2005上都这样，郁闷


class CCustomWebBrowserSite : public COleControlSite
{
public:
CCustomWebBrowserSite(COleControlContainer *pContainer);
virtual ~CCustomWebBrowserSite();
protected:
DECLARE_INTERFACE_MAP()

BEGIN_INTERFACE_PART(OleCommandTarget,IOleCommandTarget)
STDMETHOD(QueryStatus)(const GUID *pguidCommandGroup, ULONG cCmds,OLECMD prgCmds[],OLECMDTEXT *pCmdText);
STDMETHOD(Exec)(const GUID *pguidCmdGroup,DWORD nCmdID,DWORD nCmdexecopt,VARIANT *pvaIn,VARIANT *pvaOut);
END_INTERFACE_PART(OleCommandTarget)

};


不知道谁能说一下，谢谢了

16 楼superarhow（苏泊尔耗）回复于 2006-11-08 13:43:18 得分 12

建议做一个本线程的CALLWNDPROC的hook。因为ScripError接口函数在用户将浏览器选项设置为“允许脚本调试”时，就不会被触发了。而MSDN上提供的另一种方法，向网页中强制添加onerror的处理函数，这只能在网页加载完成后做，网页加载过程中的脚本错误也无法捕捉。

17 楼hasia（hasia）回复于 2006-11-08 15:19:55 得分 0

因为ScripError接口函数在用户将浏览器选项设置为“允许脚本调试”时，就不会被触发了。

____________________________________________________________________
____________________________________________________________________


我试过了，不行的，我去掉了浏览器中的“禁用脚本调试（Internet Explorer）”和“禁用脚本调试（其他）”这两个前面的勾，还是有脚本错误弹出来。

18 楼jiangsheng（蒋晟.Net[MVP]）回复于 2006-11-09 06:42:36 得分 0

unresolved external symbol? what is your error message?

19 楼Jarod_He（）回复于 2006-11-13 16:18:15 得分 0

我也遇到同样的问题 不知谁有解决办法?

20 楼superarhow（苏泊尔耗）回复于 2006-11-15 10:31:15 得分 7

我试过了，不行的，我去掉了浏览器中的“禁用脚本调试（Internet Explorer）”和“禁用脚本调试（其他）”这两个前面的勾，还是有脚本错误弹出来。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
就是说去掉这个勾后，你即使实现了IOleCommandTarget这个接口，也不会被调用，仍然会转缺省的调出对话框过程处理，就是那个“是否要调试”。所以实现这个接口是解决不了这个问题的。
偶也在项目中遇到过这个问题，是通过hook本线程的CALLWNDPROC来做的。那个对话框的类名是“Internet Explorer_TridentDlgFrame”，是一个IE对话框。

21 楼Jarod_He（）回复于 2006-11-15 14:08:04 得分 10

m_pWebBrowser->put_Silent( VARIANT_TRUE ); 解决问题.
现在还有一个问题,如果页面有脚本错误就无法正确的得到页面完成的消息.

Lightweight XML Editing in Word 2003 by Evan Lenz -- Strictly speaking, you can edit custom XML in Word, but there are limitations that make the process needlessly complex. This article presents a lightweight approach to XML editing in Word that works in all editions of Word 2003. All you need besides Word is an XSLT processor. Evan Lenz, coauthor of Office 2003 XML, shows you how.

Did you know that Word documents can be saved in XML format? As of Microsoft Office 2003, the second option in Word's Save As dialog--right under "Word Document (*.doc)"--is "XML Document (*.xml)". This format is Microsoft's own XML vocabulary for Word documents, called WordprocessingML (or sometimes just WordML).

The ability to save Word documents as XML is arguably the most important XML-related feature introduced in Word 2003. But you wouldn't know it from all the hype surrounding Word's new support for customer schemas. When Microsoft announced that Word would let you edit XML documents that conform to your own schema (not just the WordprocessingML one), we were rightly intrigued and even excited. The promise of using the world's most popular word processor to edit, say, Docbook documents was nothing less than astounding, and it caused quite a stir in the XML community.

Hope Deferred

Now that the dust has settled and Office 2003 has been available for almost a year, we've got a clearer picture of reality. While the XML features in Word, Excel, Access, and the new InfoPath application are truly impressive and useful, it's clear that Word 2003 doesn't support arbitrary XML editing. At least it doesn't line up with the picture Microsoft painted originally. For one, the custom schema functionality is available only with Office Professional or the stand-alone Word 2003. More importantly, the features don't live up to the hype. While, strictly speaking, you can edit custom XML in Word, you're limited to using schemas that have a very static, fill-in-the-blanks structure. That means no optional or repeating elements and certainly no mixed content--that is, if you want a minimally user-friendly experience.

Or you could force your users to apply XML elements to portions of their document manually, using the new XML Structure task pane with Show XML Tags turned on. In that case, yes, they could edit arbitrary XML documents, even those with mixed content. And yes, Word will let them know if they've done something invalid (though it won't stop them from doing it). But since the user has to do all the work, and since XML elements cannot be associated with style information, the experience is not close to being user friendly (let alone WYSIWYG).

Or you could try to script in all the user friendliness by hand through the new Document Actions task pane. Of course, you should plan on joining a monastery to learn Smart Document programming and the attendant asceticism you'll need in order to appreciate the usability (or lack thereof) of your efforts' final results. (Tell me again, why are we using Word?)

Or (finally) you could come to terms with the fact that the most important (and robust) XML feature that was introduced in Word 2003 is its capability to save documents in a lossless, well-formed, open XML format called WordprocessingML. Ways to use it for generating, transforming, converting, querying, and otherwise processing Word documents are only starting to be realized. Editing custom XML may not be WordprocessingML's killer app, but it does raise some interesting possibilities that we'll explore here.

A Lightweight XSLT-Based Approach

This article presents a lightweight approach to XML editing in Word. It's "lightweight" in that it ignores all of Word's built-in custom schema functionality. A nice side effect of this approach is that it works in all editions of Word 2003. All you need outside of Word is an XSLT processor. (If you do happen to have the advanced XML functionality, you can make use of Word's bundled XSLT processor, but that's not required.)

This approach to editing will work only when your XML format is isomorphic to the structure and styles of your Word documents. The document's markup will only be as rich as the styles that are applied to it, so this rules out full-on Docbook editing. Word doesn't work well for editing recursive markup structures in general, because it doesn't support recursive styles. Each paragraph has exactly one paragraph style, and each character is associated with exactly one character style. (Word does, however, provide a convenient representation of heading levels as hierarchical subsections, using the <wx:sub-section> element, which we'll see referenced in our example below.)

You can make a complete XML editing solution for Word by writing two XSLT style sheets:

1. A style sheet to transform from your custom XML to WordprocessingML, and
2. A style sheet to transform from WordprocessingML back to your custom XML.

The basic scenario goes like this: to edit a custom XML document, it must get transformed by XSLT (No. 1) into WordprocessingML so that a user can edit it in Word. After the user is finished editing the document, the resulting WordprocessingML must be transformed again (No. 2), back to the custom XML format.

Note: This article does not introduce WordprocessingML except by example. For more thorough coverage, refer to the Office 2003 XML sample chapter available online, called "The WordprocessingML Vocabulary" (PDF).

An Example

Before we look at the XSLT, here's a document that conforms to a dead-simple, Docbook-esque format that we'll be editing:

<?xml version="1.0"?>
<?mso-application progid="Word.Document"?>
<?xml-stylesheet type="text/xsl" href="article2wordml.xsl"?>
<article>
  <title>This is the article title</title>
  <section>
    <title>First section</title>
    <para>This is the <emphasis>first</emphasis> paragraph.</para>
    <para>This is the <strong>second</strong> paragraph.</para>
  </section>
  <section>
    <title>Second section</title>
    <para>This section will have some sub-sections.</para>
    <section>
      <title>First sub-section</title>
      <para>This is the paragraph text of the first sub-section.</para>
    </section>
    <section>
      <title>Second sub-section</title>
      <para>This is the paragraph text of the second sub-section.</para>
      <para>And here is another paragraph, just for the fun of it--with a
<a href="http://www.xmlportfolio.com/">hyperlink</a> to boot!</para>
    </section>
  </section>
</article>

Here is what we want this document to look like while it's being edited in Word:

As you can see, the XML has a few examples of mixed content, which are rendered in Word using character styles (italic, bold, and blue/underlined). The hierarchical sections of the XML document are rendered using a heading for each title (Heading 1 for the article title, and Heading 2, Heading 3, and so on for successively deep section titles).

The Code

Assuming we have this XML document lying around already and we want to let people edit it, we'll need an XSLT style sheet to transform it to WordprocessingML (style sheet No. 1 in the list above). This file is called article2wordml.xsl. It contains various template rules that map elements from the custom XML to elements and styles defined in WordprocessingML. For example, to turn <emphasis> elements into character runs with the Emphasis character style, we use the following template rule:

<!-- For text in <emphasis>, apply the "Emphasis" character style -->
  <xsl:template match="emphasis/text()">
    <w:r>
      <w:rPr>
        <w:rStyle w:val="Emphasis"/>
      </w:rPr>
      <w:t>
        <xsl:value-of select="."/>
      </w:t>
    </w:r>
  </xsl:template>

To turn section titles into hierarchical headings, we use this template rule:

<!-- Convert section titles to "Heading X" paragraphs -->
  <xsl:template match="section/title">
    <w:p>
      <w:pPr>
        <w:pStyle w:val="Heading{count(ancestor::section)+1}"/>
      </w:pPr>
      <xsl:apply-templates/>
    </w:p>
  </xsl:template>

Once a user has made changes to the document from within Word, a new WordprocessingML document is saved and must be translated back to the custom XML format using style sheet No. 2 mentioned above. This style sheet, called wordml2article.xsl, has similar rules, except that they reflect the reverse mapping--from WordprocessingML to our custom XML format. For example, here's the rule that turns text in the Emphasis style into an <emphasis> element:

<!-- turn a run with the "Emphasis" character style into <emphasis> -->
  <xsl:template match="w:r[w:rPr/w:rStyle/@w:val='Emphasis']"
                mode="para-content">
    <emphasis>
      <xsl:copy-of select="w:t/text()"/>
    </emphasis>
  </xsl:template>

Here are the rules that convert the Heading paragraphs back to sections with titles:

<!-- Convert <wx:sub-section> elements to <section> elements -->
  <xsl:template match="wx:sub-section">
    <section>
      <xsl:apply-templates/>
    </section>
  </xsl:template>

<!-- Convert <w:p> paragraphs to <para> paragraphs -->
  <xsl:template match="w:p">
    <para>
      <xsl:apply-templates mode="para-content"/>
    </para>
  </xsl:template>

<!-- ...except for the first paragraph in a sub-section (Heading 1,2,3,...);
       the heading will be the <title> of the section -->
  <xsl:template match="wx:sub-section/w:p[1]">
    <title>
      <xsl:apply-templates mode="para-content"/>
    </title>
  </xsl:template>

For a complete investigation of the style sheets (including descriptive comments), see the full text of these files:

• article-example.xml
• article2wordml.xsl
• wordml2article.xsl

uplication of effort in gathering information is an increasingly familiar scenario in many companies today. For example, an employee complains, "I've already submitted my expense report to finance, and now you want me to re-enter it in this intranet portal app?" In this scenario the employee must enter expense information for approval from his/her manager and also file another separate expense report for settlement via finance because many finance departments use financial software packages that aren't integrated with the company's intranet portal. Such isolated duplicative systems give rise to the concept of "scattered data islands," many of which are never repurposed.

• Download The Code for this Article

回到顶端