Add Formatted Text to a Word Document
更新时间:2007年06月15日 00:00:00 作者:
Demonstration script that displays formatted data in a Microsoft Word document.
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.Font.Name = "Arial"
objSelection.Font.Size = "18"
objSelection.TypeText "Network Adapter Report"
objSelection.TypeParagraph()
objSelection.Font.Size = "14"
objSelection.TypeText "" & Date()
objSelection.TypeParagraph()
复制代码 代码如下:
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.Font.Name = "Arial"
objSelection.Font.Size = "18"
objSelection.TypeText "Network Adapter Report"
objSelection.TypeParagraph()
objSelection.Font.Size = "14"
objSelection.TypeText "" & Date()
objSelection.TypeParagraph()
相关文章
可视化埋点平台元素曝光采集intersectionObserver思路实践
这篇文章主要为大家介绍了可视化埋点平台元素曝光采集的思路—intersectionObserver的实战经验详解,有需要的朋友可以借鉴参考下,希望能够有所帮助,祝大家多多进步,早日升职加薪2023-01-01CKEditor 4.4.1 添加代码高亮显示插件功能教程【使用官方推荐Code Snippet插件】
这篇文章主要介绍了CKEditor 4.4.1 添加代码高亮显示插件功能,涉及ckeditor使用官方推荐Code Snippet插件的相关操作布局与使用注意事项,需要的朋友可以参考下2019-06-06js合并数组对象代码实现(将数组中具有相同属性对象合并到一起组成一个新数组)
项目过程中经常会遇到JS数组合并的情况,时常为这个纠结,这篇文章主要给大家介绍了关于js合并数组对象(将数组中具有相同属性对象合并到一起组成一个新数组)的相关资料,需要的朋友可以参考下2024-01-01
最新评论