编程 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 ready()的几种实现方法小结

Jun 18 Javascript

关于JavaScript定义类和对象的几种方式

Nov 09 Javascript

JavaScript 一道字符串分解的题目

Aug 03 Javascript

JavaScript中number转换成string介绍

Dec 31 Javascript

jquery实现增加删除行的方法

Feb 03 Javascript

Javascript中实现String.startsWith和endsWith方法

Jun 10 Javascript

浅谈JavaScript的函数及作用域

Dec 30 Javascript

jquery获取链接地址和跳转详解（推荐）

Aug 15 jQuery

security.js实现的RSA加密功能示例

Jun 06 Javascript

vue下history模式刷新后404错误解决方法

Aug 18 Javascript

JS实现可视化音频效果的实例代码

Jan 16 Javascript

redux处理异步action解决方案

Mar 22 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程序占用多少内存(memory_get_usage)

2012/09/23 PHP

PHP中设置一个严格30分钟过期Session面试题的4种答案

2014/07/30 PHP

php使用cookie保存用户登录的用户名实例

2015/01/26 PHP

PHP中Closure类的使用方法及详解

2015/10/09 PHP

将PHP程序中返回的JSON格式数据用gzip压缩输出的方法

2016/03/03 PHP

PHP运行模式汇总

2016/11/06 PHP

PHP多维数组指定多字段排序的示例代码

2018/05/16 PHP

laravel实现查询最后执行的一条sql语句的方法

2019/10/09 PHP

gridpanel动态加载数据的实例代码

2013/07/18 Javascript

Jquery焦点与失去焦点示例应用

2014/06/10 Javascript

jQuery设置指定网页元素宽度和高度的方法

2015/03/25 Javascript

JS实现跟随鼠标立体翻转图片的方法

2015/05/04 Javascript

javascript实现设置、获取和删除Cookie的方法

2015/06/01 Javascript

jquery验证邮箱格式是否正确实例讲解

2015/11/16 Javascript

JS实时弹出新消息提示框并有提示音响起的实现代码

2016/04/20 Javascript

详解angularJs中自定义directive的数据交互

2017/01/13 Javascript

无法获取隐藏元素宽度和高度的解决方案

2017/03/07 Javascript

在Vue组件上动态添加和删除属性方法

2018/02/23 Javascript

详解Vue项目在其他电脑npm run dev运行报错的解决方法

2018/10/29 Javascript

微信小程序如何再次获取用户授权的方法

2019/05/10 Javascript

vue2之简易的pc端短信验证码的问题及处理方法

2019/06/03 Javascript

详解JavaScript 中的批处理和缓存

2020/11/19 Javascript

[02:36]DOTA2-DPC中国联赛正赛 PSG.LGD vs Magma 选手采访

2021/03/11 DOTA

Python multiprocessing模块中的Pipe管道使用实例

2015/04/11 Python

Python爬虫实现（伪）球迷速成

2018/06/10 Python

解决python读取几千万行的大表内存问题

2018/06/26 Python

django 自定义过滤器(filter)处理较为复杂的变量方法

2019/08/12 Python

python pyqtgraph 保存图片到本地的实例

2020/03/14 Python

使用Python将Exception异常错误堆栈信息写入日志文件

2020/04/08 Python

python爬虫工具例举说明

2020/11/30 Python

一些网络技术方面的面试题

2014/05/01 面试题

学生就业推荐信

2013/11/13 职场文书

个性婚礼策划方案

2014/05/17 职场文书

博士生专家推荐信

2014/09/26 职场文书

Netty客户端接入流程NioSocketChannel创建解析

2022/03/25 Java/Android

VUE之图片Base64编码使用ElementUI组件上传

2022/04/09 Vue.js