编程 Javascript

用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 相关文章推荐

浅析js设置控件的readonly与enabled属性问题

Dec 25 Javascript

使用JavaScript进行进制转换将字符串转换为十进制

Sep 21 Javascript

jQuery给多个不同元素添加class样式的方法

Mar 26 Javascript

JS实现模拟风力的雪花飘落效果

May 13 Javascript

JS检测页面中哪个HTML标签触发点击事件的方法

Jun 17 Javascript

jQuery增加、删除及修改select option的方法

Aug 19 Javascript

JS简单去除数组中重复项的方法

Sep 13 Javascript

jQuery初级教程之网站品牌列表效果

Aug 02 jQuery

jquery ajax加载数据前台渲染方式不用for遍历的方法

Aug 09 jQuery

Node.js之删除文件夹(含递归删除)代码实例

Sep 09 Javascript

angularjs模态框的使用代码实例

Dec 20 Javascript

Vue使用Proxy代理后仍无法生效的解决

Nov 13 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

Notice: Undefined index: page in E:\PHP\test.php on line 14

2010/11/02 PHP

php编写的一个E-mail验证类

2015/03/25 PHP

PHP类和对象相关系统函数与运算符小结

2016/09/28 PHP

PHP简单获取随机数的常用方法小结

2017/06/07 PHP

JavaScript中的isXX系列是否继续使用的分析

2011/04/16 Javascript

浅析JavaScript作用域链、执行上下文与闭包

2016/02/01 Javascript

JavaScript常用判断写法大全(推荐)

2016/05/30 Javascript

全面解析Bootstrap表单样式的使用

2016/09/09 Javascript

微信小程序上滑加载下拉刷新（onscrollLower）分批加载数据（二）

2017/05/11 Javascript

基于jQuery ztree实现表格风格的树状结构

2018/08/31 jQuery

微信小程序实现弹框效果

2020/05/26 Javascript

[02:54]DOTA2英雄基础教程暗影牧师戴泽

2013/12/05 DOTA

[03:40]DOTA2英雄梦之声_第01期_炼金术士

2014/06/23 DOTA

python中关于日期时间处理的问答集锦

2013/03/08 Python

在Ubuntu系统下安装使用Python的GUI工具wxPython

2016/02/18 Python

Python队列的定义与使用方法示例

2017/06/24 Python

Python3.5 创建文件的简单实例

2018/04/26 Python

python检测文件夹变化,并拷贝有更新的文件到对应目录的方法

2018/10/17 Python

在Python中实现shuffle给列表洗牌

2018/11/08 Python

python 获取sqlite3数据库的表名和表字段名的实例

2019/07/17 Python

Python流程控制 if else实现解析

2019/09/02 Python

python装饰器原理与用法深入详解

2019/12/19 Python

Mysql数据库反向生成Django里面的models指令方式

2020/05/18 Python

python实现批量命名照片

2020/06/18 Python

台湾前三大B2C购物网站：MOMO购物网

2017/04/27 全球购物

农业大学毕业生的个人自我评价

2013/10/11 职场文书

挑战杯创业计划书的写作指南

2014/01/07 职场文书

护理学应聘自荐书范文

2014/02/05 职场文书

酒店值班经理的工作职责范本

2014/02/18 职场文书

司机岗位职责说明书

2014/07/29 职场文书

小学生放飞梦想演讲稿

2014/08/26 职场文书

生产工厂门卫岗位职责

2014/09/26 职场文书

技术入股合作协议书

2014/10/07 职场文书

2016猴年春节慰问信

2015/11/30 职场文书

详解Mysql和Oracle之间的误区

2021/05/18 MySQL

win10电脑右下角输入法图标不见了?Win10右下角不显示输入法的解决方法

2022/07/23 数码科技