`
pichcar
  • 浏览: 287587 次
  • 性别: Icon_minigender_1
  • 来自: 北京
社区版块
存档分类
最新评论

Word.Application应用

CC++C#HTML
阅读更多
js导出到word文档模板(2010-04-06 13:27:48)
转载标签：it 
1.保存html页面到word



<HTML>

<HEAD>

<title>

</title>

</HEAD>

<body>

<form id="form">

<table id = "PrintA" width="100%" border="1" cellspacing="0" cellpadding="0" >

<TR style="text-align : center;">

<TD>单元格1</TD>

<TD>单元格2</TD>

<TD>单元格3</TD>

<TD>单元格4</TD>

</TR>

<TR>

<TD colSpan=4 style="text-align : center;"><font color="red" face="Verdana">单元格合并</FONT></TD>

</TR>

</TABLE>

<BR>

<table id = "Test" width="100%">

<tr>

<td><font color="red">test</FONT></td>

</tr>

</table>

</form>

<input type="button" onclick="javascript:MakeWord();" value="导出页面到Word">

<SCRIPT LANGUAGE="javascript">

function MakeWord()

{

var word = new ActiveXObject("Word.Application");

// var doc = word .documents.open("c:\test.doc");     //此处为打开已有的模版

var doc = word .Documents.Add("",0,1);//不打开模版直接加入内容

var   Range=doc.Range();

var sel = document.body.createTextRange();

sel.moveToElementText(form);//此处form是页面form的id

sel.select();

sel.execCommand("Copy");

Range.Paste();

word .Application.Visible = true;

alert("s");

word.Application.Selection.InlineShapes.AddPicture("c:\\m20.gif");

alert("n");

doc .saveAs("c:\\ba.doc");     //存放到指定的位置注意路径一定要是“\\”不然会报错

}

</SCRIPT>

</body>

</html>

***************************************************************************************************

2.用JS生成WORD

***************************************************************************************************

<script>

function wordcontorl(){

alert("1111")

var WordApp=new ActiveXObject("Word.Application");


var wdCharacter=1

var wdOrientLandscape = 1

WordApp.Application.Visible=true;

var myDoc=WordApp.Documents.Add();

WordApp.ActiveDocument.PageSetup.Orientation = wdOrientLandscape


WordApp. Selection.ParagraphFormat.Alignment=1 //1居中对齐,0为居右

WordApp. Selection.Font.Bold=true

WordApp. Selection.Font.Size=20


WordApp. Selection.TypeText("我的标题");

WordApp. Selection.MoveRight(wdCharacter);　　　　//光标右移字符

WordApp.Selection.TypeParagraph()　　　　　　　　　//插入段落

WordApp. Selection.Font.Size=12

WordApp. Selection.TypeText("副标题"); //分行插入日期

WordApp.Selection.TypeParagraph()　　　　　　　　　//插入段落



var myTable=myDoc.Tables.Add (WordApp.Selection.Range, 8,7) //8行7列的表格

//myTable.Style="网格型"

var aa = "我的列标题"


var TableRange; //以下为给表格中的单元格赋值

for (i= 0;i<7;i++)

{

with (myTable.Cell(1,i+1).Range)

{

font.Size = 12;

InsertAfter(aa);

ColumnWidth =4

}

}

for (i =0;i<7;i++)

{

for (n =0;n<7 ;n++)

{


with (myTable.Cell(i+2,n+1).Range)

{font.Size = 12;

InsertAfter("bbbb");

}

}

}

row_count = 0;

col_count = 0

myDoc.Protect(1)

}

wordcontorl()

</script>

***************************************************************************************************

3.遍历导出到word

***************************************************************************************************

1、遍历导出每个文本框内的内容。

<script language="javascript">

function OpenWord(){//导出word

var txt="txt";

for(i=0;i<table1.rows.length;i++)//遍历导出图表和文字

{

txt="txt"+jilu[i];

myRange =mydoc.Range(myRange.End-1,myRange.End);//设定起始点

var sel=Layer1.document.body.createTextRange();

//sel.moveToElementText(table1);

sel.moveToElementText(document.all[txt]);

sel.select();

Layer1.document.execCommand('Copy');

sel.moveEnd('character');

myRange.Paste();

myRange =mydoc.Range(myRange.End-1,myRange.End);

myRange.InsertAfter("\n");

ExcelSheet.ActiveWindow.View.TableGridlines = false;//隐藏虚框

}

}

</script>

2、拷贝table1内的内容到word

<script language="javascript">

function OpenWord(){//导出word

Layer1.style.border=0;

ExcelSheet = new ActiveXObject('Word.Application');

ExcelSheet.Application.Visible = true;

var mydoc=ExcelSheet.Documents.Add('',0,0);

myRange =mydoc.Range(0,1);

myRange =mydoc.Range(myRange.End-1,myRange.End);//设定起始点

var sel=Layer1.document.body.createTextRange();

sel.moveToElementText(table1);

sel.select();

Layer1.document.execCommand('Copy');

sel.moveEnd('character');

myRange.Paste();

myRange =mydoc.Range(myRange.End-1,myRange.End);

myRange.InsertAfter("\n");

ExcelSheet.ActiveWindow.View.TableGridlines = false;

}

</script>

分享到：
| URL中的特殊字符处理笔记
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

    vb 版 word.bll

    Dim mWordapp As Word.Application 'word 应用程序 Dim mobjDoc As Word.Document 'word 文档 Dim fullFileName As String = "images/wodr.doc" '文件路径 mWordapp = CreateObject("Word.Application") ...

    VB6.0 将数据库数据传给Word.rar

    　'创建word应用程序，这一句话打开word2000 　Set wdapp = CreateObject("Word.Application") 　'在word中添加一个新文档 　Set wddoc = wdapp.Documents.Add 　With wdapp 　.Visible = True 　.Activate 　'在...

    C#读写Word文档异常处理解析System.Runtime.InteropServices.COMException

    C#读取Word文档时会有什么异常呢？那么这里向你介绍了Asp.net中建立MS office组件时出现“拒绝访问”和“消息筛选器...Asp.net中建立Microsoft.Office.Interop.Word.Application时出现“拒绝访问”错误的解决方法 。

    pywin32-218.win32-py2.7

    pythonwin是python在win32平台下的COM扩展和一个UI工具，对于Windows平台的应用程序的操作或UI自动化测试很有帮助。 示例： 使用Dispatch打开word -------------------- &gt;&gt;&gt; import win32com.client &gt;&gt;&gt; w=win32...

    Wordapplication

    介绍了word的基本用法，还有我们日常一些应用的技巧，帮助我们快速有效的编辑文件

    word表格格式

    &lt;br&gt;/* \endofdoc是预定义的bookmark */ &lt;br&gt;//创建一个document. Word._Application oWord; Word._Document oDoc; oWord = new Word.Application(); oWord.Visible = true; oDoc = oWord....

    Python操作word常见方法示例【win32com与docx模块】

    本文实例讲述了Python操作word常见方法。分享给大家供大家参考，具体如下： ...word = Dispatch('Word.Application') # 打开word应用程序 # word = DispatchEx('Word.Application') #启动独立的进程 word.Visible

    Excel VBA语句集

    (202) Application.ActivateMicrosoftApp xlMicrosoftWord '开启Word应用程序 (203) Application.TemplatesPath ‘获取工作簿模板的位置 (204) Application.Calculation = xlCalculationManual ‘设置工作簿手动计算...

    文件提取器程序，文件提取器将所选文件名存到Word表格中(VB6.0源代码编写)irecordcount = File1.ListCount

    '创建word应用程序，这一句话打开word2000 Set wdapp = CreateObject("Word.Application") '在word中添加一个新文档 Set wddoc = wdapp.Documents.Add With wdapp .Visible = True .Activate '在word中增加...

    Graph VB 参考

    OLE 程序标识符请参阅特性 可使用 OLE 程序标识符（有时称作 ProgID）创建自动化... 若要创建此对象 请使用这些标识符之一 Application Word.Application Document Word.Document, Word.Template Global Word.Global

    application/msword

    在计算机支持的信息技术时代，电子技术日益数字化，数字电路以其的基本单元简单化，应用单元标准化、模块化、通用化的特点，长驱直入地深入到电力、通讯、计算机、家电、机械等行业的应用。数字抢答器由主体电路与...

    vsto创建Office应用程序

    通过使用全局模板为Word和Excel创建应用程序级的定制。 通过创建与想要重载的命令有相同名称的宏，重载Word、Excel和Outlook中的原始命令。 对终端计算机粘附禁止配置.NET框架的有组织的需求。

    Word VBA 常用语句100句

    Word VBA 常用语句100句 Application对象 (301) Application.ActivePrinter ‘获取当前...(302) Application.Height '当前应用程序文档的高度 (303) Application.Width ‘当前应用程序文档的宽度 ...................

    wordvbaapplication

    word vba 应用便于对word应用开发提供帮助！

    Visual Basic For Application(VBA),可以认为VBA

    微软决定让它开发出来的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA),可以认为VBA是非常流行的应用程序开发语言VASUAL BASIC 的子集.实际上VBA是"寄生于"VB应用程序的版本.VBA和VB的...

    wordfinder:当唯一的资源是按索引查询单词时，控制台应用程序在 Web 服务中查找单词

    应用程序可以使用单词来调用 find 作为参数，也可以在运行时通知它测试WordFinder.Test -&gt; 算法和域（word）的单元和集成测试WordFinder.ApplicationTest -&gt; 应用层的单元和集成测试（消息传递和与核心库的集成） ...

    FlexGraphics_V_1.79_D4-XE10.2_Downloadly.ir

    Version 1.7 ----------- - ADD: Delphi/CBuilder 10.2 Tokyo now supported. - ADD: Delphi/CBuilder 10.1 Berlin now supported. - ADD: Delphi/CBuilder 10 Seattle now supported. - ADD: Delphi/CBuilder XE8 ...

    Web系统与技术 课程教材

    4.3 正则表达式应用... 104 4.3.1 RegExp对象... 104 4.3.2 String 对象的正则表达式方法... 106 4.4 常见的正则表达式... 107 4.5 习题... 108 第5章 JavaScript编程技术... 109 5.1 JavaScript编程基础... ...

    python调用office API的相关应用

    python调用office API的相关应用批量合并word文档 批量合并word文档 参考链接 ...主要内容 ...import os word = win32.gencache.EnsureDispatch('Word.Application') # 启动word对象应用 word.Visible =False

    Java游戏设计打飞机程序(源代码+WORD论文).zip

    Java游戏设计打飞机程序(源代码+WORD论文) 1.1 手机软件现状 在信息社会中，手机及其他无线设备越来越多的走进普通百姓的工作和生活，随着信息网络化的不断进展，手机及其他无线设备上网络势在必行。但是传统手机...

Magicbox
Global site tag (gtag.js) - Google Analytics