用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 国漫