编程 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 语法基础想学习js的朋友可以看看

Dec 16 Javascript

解析浏览器端的AJAX缓存机制

Jun 21 Javascript

JS用斜率判断鼠标进入DIV四个方向的方法

Nov 07 Javascript

js实现带简单弹性运动的导航条

Feb 22 Javascript

React-Router如何进行页面权限管理的方法

Dec 06 Javascript

微信小程序结合Storage实现搜索历史效果

May 18 Javascript

Vue父组件如何获取子组件中的变量

Jul 24 Javascript

基于JS抓取某高校附近共享单车位置使用web方式展示位置变化代码实例

Aug 27 Javascript

javascript 高级语法之继承的基本使用方法示例

Nov 11 Javascript

node实现mock-plugin中间件的方法

Dec 25 Javascript

js表达式与运算符简单操作示例

Feb 15 Javascript

JavaScript实现页面高亮操作提示和蒙板

Jan 04 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 HTML代码串截取实现代码

2009/06/29 PHP

Apache服务器无法使用的解决方法

2013/05/08 PHP

php中二分法查找算法实例分析

2016/09/22 PHP

PHP简单留言本功能实现代码

2017/06/09 PHP

PHP多维数组排序array详解

2017/11/21 PHP

php使用yield对性能提升的测试实例分析

2019/09/19 PHP

如何实现动态删除javascript函数

2007/05/27 Javascript

qTip 基于JQuery的Tooltip插件[兼容性好]

2010/09/01 Javascript

Javascript中的delete介绍

2012/09/02 Javascript

AngularJS ng-bind-html 指令详解及实例代码

2016/07/30 Javascript

JS使用正则表达式过滤多个词语并替换为相同长度星号的方法

2016/08/03 Javascript

JS遍历对象属性的方法示例

2017/01/10 Javascript

详解Angular.js中$http拦截器的介绍及使用

2017/07/04 Javascript

jQuery响应滚动条事件功能示例

2017/10/14 jQuery

微信小程序实现选项卡功能

2020/06/19 Javascript

高性能的javascript之加载顺序与执行原理篇

2018/01/14 Javascript

angularJs提交文本框数据到后台的方法

2018/10/08 Javascript

vue 表单验证按钮事件交由父组件触发的方法

2018/12/17 Javascript

layui表格内容溢出的解决方法

2019/09/06 Javascript

python检测是文件还是目录的方法

2015/07/03 Python

Django框架中数据的连锁查询和限制返回数据的方法

2015/07/17 Python

详解Python的Django框架中Manager方法的使用

2015/07/21 Python

剖析Python的Tornado框架中session支持的实现代码

2015/08/21 Python

快速解决pandas.read_csv()乱码的问题

2018/06/15 Python

3分钟学会一个Python小技巧

2018/11/23 Python

python+ffmpeg批量去视频开头的方法

2019/01/09 Python

简单了解python代码优化小技巧

2019/07/08 Python

Python新手学习raise用法

2020/06/03 Python

python自定义函数def的应用详解

2020/06/03 Python

Python数据模型与Python对象模型的相关总结

2021/01/26 Python

CSS3的新特性介绍

2008/10/31 HTML / CSS

美国在线健康和美容市场：Pharmapacks

2018/12/05 全球购物

社区护士演讲稿

2014/08/27 职场文书

公司客户答谢酒会祝酒词

2015/08/11 职场文书

幼儿园教师辞职信

2019/06/21 职场文书

交互式可视化js库gojs使用介绍及技巧

2022/02/18 Javascript