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

怎么让脚本或里面的函数在所有图片都载入完毕的时候执行

Oct 17 Javascript

网上应用的一个不错common.js脚本

Aug 08 Javascript

不使用XMLHttpRequest实现异步加载 Iframe和script

Oct 29 Javascript

JS获取文本框,下拉框,单选框的值的简单实例

Feb 26 Javascript

JS判断文本框内容改变事件的简单实例

Mar 07 Javascript

EasyUI中实现form表单提交的示例分享

Mar 01 Javascript

微信小程序使用picker封装省市区三级联动实例代码

Oct 28 Javascript

js中数组的常用方法小结

Dec 30 Javascript

Node.js查找当前目录下文件夹实例代码

Mar 07 Javascript

整理关于Bootstrap排版的慕课笔记

Mar 29 Javascript

深入理解jquery的$.extend()、$.fn和$.fn.extend()

Jul 08 jQuery

vue自定义过滤器创建和使用方法详解

Nov 06 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的4种常用运行方式详解

2016/12/22 PHP

Mac系统下安装PHP Xdebug

2018/03/30 PHP

Thinkphp5+uploadify实现的文件上传功能示例

2018/05/26 PHP

php面试中关于面向对象的相关问题

2019/02/13 PHP

thinkPHP5框架路由常用知识点汇总

2019/09/15 PHP

jquery实现marquee效果(文字或者图片的水平垂直滚动)

2013/01/07 Javascript

关于JS数组追加数组采用push.apply的问题

2014/06/09 Javascript

jQuery的context属性用法实例

2014/12/27 Javascript

Javascript基础教程之while语句

2015/01/18 Javascript

jQuery使用hide方法隐藏指定元素class样式用法实例

2015/03/30 Javascript

JavaScript使用Math.Min返回两个数中较小数的方法

2015/04/06 Javascript

jQuery处理XML文件的几种方法

2016/06/14 Javascript

jQuery制作圣诞主题页面更像是爱情影集

2016/08/10 Javascript

Vuejs第一篇之入门教程详解（单向绑定、双向绑定、列表渲染、响应函数）

2016/09/09 Javascript

AngularJS表单和输入验证实例

2016/11/02 Javascript

JS实现的图片预览插件与用法示例【不上传图片】

2016/11/25 Javascript

微信小程序开发之Tabbar实例详解

2017/01/09 Javascript

layui导航栏实现代码

2017/05/19 Javascript

如何通过非数字与字符的方式实现PHP WebShell详解

2017/07/02 Javascript

荐书|您有一份JavaScript书单待签收

2017/07/21 Javascript

深入理解ES6学习笔记之块级作用域绑定

2017/08/19 Javascript

easyui下拉框动态级联加载的示例代码

2017/11/29 Javascript

原生js实现省市区三级联动代码分享

2018/02/12 Javascript

angularjs 获取默认选中的单选按钮的value方法

2018/02/28 Javascript

基于vue 动态菜单刷新空白问题的解决

2020/08/06 Javascript

python和opencv实现抠图

2018/07/18 Python

python项目对接钉钉SDK的实现

2019/07/15 Python

使用coverage统计python web项目代码覆盖率的方法详解

2019/08/05 Python

基于python实现简单C/S模式代码实例

2020/09/14 Python

美国电视购物：QVC

2017/02/06 全球购物

Madewell澳大利亚官方网站：美国休闲服饰品牌

2019/07/18 全球购物

Rentalcars.com中国：世界上最大的在线汽车租赁服务

2019/08/22 全球购物

土地转让协议书

2014/09/27 职场文书

会计工作岗位职责

2015/02/03 职场文书

幼师小班个人总结

2015/02/12 职场文书

干货：如何写好工作计划！

2019/05/17 职场文书