编程 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中判断文本框是否为空的两种方法

Jul 31 Javascript

这些年、我收集的JQuery代码小结

Aug 01 Javascript

将HTML的左右尖括号等转义成实体形式的两种实现方式

May 04 Javascript

学习javascript面向对象 javascript实现继承的方式

Jan 04 Javascript

Canvas实现放射线动画效果

Feb 15 Javascript

Angular2关于@angular/cli默认端口号配置的问题

Jul 15 Javascript

Vue单页面应用保证F5强刷不清空数据的解决方案

Jan 31 Javascript

JS声明对象时属性名加引号与不加引号的问题及解决方法

Feb 16 Javascript

JS使用正则表达式获取小括号、中括号及花括号内容的方法示例

Jun 01 Javascript

详解在HTTPS 项目中使用百度地图 API

Apr 26 Javascript

微信小程序之侧边栏滑动实现过程解析（附完整源码）

Aug 23 Javascript

解决echarts vue数据更新,视图不更新问题(echarts嵌在vue弹框中)

Jul 20 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

将二维数组转为一维数组的2种方法

2014/05/26 PHP

PHP registerXPathNamespace()函数讲解

2019/02/03 PHP

使用Git实现Laravel项目的自动化部署

2019/11/24 PHP

Array对象方法参考

2006/10/03 Javascript

用javascript动态调整iframe高度的方法

2007/03/06 Javascript

关于javascript document.createDocumentFragment()

2009/04/04 Javascript

JQuery 国际象棋棋盘实现代码

2009/06/26 Javascript

javascript document.compatMode兼容性

2010/02/23 Javascript

js中复制行和删除行的操作实例

2013/06/25 Javascript

使用javascript为网页增加夜间模式

2014/01/26 Javascript

初识SmartJS - AOP三剑客

2014/06/08 Javascript

gridview生成时如何去掉style属性中的border-collapse

2014/09/30 Javascript

JavaScript实现同步于本地时间的动态时间显示方法

2015/02/02 Javascript

JS实现简单的键盘打字的效果

2015/04/24 Javascript

js实现定时进度条完成后切换图片

2017/01/04 Javascript

boostrapTable的refresh和refreshOptions区别浅析

2017/01/22 Javascript

node.js入门教程之querystring模块的使用方法

2017/02/27 Javascript

使用jQuery实现两个div中按钮互换位置的实例代码

2017/09/21 jQuery

微信小程序实现星级评分和展示

2018/07/05 Javascript

js中let能否完全替代IIFE

2019/06/15 Javascript

Vue触发隐藏input file的方法实例详解

2019/08/14 Javascript

vue计算属性+vue中class与style绑定(推荐)

2020/03/30 Javascript

JavaScript鼠标悬停事件用法解析

2020/05/15 Javascript

分析用Python脚本关闭文件操作的机制

2015/06/28 Python

python之DataFrame实现excel合并单元格

2021/02/22 Python

Python wxPython库消息对话框MessageDialog用法示例

2018/09/03 Python

python 生成图形验证码的方法示例

2018/11/11 Python

Python基础之函数原理与应用实例详解

2020/01/03 Python

HTML5的表单(绝对特别强大的功能)使用示例

2013/06/20 HTML / CSS

施华洛世奇英国官网：SWAROVSKI英国

2017/03/13 全球购物

澳大利亚领先的武术用品和健身器材供应商：SMAI

2019/03/24 全球购物

大学生文员专业个人求职信范文

2014/01/05 职场文书

腾讯广告词

2014/03/19 职场文书

税务职业生涯规划书范文

2014/09/16 职场文书

贵阳市党的群众路线教育实践活动党（工）委领导班子整改方案

2014/10/26 职场文书

关于清明节的演讲稿2015

2015/03/18 职场文书