编程 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+WebService 校验账号是否已被注册的代码

Jul 12 Javascript

javascript整除实现代码

Nov 23 Javascript

javascript 实现子父窗体互相传值的简单实例

Feb 17 Javascript

小议JavaScript中Generator和Iterator的使用

Jul 29 Javascript

jQuery Validate表单验证入门学习

Dec 18 Javascript

javascript类型系统 Array对象学习笔记

Jan 09 Javascript

浅谈JavaScript 覆盖原型以及更改原型

Aug 31 Javascript

AngularJS ng-template寄宿方式用法分析

Nov 07 Javascript

前端 Vue.js 和 MVVM 详细介绍

Dec 29 Javascript

详解AngularJS2 Http服务

Jun 26 Javascript

微信小程序实现折叠与展开文章功能

Jun 12 Javascript

小程序实现带年月选取效果的日历

Jun 27 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

一个从别的网站抓取信息的例子(域名查询)

2006/10/09 PHP

PHP的foreach中使用引用时需要注意的一个问题和解决方法

2014/05/29 PHP

php+mysql实现无限级分类

2015/11/11 PHP

jQuery制作拼图小游戏

2015/01/12 Javascript

原生js仿jquery一些常用方法(必看篇)

2016/09/20 Javascript

js多个物体运动功能实例分析

2016/12/20 Javascript

Grunt针对静态文件的压缩,版本控制打包的实例讲解

2017/09/29 Javascript

vue resource post请求时遇到的坑

2017/10/19 Javascript

微信小程序实现animation动画

2018/01/26 Javascript

改变vue请求过来的数据中的某一项值的方法(详解)

2018/03/08 Javascript

浅谈vue 单文件探索

2018/09/05 Javascript

在elementui中Notification组件添加点击事件实例

2020/11/11 Javascript

Python单元测试框架unittest使用方法讲解

2015/04/13 Python

详解在Python中处理异常的教程

2015/05/24 Python

全面理解Python中self的用法

2016/06/04 Python

python解决方案：WindowsError: [Error 2]

2016/08/28 Python

Python3实战之爬虫抓取网易云音乐的热门评论

2017/10/09 Python

你真的了解Python的random模块吗？

2017/12/12 Python

Python IDLE清空窗口的实例

2018/06/25 Python

在python里面运用多继承方法详解

2019/07/01 Python

flask框架路由常用定义方式总结

2019/07/23 Python

Xadmin+rules实现多选行权限方式(级联效果)

2020/04/07 Python

CSS3+Sprite实现僵尸行走动画特效源码

2016/01/27 HTML / CSS

CSS3实现时间轴效果

2016/07/11 HTML / CSS

药学专业大学生自荐信

2013/09/28 职场文书

工厂实习感言

2014/01/14 职场文书

小学新学期寄语

2014/04/02 职场文书

2014离婚协议书范文两篇

2014/09/15 职场文书

法人代表身份证明书及授权委托书

2014/09/16 职场文书

党的群众路线教育实践活动个人对照检查材料（四风）

2014/11/05 职场文书

学习党章的体会

2014/11/07 职场文书

2014年教育教学工作总结

2014/11/13 职场文书

电力安全学习心得体会

2016/01/18 职场文书

2019自荐信范文集锦！

2019/07/03 职场文书

MySQL 聚合函数排序

2021/07/16 MySQL

关于EntityWrapper的in用法

2022/03/22 Java/Android