var myword = document.all.myword.ActiveDocument;
var wdapp=new ActiveXObject("Word.Application");
var wddoc=wdapp.Documents.Open("c:\\temp\\hshzoa\\myredword.doc");
var wds=wddoc.Books;
wds("body").Range.InsertFile("c:\\temp\\hshzoa\\myword.doc");以上javascript代码实现在word文档"myredword.doc"中的"body"域中,插入另一个word文档"myword.doc"。
现在的问题是,如何将插入的word文档,按照固定的格式显示,比如不论我插入的文档中段落、字体大小是多少,插入后都以1.5倍行距,字体大小5号字输出?希望大家帮助一下,不胜感激。
var wdapp=new ActiveXObject("Word.Application");
var wddoc=wdapp.Documents.Open("c:\\temp\\hshzoa\\myredword.doc");
var wds=wddoc.Books;
wds("body").Range.InsertFile("c:\\temp\\hshzoa\\myword.doc");以上javascript代码实现在word文档"myredword.doc"中的"body"域中,插入另一个word文档"myword.doc"。
现在的问题是,如何将插入的word文档,按照固定的格式显示,比如不论我插入的文档中段落、字体大小是多少,插入后都以1.5倍行距,字体大小5号字输出?希望大家帮助一下,不胜感激。
解决方案 »
- 自动计算汽车的价格
- 如何用正则去除span标签
- 网页左右滚动图片新闻怎么做?
- 由JavaScript 脚本转换成 C# 的代码,涉及到十六进制、移位等操作,以前见都没见过,怎么能有效转换就好了。
- 请高手帮忙注释下。谢谢。
- 不提交表单,怎样读取TXET中的值?
- 如何用CSS控制背景图片,和鼠标事件.
- 在浏览器关闭之前的事件及处理?
- 我需要从数据库中SELECT出记录,显示在<TEXTAREA>中,然后把这个 <TEXTAREA>设成只读的,怎么办
- 求救,怎样在提交表单后出现一个类似安装程序的进程条,但接受服务器数据后进程条消失,显示相应数据!!!!
- 2010新鲜出炉.原创在线Dom使用手册
- jquery ui tabs使用错误
<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>