编程 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获取地址栏参数插件(模仿C#)

Oct 26 Javascript

基于JQuery实现的类似购物商城的购物车

Dec 06 Javascript

一个JavaScript防止表单重复提交的实例

Oct 21 Javascript

BootStrap响应式导航条实例介绍

May 06 Javascript

JavaScript DOM 对象深入了解

Jul 20 Javascript

Bootstrap table的使用方法

Nov 02 Javascript

JavaScript实现打地鼠小游戏

Apr 23 Javascript

微信小程序自定义多选事件的实现代码

May 17 Javascript

Vue.js中的高级面试题及答案

Jan 13 Javascript

vue组件内部引入外部js文件的方法

Jan 18 Javascript

Vue解决echart在element的tab切换时显示不正确问题

Aug 03 Javascript

如何HttpServletRequest文件对象并储存

Aug 14 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 将逗号、空格、回车分隔的字符串转换为数组的函数

2012/06/07 PHP

PHP中数字检测is_numeric与ctype_digit的区别介绍

2012/10/04 PHP

php实现只保留mysql中最新1000条记录

2015/06/18 PHP

Yii2框架中日志的使用方法分析

2017/05/22 PHP

对YUI扩展的Gird组件 Part-2

2007/03/10 Javascript

ParseInt函数参数设置介绍

2014/01/02 Javascript

javascript中的事件代理初探

2014/03/08 Javascript

node.js中的fs.fchown方法使用说明

2014/12/16 Javascript

jQuery+Ajax实现无刷新分页

2015/10/30 Javascript

详解AngularJS控制器的使用

2016/03/09 Javascript

JavaScript 基础函数_深入剖析变量和作用域

2016/05/18 Javascript

JavaScript:Array类型全面解析

2016/05/19 Javascript

JavaScript基于对象去除数组重复项的方法

2016/10/09 Javascript

基于Javascript实现文件实时加载进度的方法

2016/10/12 Javascript

JS 实现 ajax 异步浏览器兼容问题

2017/01/21 Javascript

js获取当前周、上一周、下一周日期

2017/03/19 Javascript

angularjs手动识别字符串中的换行符方法

2018/10/02 Javascript

vue实现拖拽的简单案例不超出可视区域

2019/07/25 Javascript

node 版本切换的实现

2020/02/02 Javascript

vue 动态组件用法示例小结

2020/03/06 Javascript

原生js实现下拉框选择组件

2021/01/20 Javascript

Flask入门教程实例：搭建一个静态博客

2015/03/27 Python

将Django框架和遗留的Web应用集成的方法

2015/07/24 Python

Python抽象和自定义类定义与用法示例

2018/08/23 Python

Python3使用xlrd、xlwt处理Excel方法数据

2020/02/28 Python

Python魔术方法专题

2020/06/19 Python

Petmate品牌官方网站：宠物用品

2018/11/25 全球购物

龟牌英国商店：Turtle Wax Brand Store UK

2019/07/02 全球购物

经典c++面试题二

2015/08/14 面试题

会计电算化大学生职业规划书

2014/02/05 职场文书

《长江之歌》教学反思

2014/04/17 职场文书

三好学生个人先进事迹材料

2014/05/17 职场文书

2014年秋季开学寄语

2014/08/02 职场文书

给朋友的道歉短信

2015/05/12 职场文书

运动会开幕式主持词

2015/07/01 职场文书

超详细Python解释器新手安装教程

2021/05/10 Python