前言：在职场工作中，我们大部分时间都在与office/wps办公软件打交道，面对日益提高的工作要求及重复性工作，我们往往疲于应付，对提高效率束手无策。

下面，我们就从一件小事切入，看如何提高效率，进而完成工作任务。

视频加载中...

需求概览

设计一个文本框，在文本框里写入文字，点击“执行”实现写入word操作。

总体思路

  1. 窗体设计。窗体上放置两个控件，即文本框和按钮，文本框用于存放待写入的文字，按钮用于启动程序。
  2. 代码设计。编写按钮代码。
  3. 调试运行。点击按钮，启动程序，比对目标效果和实际效果进行微调。

窗体设计

# 放置一个文本框

# 放置一个启动按钮

此处需要注意标签代码的闭合。

代码设计

模块设计

# 声明Word主程序为公有对象

Public wap As Object

# 创建名为word_create过程

Sub word_create()

# 创建Word主程序

wap = CreateObject("word.application")

# 设置可见模式

wap.visible = True

# 创建名为word_doc_add过程

Sub word_doc_add()

# 新增word文档

wap.documents.add()

# 创建名为word_doc_paragraph_write过程（设置传入参数ARGV）

Sub word_doc_paragraph_write(ARGV)

# 将参数值写入word段落第一行区域

wap.documents(1).paragraphs(1).range.text = ARGV

# 创建名为word_doc_paragraph_format过程

Sub word_doc_paragraph_format()

# 第一段文字字体大小改为30号

wap.documents(1).paragraphs(1).range.font.size = "30"

事件设计

# 调用word_create()>>>创建word主程序

word_create()

# 调用word_doc_add()>>>创建word文档

word_doc_add()

# 调用word_doc_paragraph_write()>>>将文本框的值写入word

word_doc_paragraph_write(txb_write.Text)

# 调用word_doc_paragraph_format()>>>修改word文字大小

word_doc_paragraph_format()

以上就是分享的全部内容，期待后续更新！