【解析版】山东省东营市2015年中考试题(英语 word版 含解析)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
【解析版】山东省东营市2015年中考试题(英语 word版 含解析)
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩20页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢博客访问： 527939
博文数量： 197
博客积分： 3436
博客等级： 中校
技术积分： 1891
注册时间：
认证徽章：
APP发帖 享双倍积分
IT168企业级官微
微信号：IT168qiye
系统架构师大会
微信号：SACC2013
分类： 嵌入式
word 比较需要在TortoiseSVN\Diff-Scripts目录下存放着如下脚本：“diff-doc.js”
// TortoiseSVN Diff script for Word Doc files
// Copyright (C)
the TortoiseSVN team
// This file is distributed under the same license as TortoiseSVN
// Last commit by:
// $Author: steveking $
17:46:37 +0100 (Fr, 05 Dez 2008) $
// $Rev: 14782 $
// Authors:
// Jared Silva, 2008
// Davide Orlandi and Hans-Emil Skogh, 2005
var objArgs,num,sBaseDoc,sNewDoc,sTempDoc,objScript,word,destination;
// Microsoft Office versions for Microsoft Windows OS
var vOffice2000 = 9;
var vOffice2002 = 10;
var vOffice2003 = 11;
var vOffice2007 = 12;
// WdCompareTarget
var wdCompareTargetSelected = 0;
var wdCompareTargetCurrent = 1;
var wdCompareTargetNew = 2;
// WdViewType
var wdMasterView = 5;
var wdNormalView = 1;
var wdOutlineView = 2;
// WdSaveOptions
var wdDoNotSaveChanges = 0;
var wdPromptToSaveChanges = -2;
var wdSaveChanges = -1;
objArgs = WScript.Arguments;
num = objArgs.length;
if (num < 2)
&&&WScript.Echo("Usage: [CScript | WScript] diff-doc.js base.doc new.doc");
&&&WScript.Quit(1);
sBaseDoc = objArgs(0);
sNewDoc = objArgs(1);
objScript = new ActiveXObject("Scripting.FileSystemObject");
if (!objScript.FileExists(sBaseDoc))
&&&&WScript.Echo("File " + sBaseDoc + " does not exist.
Cannot compare the documents.");
&&&&WScript.Quit(1);
if ( ! objScript.FileExists(sNewDoc))
&&&&WScript.Echo("File " + sNewDoc + " does not exist.
Cannot compare the documents.");
&&&&WScript.Quit(1);
&&&word = WScript.CreateObject("Word.Application");
&&&&// before giving up, try with OpenOffice
&&&&&&&&var OO;
&&&&&&&&OO = WScript.CreateObject("com.sun.star.ServiceManager");
&&&&catch(e)
&&&&&&&&WScript.Echo("You must have Microsoft Word or OpenOffice installed to perform this operation.");
&&&&&&&&WScript.Quit(1);
if (parseInt(word.Version) >= vOffice2007)
&&&&sTempDoc = sNewDoc;
&&&&sNewDoc = sBaseDoc;
&&&&sBaseDoc = sTempDoc;
objScript = null;
word.visible = true;
// Open the new document
&&&&destination = word.Documents.Open(sNewDoc, true, true);
&&&&WScript.Echo("Error opening " + sNewDoc);
&&&&// Quit
&&&&WScript.Quit(1);
// If the Type property returns either wdOutlineView or wdMasterView and the Count property returns zero, the current document is an outline.
if (((destination.ActiveWindow.View.Type == wdOutlineView) || (destination.ActiveWindow.View.Type == wdMasterView)) && (destination.Subdocuments.Count == 0))
&&&&// Change the Type property of the current document to normal
&&&&destination.ActiveWindow.View.Type = wdNormalView;
// Compare to the base document
if (parseInt(word.Version) <= vOffice2000)
&&&&// Compare for Office 2000 and earlier
&&&&&&&&destination.Compare(sBaseDoc);
&&&&catch(e)
&&&&&&&&WScript.Echo("Error comparing " + sBaseDoc + " and " + sNewDoc);
&&&&&&&&// Quit
&&&&&&&&WScript.Quit(1);
&&&&// Compare for Office XP (2002) and later
&&&&&&&&destination.Compare(sBaseDoc, "Comparison", wdCompareTargetNew, true, true);
&&&&catch(e)
&&&&&&&&WScript.Echo("Error comparing " + sBaseDoc + " and " + sNewDoc);
&&&&&&&&// Close the first document and quit
&&&&&&&&destination.Close(wdDoNotSaveChanges);
&&&&&&&&WScript.Quit(1);
// Show the comparison result
if (parseInt(word.Version) < vOffice2007)
&&&&word.ActiveDocument.Windows(1).Visible = 1;
// Mark the comparison document as saved to prevent the annoying
// "Save as" dialog from appearing.
word.ActiveDocument.Saved = 1;
// Close the first document
if (parseInt(word.Version) >= vOffice2002)
&&&&destination.Close(wdDoNotSaveChanges);
阅读(2342) | 评论(0) | 转发(0) |
相关热门文章
给主人留下些什么吧！~~
请登录后评论。2015年东营市中考英语试卷及答案_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
2015年东营市中考英语试卷及答案
上传于||文档简介
&&帮&#8203;助&#8203;即&#8203;将&#8203;中&#8203;考&#8203;的&#8203;孩&#8203;子&#8203;们&#8203;学&#8203;习&#8203;英&#8203;语&#8203;知&#8203;识
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩8页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢unit3_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
上传于||文档简介
&&新&#8203;视&#8203;野&#8203;大&#8203;学&#8203;英&#8203;语&#8203;第&#8203;二&#8203;版&#8203;第&#8203;二&#8203;册&#8203;网&#8203;络&#8203;教&#8203;学&#8203;题&#8203;库&#8203;及&#8203;答&#8203;案
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩23页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢}