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

JavaScript 上万关键字瞬间匹配实现代码

Jul 07 Javascript

JavaScript prototype 使用介绍

Aug 29 Javascript

纯JS实现动态时间显示代码

Feb 08 Javascript

JQuery中使用ajax传输超大数据的解决方法

Jul 14 Javascript

js验证框架之RealyEasy验证详解

Jun 08 Javascript

JavaScript实现邮箱地址自动匹配功能代码

Nov 28 Javascript

js代码实现下拉菜单【推荐】

Dec 15 Javascript

vuejs父子组件通信的问题

Jan 11 Javascript

JS 在数组指定位置插入/删除数据的方法

Jan 12 Javascript

关于Node.js的events.EventEmitter用法介绍

Apr 01 Javascript

基于vue1和vue2获取dom元素的方法

Mar 17 Javascript

详解vue父子组件状态同步的最佳方式

Sep 10 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网页游戏学习之Xnova(ogame)源码解读（九）

2014/06/24 PHP

php 解决扫描二维码下载跳转问题

2017/01/13 PHP

JavaScript中的Math.sin()方法使用详解

2015/06/15 Javascript

JavaScript实现输入框(密码框)出现提示语

2016/01/12 Javascript

jQuery+ajax简单实现文件上传的方法

2016/06/03 Javascript

JS Ajax请求如何防止重复提交

2016/06/13 Javascript

javascript 单例模式详解及简单实例

2017/02/14 Javascript

bootstrap的工具提示实例代码

2017/05/17 Javascript

详解微信小程序调起键盘性能优化

2018/07/24 Javascript

解决vue 引入子组件报错的问题

2018/09/06 Javascript

详解JavaScript中的强制类型转换

2019/04/15 Javascript

ES6的解构赋值实例详解

2019/05/06 Javascript

利用Python演示数型数据结构的教程

2015/04/03 Python

Python中列表list以及list与数组array的相互转换实现方法

2017/09/22 Python

python 通过麦克风录音生成wav文件的方法

2019/01/09 Python

python实现月食效果实例代码

2019/06/18 Python

Python求解正态分布置信区间教程

2019/11/20 Python

在PyTorch中使用标签平滑正则化的问题

2020/04/03 Python

python不到50行代码完成了多张excel合并的实现示例

2020/05/28 Python

python3.7中安装paddleocr及paddlepaddle包的多种方法

2020/11/27 Python

HTML5实现视频直播功能思路详解

2017/11/16 HTML / CSS

LookFantastic丹麦：英国美容护肤精品在线商城

2016/08/18 全球购物

Daisy London官网：英国最大的首饰集团IBB旗下

2019/02/28 全球购物

波兰家居饰品和厨房配件网上商店：Maleomi

2020/12/15 全球购物

求职简历中自我评价

2014/01/28 职场文书

环保建议书500字

2014/05/14 职场文书

考察现实表现材料

2014/05/19 职场文书

有限责任公司股东合作协议书

2014/12/02 职场文书

2014年控辍保学工作总结

2014/12/08 职场文书

2015年母亲节活动总结

2015/02/10 职场文书

忠犬八公的故事观后感

2015/06/05 职场文书

在Java中Collection的一些常用方法总结

2021/06/13 Java/Android

Java中常用解析工具jackson及fastjson的使用

2021/06/28 Java/Android

一小时学会TensorFlow2之基本操作2实例代码

2021/09/04 Python

python模拟浏览器使用selenium进入好友QQ空间并留言

2022/04/12 Python

Java数组详细介绍及相关工具类

2022/04/14 Java/Android