用jscript实现新建和保存一个word文档


Posted in Javascript onJune 15, 2007

Demonstration script that retrieves network adapter data from a computer, 
displays that data in a Microsoft Word document, and then saves the 
document as C:\Scripts\Word\Testdoc.doc. 

Set objWord = CreateObject("Word.Application") 
objWord.Caption = "Test Caption" 
objWord.Visible = True Set objDoc = objWord.Documents.Add() 
Set objSelection = objWord.Selection 
objSelection.Font.Name = "Arial" 
objSelection.Font.Size = "18" 
objSelection.TypeText "Network Adapter Report" 
objSelection.TypeParagraph() 
objSelection.Font.Size = "14" 
objSelection.TypeText "" & Date() 
objSelection.TypeParagraph() 
objSelection.TypeParagraph() 
objSelection.Font.Size = "10" 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colItems = objWMIService.ExecQuery _ 
    ("Select * from Win32_NetworkAdapterConfiguration") 
For Each objItem in colItems 
    objSelection.Font.Bold = True 
    objSelection.TypeText "ARP Always Source Route: "  
    objSelection.Font.Bold = False 
    objSelection.TypeText "" & objItem.ArpAlwaysSourceRoute 
    objSelection.TypeParagraph() 
    objSelection.Font.Bold = True 
    objSelection.TypeText "ARP Use EtherSNAP: " 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""  & objItem.ArpUseEtherSNAP 
    objSelection.TypeParagraph() 
    objSelection.Font.Bold = True 
    objSelection.TypeText "Caption: " 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""  & objItem.Caption 
    objSelection.TypeParagraph() 
    objSelection.Font.Bold = True 
    objSelection.TypeText "Database Path: " 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""   & objItem.DatabasePath 
    objSelection.TypeParagraph() 
    objSelection.Font.Bold = True 
    objSelection.TypeText "Dead GW Detection Enabled: " 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""   & objItem.DeadGWDetectEnabled 
    objSelection.TypeParagraph() 
    objSelection.Font.Bold = True 
    objSelection.TypeText "Default IP Gateway: "  
    objSelection.Font.Bold = False 
    objSelection.TypeText "" & objItem.DefaultIPGateway 
    objSelection.TypeParagraph() 
    objSelection.Font.Bold = True 
    objSelection.TypeText "Default TOS: " 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""  & objItem.DefaultTOS 
    objSelection.TypeParagraph() 
    objSelection.Font.Bold = True 
    objSelection.TypeText "Default TTL: " 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""  & objItem.DefaultTTL 
    objSelection.TypeParagraph() 
    objSelection.Font.Bold = True 
    objSelection.TypeText "Description: " 
    objSelection.Font.Bold = True 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""  & objItem.Description 
    objSelection.TypeParagraph() 
    objSelection.TypeParagraph() 
Next 
objDoc.SaveAs("C:\Scripts\Word\testdoc.doc") 
objWord.Quit
Javascript 相关文章推荐
jQuery表格行换色的三种实现方法
Jun 27 Javascript
javascript中文本框中输入法切换的问题
Dec 10 Javascript
Eclipse下jQuery文件报错出现错误提示红叉
Jan 13 Javascript
node.js入门学习之url模块
Feb 25 Javascript
轻松玩转BootstrapTable(后端使用SpringMVC+Hibernate)
Sep 06 Javascript
原生js封装运动框架的示例讲解
Oct 01 Javascript
javascript实现Emrips反质数枚举的示例代码
Dec 06 Javascript
详解VueJS应用中管理用户权限
Feb 02 Javascript
关于Vue在ie10下空白页的debug小结
May 02 Javascript
JS实现移动端触屏拖拽功能
Jul 31 Javascript
Vue实现一个图片懒加载插件
Mar 11 Javascript
JS原型与继承操作示例
May 09 Javascript
用jscript实现新建word文档
Jun 15 #Javascript
Add Formatted Text to a Word Document
Jun 15 #Javascript
Add a Table to a Word Document
Jun 15 #Javascript
Add a Picture to a Microsoft Word Document
Jun 15 #Javascript
Add a Formatted Table to a Word Document
Jun 15 #Javascript
jscript之List Excel Color Values
Jun 13 #Javascript
jscript之Read an Excel Spreadsheet
Jun 13 #Javascript
You might like
PHP 删除文件与文件夹操作 unlink()与rmdir()这两个函数的使用
2011/07/17 PHP
在smarty中调用php内置函数的方法
2013/02/07 PHP
PHP 生成N个不重复的随机数
2015/01/21 PHP
PHP正则+Snoopy抓取框架实现的抓取淘宝店信誉功能实例
2017/05/17 PHP
php类自动装载、链式操作、魔术方法实现代码
2017/07/23 PHP
PHP读取CSV大文件导入数据库的实例
2017/07/24 PHP
jQuery 菜单随滚条改为以定位方式(固定要浏览器顶部)
2012/05/24 Javascript
jQuery下的动画处理总结
2013/10/10 Javascript
javascript实时显示当天日期的方法
2015/05/20 Javascript
JavaScript使用位运算符判断奇数和偶数的方法
2015/06/01 Javascript
JavaScript获取服务器端时间的方法
2016/11/29 Javascript
详解Vue生命周期的示例
2017/03/10 Javascript
vue2.0获取自定义属性的值
2017/03/28 Javascript
NodeJs安装npm包一直失败的解决方法
2017/04/28 NodeJs
jquery使用iscorll实现上拉、下拉加载刷新
2017/10/26 jQuery
浅谈node中的cluster集群
2018/06/02 Javascript
浅谈webpack4.x 入门(一篇足矣)
2018/09/05 Javascript
vue.js+element-ui动态配置菜单的实例
2018/09/07 Javascript
JavaScript数组方法的错误使用例子
2018/09/13 Javascript
vue模式history下在iis中配置流程
2019/04/17 Javascript
js 将多个对象合并成一个对象 assign方法的实现
2020/09/24 Javascript
vue3.0生命周期的示例代码
2020/09/24 Javascript
Python 返回汉字的汉语拼音
2009/02/27 Python
netbeans7安装python插件的方法图解
2013/12/24 Python
详解字典树Trie结构及其Python代码实现
2016/06/03 Python
Python的Django中将文件上传至七牛云存储的代码分享
2016/06/03 Python
Python实现感知器模型、两层神经网络
2017/12/19 Python
PyQt5每天必学之工具提示功能
2018/04/19 Python
python生成lmdb格式的文件实例
2018/11/08 Python
python 使用三引号时容易犯的小错误
2020/10/21 Python
Trunki英国官网:儿童坐骑式行李箱
2017/05/30 全球购物
教师自我评价范例
2013/09/24 职场文书
应届行政管理专业个人自我评价
2013/12/28 职场文书
教堂婚礼主持词
2014/03/14 职场文书
槐乡的孩子教学反思
2014/04/27 职场文书
2019求职信大礼包
2019/05/15 职场文书