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

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 职场文书