javacript to word

最新推荐文章于 2024-09-17 11:42:54 发布

莫情莫钱

最新推荐文章于 2024-09-17 11:42:54 发布

阅读量434

点赞数

分类专栏： js 文章标签： input textbox office javascript button function

本文链接：https://blog.csdn.net/bhw1985/article/details/2056038

版权

js 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

<html>
<head>
    <title>设置office相关属性</title>
    <script language="javascript">
    <!--
      function outToWord()
      {
        var app = new ActiveXObject("Word.Application");
        var word = app.Documents.Add();
        app.visible = true;
        word.PageSetup.LeftMargin = 0;
        word.PageSetup.RightMargin = 0;
        word.PageSetup.TopMargin = 0;
        word.PageSetup.BottomMargin = 0;
        word.PageSetup.Orientation = 1;
        var textbox = word.Shapes.AddTextbox(1,100,100,300,300);
        textbox.TextFrame.TextRange.Text = "个地夺取三联单一些";
        word.Shapes.Range(1).Fill.ForeColor = 34678;
        word.Shapes.Range(1).Fill.Transparency = 0.5;
        textbox.Line.Transparency = 0;
        textbox.Line.Weight = 4;
        textbox.Line.ForeColor = 81534;
        //alert(textbox.TextFrame.Borders);
        //word.Shapes.Parent.Borders.Enable = true;
        textbox.Shadow.Transparency = 0;
        //textbox.ShapeRange.Fill.Transparency = 0;

        word.Paragraphs(1).Alignment = 1;
        word.Paragraphs(1).Range.Font.Size = 18;
        word.Paragraphs(1).Range.InsertAfter("是这样的");
        word.Paragraphs(1).Range.InsertParagraphAfter();
        word.Paragraphs(2).Alignment = 0;
        word.Paragraphs(2).Range.Font.Size = 14;
        word.Paragraphs(2).Range.InsertAfter("行这是要");
        word.Paragraphs(2).Borders.Enable = true;
        word.Paragraphs(2).Borders.DistanceFromLeft = 5;
        word.Paragraphs(2).Borders(1).LineStyle = 0;
        word.Paragraphs(2).Borders(2).LineStyle = 0;
        word.Paragraphs(2).Borders(4).LineStyle = 0;
        word.Paragraphs(2).Borders(2).ColorIndex = 3;
        word.Paragraphs(2).Borders(3).ColorIndex = 4;
        word.Paragraphs(2).Borders(4).ColorIndex = 2;
        //word.Paragraphs(2).Borders(1).LineWidth = 2;

        word.Paragraphs(2).Range.InsertParagraphAfter();
        word.Paragraphs(3).Range.InsertAfter(document.all.text1.value);
        word.Paragraphs(3).Range.InsertParagraphAfter();
        word.Paragraphs(3).Borders.Enable = true;
        word.Paragraphs(3).Borders(1).Linestyle = 0;
        word.Paragraphs(3).Borders(2).LineStyle = 0;
        word.Paragraphs(3).Borders(4).LineStyle = 0;
        word.Paragraphs(4).Range.InsertAfter(document.all.text2.value);
        word.Paragraphs(4).Range.InsertParagraphAfter();
        word.Paragraphs(4).Borders.Enable = true;
        //word.Paragraphs(4).Borders(1).LineStyle = 0;
        word.Paragraphs(4).Borders(2).LineStyle = 0;
        word.Paragraphs(4).Borders(4).LineStyle = 0;
        document.writeln("文章有"+word.Paragraphs.count+"段");
        alert("成功")
      }
    -->
    </script>
</head>
<body>
    <H1>设置office有关属性</H1>
    <input type="text" id="text1"><br>
    <input type="text" id="text2"><br>
    <input type="button" value="导出word" οnclick="outToWord()">
</body>
</html>