Sub CreateWord()
Dim wordApp As word.Application
      Application.StatusBar = "正在创建。。。"
      Set wordApp = New word.Application

With wordApp
          .Visible = True
          Application.StatusBar = "正在创建word"
         .Documents.Add
         .ActiveDocument.Paragraphs(1).Range.InsertBefore ("测试文档")
         Application.StatusBar = "正在保存"
         .ActiveDocument.SaveAs ("D:\work\test.docx")
         Application.StatusBar = "正在退出"
         .Quit
     End With
     Set wordApp = Nothing
     Application.StatusBar = False

End Sub

Sub CreateWord()
Dim wordApp As Word.ApplicationApplication.StatusBar = "正在创建。。。"Set wordApp = New Word.ApplicationWith wordApp.Visible = True.Application.StatusBar = "正在创建word".Documents.Add.ActiveDocument.Paragraphs(1).Range.InsertBefore ("测试文档").Application.StatusBar = "正在保存".ActiveDocument.SaveAs ("D:\work\test.docx").Application.StatusBar = "正在退出".QuitEnd WithSet wordApp = NothingApplication.StatusBar = FalseEnd Sub

word vba 创建一个新文档相关推荐

  1. Illustrator教程之 在 Ai 2022中创建一个新文档

    欢迎观看Illustrator教程,小编带大家学习 Illustrator 的基本工具和使用技巧,了解如何在 Ai 2022中制作新文档. 在Illustrator中有很多方法可以开始一个新项目.可以 ...

  2. pdfbox创建pdf_PDFBox之文档创建

    1.创建一个空的PDF 下面的小例子表示如何使用PDFBox来创建一个新的PDF文档. // 创建一个空的文档 PDDocument document = new PDDocument(); // 创 ...

  3. JavaScript刷新当前页面的三种方法,载入新文档替换当前页面

    通过JavaScript刷新当前页面的三种方法代码就可以简单的实现,首先我们来看三种刷新当前页的方法: reload() 方法; replace() 方法; 页面自动刷新; 方法1:reload() ...

  4. CCommandLineInfo详解-启动不创建新文档【对单文档有问题?】

    问:其实这里面还有问题,如果是单文档应用程序,这样做会出错.虽然编译连接都能通过,但是调试运行是到这里提示出错而中断了. 错误:在winocc.cpp文件的这句话:ASSERT(::IsWindow( ...

  5. CorelDRAW VBA - 在图层上创建一个新的OLE对象 Layer.CreateOLEObject

    Layer.CreateOLEObject 方法用来在图层上创建一个新的OLE对象. 参数说明 参数 描述 ObjectID 指定OLE对象的ID DisplayAsIcon 指定是否将OLE对象显示 ...

  6. 2.4 Photoshop创建新文档 [Ps教程]

    原文:http://coolketang.com/staticPhotoshop/5a98d347128fe1189bd94b03.html 1. 本节课将为您演示,如何新建一份空白文档.首先依次点击 ...

  7. 批量清空 Word 、Excel、PPT 文档中的标题、作者、版本号、公司、创建时间等元数据

    概要:「我的ABC软件工具箱」提供了强大的清空 Office 文档元数据的功能,包括常见的作者.版本号.公司.创建时间.修改时间等这些信息.支持的文档格式有 Word .Excel.PPT,能够一键对 ...

  8. 如何用python创建文件_怎么用python建立一个txt文档,并输入内容-百度经验

    这里,我要用python,在电脑桌面上,新建一个文件夹a,并在文件夹a里面,建立一个txt文档--b.txt,写上如下文字: 你好, 世界. 工具/原料 电脑 python 方法/步骤 1 在电脑桌面 ...

  9. linux如何右键新建文件夹,在Ubuntu 18.04右键菜单中增加新文档(New Document)及其他类型选项...

    本文教你在Ubuntu 18.04操作系统下使用命令操作在右键菜单中增加"新文档(New Document)"选项,包括为不同文件类型增加右键菜单选项的方法.起因是当我尝试创建一个 ...

最新文章

  1. 面试:说说Java中的 volatile 关键词?
  2. python装饰器-Python 装饰器
  3. 学python买什么电脑-程序员,买了台破Apple电脑,用来学Python
  4. 请问:hive中avg聚合函数会使用到combiner功能吗?
  5. Elasticsearch——Search的基本介绍
  6. Google AdSense 帐户已被停用
  7. 高级数据结构与算法 | 跳跃表(Skip List)
  8. 敏捷开发生态系统系列之五:关于敏捷生态系统的一次聊天记录(敏捷估算,同行压力,估算扑克)...
  9. 关于计算机的英语作文九年级,实用的九年级英语作文合集6篇
  10. python 学习资料
  11. SSL 延迟与 Http、Https
  12. 【二分法】剑指offer:二维数组中的查找
  13. java 字符串转long_如何在Java中将String转换为long?
  14. iphone4s上市时间_iPhone 4S才是真正意义上的王者, 网友: 现在依旧能打
  15. Oracle 12CR2 安装配置与基础学习
  16. SDD-FIQA基于人脸相似度分布距离的无监督质量评估方法
  17. 反欺诈概念库-物联卡/物联网卡/流量卡
  18. Frida的安装与使用
  19. Oracle | ORA-03135: connection lost contact.
  20. 【面试题】:工人分金条问题

热门文章

  1. 通过ROS控制真实机械臂(2)----单轴运动,手柄控制
  2. python 二重积分 辛普森法_二重积分的数值方法.doc
  3. 关于超级计算机的相关知识,“天河二号超级计算机”是我国独立自主研制的超级计算机系统,...
  4. elearning学习系统的试用心得
  5. 计算机如何添加usb平板电脑,平板电脑和电脑连接的方法【图解】
  6. 从铁道部12306.cn网站漫谈电子商务网站的“海量事务高速处理”系统
  7. 凤飞飞方法方法方法凤飞飞飞凤飞飞飞凤飞飞凤飞飞
  8. android平台如何实现b s模式,基于B/S架构的Android手机管理系统的设计与实现
  9. 中秋节活动策划PPT模板
  10. 修复吾爱OD数据窗口双击不出现偏移问题