初踏征途：实现控件数据写入word

前言：在职场工作中，我们大部分时间都在与office/wps办公软件打交道，面对日益提高的工作要求及重复性工作，我们往往疲于应付，对提高效率束手无策。
下面，我们就从一件小事切入，看如何提高效率，进而完成工作任务。

需求概览

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

总体思路

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

窗体设计

放置一个文本框

<TextBox x:Name="txb_write" HorizontalAlignment="Left" Height="310" TextWrapping="Wrap" Text="请输入文字！！！" VerticalAlignment="Top" Width="417" FontFamily="LMMono10" FontSize="50"/>

放置一个启动按钮

<Button Content="执行" HorizontalAlignment="Left" Margin="422,0,0,0" VerticalAlignment="Top" Width="95" Height="320" FontSize="30" FontFamily="LMMono10" Click="Button_Click" />

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

代码设计

模块设计

声明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()

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