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

面向对象设计模式的核心法则

Nov 10 Javascript

使用jquery局部刷新(jquery.load)从数据库取出数据

Jan 22 Javascript

jquery实现html页面 div 假分页有原理有代码

Sep 06 Javascript

基于javascript实现漂亮的页面过渡动画效果附源码下载

Oct 26 Javascript

基于Jquery插件Uploadify实现实时显示进度条上传图片

Mar 26 Javascript

JavaScript中两个字符串的匹配

Jun 08 Javascript

微信小程序教程之模板

Oct 18 Javascript

webpack配置proxyTable时pathRewrite无效的解决方法

Dec 13 Javascript

vuex管理状态刷新页面保持不被清空的解决方案

Nov 11 Javascript

node.js中path路径模块的使用方法实例分析

Feb 13 Javascript

用VsCode编辑TypeScript的实现方法

May 07 Javascript

jquery插件实现图片悬浮

Apr 16 jQuery

用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

实例(Smarty+FCKeditor新闻系统)

2007/01/02 PHP

PHP 面向对象详解

2012/09/13 PHP

Php output buffering缓存及程序缓存深入解析

2013/07/15 PHP

php加密解密函数authcode的用法详细解析

2013/10/28 PHP

php读取纯真ip数据库使用示例

2014/01/26 PHP

PHP实现的折半查询算法示例

2017/10/09 PHP

laravel5环境隐藏index.php后缀(apache)的方法

2019/10/12 PHP

打开超链需要“确认”对话框的方法

2007/03/08 Javascript

JS实多级联动下拉菜单类，简单实现省市区联动菜单！

2007/05/03 Javascript

JavaScript通过正则表达式实现表单验证电话号码

2014/03/07 Javascript

JavaScript实现把数字转换成中文

2015/06/29 Javascript

jQuery模拟物体自由落体运动(附演示与demo源码下载)

2016/01/21 Javascript

详解原生JavaScript实现jQuery中AJAX处理的方法

2016/05/10 Javascript

概述BootStrap中role="form"及role作用角色

2016/12/08 Javascript

layui--js控制switch的切换方法

2019/09/03 Javascript

js实现图片实时时钟

2020/01/15 Javascript

vue实现全屏滚动效果（非fullpage.js）

2020/03/07 Javascript

详解vue 组件

2020/06/11 Javascript

VUE异步更新DOM - 用$nextTick解决DOM视图的问题

2020/11/06 Javascript

vue 解决provide和inject响应的问题

2020/11/12 Javascript

[01:11:21]DOTA2-DPC中国联赛正赛 Phoenix vs CDEC BO3 第三场 3月7日

2021/03/11 DOTA

python中的reduce内建函数使用方法指南

2014/08/31 Python

Python通过Django实现用户注册和邮箱验证功能代码

2017/12/11 Python

浅谈Django REST Framework限速

2017/12/12 Python

Matplotlib 生成不同大小的subplots实例

2018/05/25 Python

对python使用telnet实现弱密码登录的方法详解

2019/01/26 Python

python版DDOS攻击脚本

2019/06/12 Python

python pandas cumsum求累计次数的用法

2019/07/29 Python

Python+OpenCv制作证件图片生成器的操作方法

2019/08/21 Python

css3实现多个元素依次显示效果

2017/12/12 HTML / CSS

Martinelli官方商店：西班牙皮鞋和高跟鞋品牌

2019/07/30 全球购物

歌唱比赛主持词

2014/03/18 职场文书

团日活动总结怎么写

2014/06/25 职场文书

2015年推广普通话演讲稿

2015/03/20 职场文书

如何用PHP实现多线程编程

2021/05/26 PHP

十大必看国产动漫排名，魁拔上线，第二曾在日本播出

2022/03/18 国漫