编程 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插件开发菜单插件开发

May 03 Javascript

JS实现模仿微博发布效果实例代码

Dec 16 Javascript

省市区三级联动jquery实现代码

Apr 15 Javascript

在 Angular2 中实现自定义校验指令（确认密码）的方法

Jan 23 Javascript

jQuery给表格添加分页效果

Mar 02 Javascript

简单实现JavaScript弹幕效果

Aug 27 Javascript

jquery拖动改变div大小

Jul 04 jQuery

JavaScript实现随机数生成器（去重）

Oct 13 Javascript

JavaScript判断日期时间差的实例代码

Mar 01 Javascript

vue表单验证你真的会了吗？vue表单验证（form）validate

Apr 07 Javascript

echarts.js 动态生成多个图表使用vue封装组件操作

Jul 19 Javascript

JavaScript交换变量常用4种方法解析

Sep 02 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

构建简单的Webmail系统

2006/10/09 PHP

PHP PDOStatement对象bindpram()、bindvalue()和bindcolumn之间的区别

2014/11/20 PHP

Ajax提交表单时验证码自动验证 php后端验证码检测

2016/07/20 PHP

PHP中Laravel 关联查询返回错误id的解决方法

2017/04/01 PHP

Django 中 cookie的使用

2017/08/17 PHP

ThinkPHP框架实现的邮箱激活功能示例

2018/06/15 PHP

禁止你的左键复制实用技巧

2013/01/04 Javascript

超全面的javascript中变量命名规则

2017/02/09 Javascript

创建echart多个联动的示例代码

2018/11/23 Javascript

VUE实现密码验证与提示功能

2019/10/18 Javascript

基于JS判断对象是否是数组

2020/01/10 Javascript

微信小程序自定义弹出层效果

2020/05/26 Javascript

区分vue-router的hash和history模式

2020/10/03 Javascript

python中matplotlib的颜色及线条控制的示例

2018/03/16 Python

基于循环神经网络(RNN)的古诗生成器

2018/03/26 Python

django 解决扩展自带User表遇到的问题

2020/05/14 Python

python 读取串口数据的示例

2020/11/09 Python

使用Python爬取小姐姐图片（beautifulsoup法）

2021/02/11 Python

德国的大型美妆个护电商：Flaconi

2020/06/26 全球购物

基层工作经历证明

2014/01/13 职场文书

麦当劳辞职信范文

2014/01/18 职场文书

医生进修自我鉴定

2014/01/19 职场文书

幼儿园中秋节活动方案

2014/02/06 职场文书

企业后勤岗位职责

2014/02/28 职场文书

国培远程培训感言

2014/03/08 职场文书

《宿建德江》教学反思

2014/04/23 职场文书

作风建设演讲稿

2014/05/23 职场文书

汽车服务工程专业自荐信

2014/09/02 职场文书

党员对照检查剖析材料

2014/10/13 职场文书

公务员年度考核评语

2014/12/31 职场文书

三八妇女节新闻稿

2015/07/17 职场文书

创业计划书之奶茶店开店方案范本！

2019/08/06 职场文书

古诗文之爱国名句（77句）

2019/09/24 职场文书

关于拾金不昧的感谢信（五篇）

2019/10/18 职场文书

八年级作文之友情

2019/11/25 职场文书

详解盒子端CSS动画性能提升

2021/05/24 HTML / CSS