zoukankan      html  css  js  c++  java
  • 关于WORD文档的导出

     1 Public Class ExportWord
     2 
     3     Dim wordApp As Word.Application = New Word.Application()
     4     Dim wordDocu As Word.Document = New Word.Document()
     5     Dim myNothing As Object = Missing.Value
     6 
     7     Public Function CreateWord() As Boolean
     8         wordDocu = wordApp.Documents.Add(myNothing, myNothing, myNothing, myNothing)
     9 
    10         '添加页眉
    11         wordApp.ActiveWindow.View.Type = WdViewType.wdOutlineView
    12         wordApp.ActiveWindow.View.SeekView = WdSeekView.wdSeekPrimaryHeader
    13         wordApp.Selection.InsertAfter("*****服务热线")
    14         wordApp.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
    15         '跳出页眉设置
    16         wordApp.ActiveWindow.View.SeekView = WdSeekView.wdSeekMainDocument
    17 
    18         '插入文字,设置字体样式
    19         wordApp.Application.Selection.Font.Size = 12
    20         wordApp.Application.Selection.Font.Bold = 5
    21         wordApp.Application.Selection.Font.Color = WdColor.wdColorBlack
    22         wordApp.Application.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
    23         wordApp.Application.Selection.TypeText("二○一三年十月份**热线情况说明")
    24 
    25         '换行
    26         wordApp.Application.Selection.TypeParagraph()
    27 
    28         '插入图片
    29         wordApp.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
    30         wordApp.Application.Selection.InlineShapes.AddPicture("C:WindowsWebWallpaperWindows1 (3).jpg", myNothing, myNothing, myNothing)
    31 
    32         '保存文件
    33         Dim myFileName = "C:UsersAdministratorDesktop1.doc"
    34         Dim myWordFormatDocument As Object = Word.WdSaveFormat.wdFormatDocument
    35         Dim myLockd As Object = False
    36         Dim myPassword As Object = ""
    37         Dim myAddto As Object = True
    38         Try
    39             wordDocu.SaveAs(myFileName, myWordFormatDocument, myLockd, myPassword, myAddto, myPassword, myLockd, myLockd, myLockd, myLockd, myNothing, myNothing, myNothing, myNothing, myNothing, myNothing)
    40 
    41         Catch ex As Exception
    42 
    43         End Try
    44 
    45     End Function
    46  
    47 End Class
  • 相关阅读:
    jquery如何获取url中问号后面的数值
    CSS3 @font-face
    如何在代码中应用设计模式
    面试中可能被问到的常用排序算法
    《深入java虚拟机》读书笔记之垃圾收集器与内存分配策略
    《深入java虚拟机》读书笔记之Java内存区域
    Spring系列之手写一个SpringMVC
    Java多线程之Executor框架和手写简易的线程池
    Spring系列之手写注解与配置文件的解析
    Spring系列之AOP的原理及手动实现
  • 原文地址:https://www.cnblogs.com/itzhanghb/p/3623194.html
Copyright © 2011-2022 走看看