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
  • 相关阅读:
    get_json_object 用法
    vim中的特殊字符
    vim常用命令
    mac下如何配置用户的环境变量
    vim如何替换^M ?
    git ssh 配置
    mac上pip install时提示/System/Library/... 无权限
    mysql语句--table中某列有多值时,删除其他,仅保留1条
    mysql语句如何把多行的数据合并到一行?
    微服务分布式电商项目学习笔记(二)---- 微服务架构图+微服务划分图(2020/7/1)
  • 原文地址:https://www.cnblogs.com/itzhanghb/p/3623194.html
Copyright © 2011-2022 走看看