VB6生成Word文件

'生成Word文件,先VBE工具-引用-micorsoft word

Dim wdApp As Word.Application

Dim wdDoc As Word.Document

Set wdApp = New Word.Application

Set wdDoc = Documents.Add

Dim mySelection As Word.Selection

Set mySelection = Documents.Application.Selection

Dim MyDesktop As String

MyDesktop = "e:\users\lf\desktop\"

wdDoc.SaveAs MyDesktop & "a2.doc"

wdDoc.Close

With wdApp

.Documents.Open (MyDesktop & "a2.doc")

With .Selection

.ParagraphFormat.Alignment = wdAlignParagraphCenter

.Font.Size = 18

.Font.Name = "华文中宋"

.TypeText Text:="关于刘明20万元的调查报告"

.TypeParagraph’插入换行符

.ParagraphFormat.Alignment = wdAlignParagraphLeft

.Font.Size = 14

.Font.Name = "华文仿宋"

.TypeParagraph

.TypeText Text:="区审小组："

.TypeParagraph

.ParagraphFormat.CharacterUnitFirstLineIndent = 2

.TypeText Text:="接到南阳市公司提交的刘明调查报告后，我部进行了认真的调查，现具体汇报如下："

.TypeParagraph

.Font.Size = 15

.Font.Name = "黑体"

.TypeText Text:="一、借人基本情况"

.TypeParagraph

.Font.Size = 14

.Font.Name = "华文仿宋"

.TypeText Text:="刘明，男，汉族。"

.TypeParagraph

.TypeText Text:="南阳市**公司"

.ParagraphFormat.Alignment = wdAlignParagraphRight

.ParagraphFormat.RightIndent = CentimetersToPoints(1.95)

.TypeParagraph

.TypeText Text:="2019年11月16日"

.ParagraphFormat.RightIndent = CentimetersToPoints(2.59)

End With

.Documents.Save

End With

wdApp.Visible = True

wdApp.ScreenUpdating = True

wdApp.ActiveWindow.Activate

Set wdDoc = Nothing

Set wdApp = Nothing

Selection.InsertAfter "good" & vbCrLf’在当前光标位置插入该段字符，且插入后该段字符为选中状态。

Selection.TypeParagraph

VB6生成Word文件相关推荐

JSP生成word文件
1.jsp生成word文件,直接改动jsp格式: <%@ page contentType="application/vnd.ms-word;charset=GB2312"% ...
Java技术：SpringBoot集成FreeMarker生成word文件
今天给大家分享SpringBoot集成FreeMarker模板引擎生成word文件的用法,感兴趣的可以学一下,完整源码地址在文章末尾处,欢迎互相沟通交流! 一.什么是F ...
php如何生成本地文档,php如何生成word文件
php生成word文件的方法: 需求: 甲方爸爸说"我有一个word文件,里面是关于用户信息的表格,你帮我把系统里面所有用户数据都按照这个文件导出来给我": 我当时就不乐意了,啪的 ...
Java使用iText生成word文件的完美解决方案（亲测可行）
JAVA生成WORD文件的方法目前有以下种: 一种是jacob 但是局限于windows平台往往许多JAVA程序运行于其他操作系统在此不讨论该方案一种是pio但是他的excel处理很程序 wor ...
Java使用iText生成word文件的解决方案
JAVA生成WORD文件的方法目前有以下种: 一种是jacob 但是局限于windows平台往往许多JAVA程序运行于其他操作系统在此不讨论该方案一种是pio但是他的excel处理很程序 wor ...
java itext word_Java使用iText生成word文件的解决方案 | 学步园
转自[http://www.31km.cn/post/450.html] JAVA生成WORD文件的方法目前有以下种: 一种是jacob 但是局限于windows平台往往许多JAVA程序运行于其他操 ...
PHP导出word【直接生成word文件】
使用composer安装PHPword: composer require phpoffice/phpword 直接生成word文件: public function makePhpWord(){ ...
Python 自动化教程(5) : 自动生成Word文件
系列教程: Python 自动化教程(1) 概述,第一篇 Excel自动化 Python 自动化教程(2) : Excel自动化:使用pandas库 Python 自动化教程(3) : 自动生成PPT ...
Freemark生成Word文件的加密处理
Word文件加密处理 Word文件的加密处理具体实现 Word文件的加密处理最近完成了一个使用freemark生成文档的需求.本次实现使用的是freemark模板技术. 具体实现首先使用wps或 ...

VB6生成Word文件

VB6生成Word文件相关推荐

最新文章

热门文章