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

JS对外部文件的加载及对IFRMAME的加载的实现,当加载完成后,指定指向方法(方法回调)

Jul 04 Javascript

jquery mobile changepage的三种传参方法介绍

Sep 13 Javascript

PageSwitch插件实现100种不同图片切换效果

Jul 28 Javascript

教你如何在Node.js中使用jQuery

Aug 28 Javascript

JS 实现导航菜单中的二级下拉菜单的几种方式

Oct 31 Javascript

react-native 完整实现登录功能的示例代码

Sep 11 Javascript

解决vue中对象属性改变视图不更新的问题

Feb 23 Javascript

当vue路由变化时,改变导航栏的样式方法

Aug 22 Javascript

实例详解vue中的$root和$parent

Apr 29 Javascript

js计算两个时间差天时分秒毫秒的代码

May 21 Javascript

解决vue单页面回退页面 keeplive 缓存问题

Jul 22 Javascript

Node.js 深度调试方法解析

Jul 28 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动态创建Flash动画

2006/10/09 PHP

用PHP的超级变量$_POST获取HTML表单(HTML Form) 数据

2011/05/07 PHP

浏览器关闭后，能继续执行的php函数(ignore_user_abort)

2012/08/01 PHP

Laravel5.* 打印出执行的sql语句的方法

2017/07/24 PHP

JavaScript 参考教程

2006/12/29 Javascript

精解window.setTimeout()&window.setInterval()使用方式与参数传递问题！

2007/11/23 Javascript

使用javascript:将其它类型值转换成布尔类型值的解决方法详解

2013/05/07 Javascript

jquery隐藏标签和显示标签的实例

2013/11/11 Javascript

理解javascript异步编程

2016/01/27 Javascript

AngularJS 指令详细介绍

2016/07/27 Javascript

Vue CLI3 如何支持less的方法示例

2018/08/29 Javascript

vue 实现v-for循环回来的数据动态绑定id

2019/11/07 Javascript

详解JavaScript匿名函数和闭包

2020/07/10 Javascript

vue.js 解决v-model让select默认选中不生效的问题

2020/07/28 Javascript

微信小程序实现电子签名功能

2020/07/29 Javascript

JavaScript编写开发动态时钟

2020/07/29 Javascript

ES11屡试不爽的新特性,你用上了几个

2020/10/21 Javascript

Python中统计函数运行耗时的方法

2015/05/05 Python

python抓取网页中图片并保存到本地

2015/12/01 Python

详解Django+Uwsgi+Nginx的生产环境部署

2018/06/25 Python

基于python中theano库的线性回归

2018/08/31 Python

对Python3中bytes和HexStr之间的转换详解

2018/12/04 Python

Django中更改默认数据库为mysql的方法示例

2018/12/05 Python

Python转换时间的图文方法

2019/07/01 Python

CSS3字体效果的设置方法小结

2016/06/13 HTML / CSS

高山背包：High Sierra

2017/11/23 全球购物

德国高品质男装及配饰商城：Cultizm（Raw Denim原色牛仔裤）

2018/04/16 全球购物

Doyoueven官网：澳大利亚健身服饰和配饰品牌

2019/03/24 全球购物

乌克兰数字设备、配件和智能技术的连锁商店：KTC

2020/08/18 全球购物

Android面试宝典

2013/08/06 面试题

什么是用户模式(User Mode)与内核模式(Kernel Mode) ？

2015/09/07 面试题

职业规划书如何设计？

2014/01/09 职场文书

2014道德模范事迹材料

2014/02/16 职场文书

法院四风对照检查材料思想汇报

2014/10/06 职场文书

单位车辆管理制度

2015/08/05 职场文书

Python 居然可以在 Excel 中画画你知道吗

2022/02/15 Python