jswordsaveas17

1.使用javascript怎样操作word,对word进行页面设置

这个只能在IE上用，使用jscript。

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（) //插入段落 相当于br

WordApp. Selection.Font.Size=12

WordApp. Selection.TypeText（"副标题"）； //分行插入日期

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

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

var aa = "我的列标题"

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

{

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

{

font.Size = 12;

InsertAfter(aa);

ColumnWidth =4;

ParagraphFormat.Alignment =1； //设置对齐方式 水平对齐

}

}

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");

ParagraphFormat.Alignment =1； //设置对齐方式 水平对齐

}

}

}

myDoc .saveAs("d:\\gc.doc")； //保存word

2.求个JS控制导出WORD的代码（将多个word附件整合成一个并打印出

Set objWord = CreateObject("Word.Application")

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() Next objDoc.SaveAs("C:\Scripts\Word\testdoc.doc") objWord.Quit

3.求大神指点

用jscript实现新建和保存一个word文档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。

4.java生成word文档的问题

Jacob解决Word文档的读写问题收藏 Jacob 是Java-COM Bridge的缩写，它在Java与微软的COM组件之间构建一座桥梁。

使用Jacob自带的DLL动态链接库，并通过JNI的方式实现了在Java平台上对COM程序的调用。Jacob下载的地址为：或者js中中如何获得另存为的文件路径（java也可以）

js实现文件另存为的我还没见到过。java的确实是可以，java的实现方式也不止一种。下面以Swing的方式来讲解一种：

通过创建一个文件对话框

//parent表示对话框的所有者 Frame

//title表示对话框的标题 String

//mode表示对话框的类型，这里指定为保存类型 int( FileDialog.SAVE)

FileDialog saveAsFileDialog = new FileDialog(parent， "对话框标题"， FileDialog.SAVE)；然后指定这个文件对话框为文件保存类型。调用

saveAsFileDialog.setVisible(true)；的方式来显示对话框。显示对话框以后该对话框就处于阻塞状态等待用户通过UI界面去选择文件保存路径。点击保存以后。

saveAsFileDialog.getDirectory（)//文件对话框的保存目录

+ saveAsFileDialog.getFile（)；// 获取此文件对话框的保存文件名拿到保存路径就能够实现文件的保存逻辑操作了。

转载请注明出处51数据库 » jswordsaveas17