初踏征途：實現控制元件資料寫入word

前言：

在職場工作中，我們大部分時間都在與office/wps辦公軟體打交道，面對日益提高的工作要求及重複性工作，我們往往疲於應付，對提高效率束手無策。

下面，我們就從一件小事切入，看如何提高效率，進而完成工作任務。

需求概覽

設計一個文字框，在文字框裡寫入文字，點選“執行”實現寫入word操作。

總體思路

窗體設計。窗體上放置兩個控制元件，即文字框和按鈕，文字框用於存放待寫入的文字，按鈕用於啟動程式。

程式碼設計。編寫按鈕程式碼。

除錯執行。點選按鈕，啟動程式，比對目標效果和實際效果進行微調。

窗體設計

# 放置一個文字框

# 放置一個啟動按鈕

此處需要注意標籤程式碼的閉合。

程式碼設計

模組設計

# 宣告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（）

以上就是分享的全部內容，期待後續更新！