【分享成果，隨喜正能量】我們畢生的任務就是做一個優秀的普通人。這個優秀的普通人，熱愛世界，熱愛萬物，熱愛眾生，然後踏踏實實地去尋找到一個自己內心喜歡又有時代價值的事情。一個人一輩子能夠做好一兩件事就很好了。。
我給VBA的定義：VBA是個人小型自動化處理的有效工具。利用好了，可以大大提高自己的勞動效率，而且可以提高數據的準確度。我推出的VBA系列教程共十套(本文的最後附有VBA教程目錄和VBA工具目錄)，現在已經全部完成。
如果您VBA是入門階段，可以打包選擇7.1.3.9教程，第7套教程是入門，第1套教程是入門後的提高，第3套教程字典是必備的VBA之精華，第9套教程是實用的典型案例講解。如果您有了一定的VBA基礎可以根據自己的需要，進行教程的選擇。教程提供的程序源碼文件就如一座大型的代碼庫支持著大家的工作。同時還有實用的資料送給學員。
VBA是面向對象編程的語言，博大精深。很多朋友諮詢英語和VBA的關係，這套《VBA即用型代碼手冊（漢英）》集合了眾多的案例，案例我用漢語和英語同時發布，學員從中可以更好的領會和掌握VBA中用到的一些英語。今日的內容：WORD_VBA文本框的添加、刪除、寫入及保存為html文件
第六章 Word對象及示例
Word Objects and Macro Examples
7 文本框的添加、刪除、寫入 TextBox: Add, Delete, Write
Sub mynzAddTextBox()
ActiveDocument.Shapes.AddTextBox Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=180, Width:=300, Height:=100
End Sub
Sub mynzDeleteTextBox()
'我們需要檢查 oShape 是否屬於 msoShapeRectangle 類型，並且它的文本框是否包含書寫位置
Dim oShape As Shape
If ActiveDocument.Shapes.Count > 0 Then
For Each oShape In ActiveDocument.Shapes
If oShape.AutoShapeType = msoShapeRectangle Then
If oShape.TextFrame.HasText = True Then
oShape.Delete
End If
End If
Next oShape
End If
End Sub
Sub mynzWriteInTextBox()
Dim oShape As Shape
If ActiveDocument.Shapes.Count > 0 Then
For Each oShape In ActiveDocument.Shapes
If oShape.AutoShapeType = msoShapeRectangle Then
If oShape.TextFrame.HasText = True Then
oShape.TextFrame.TextRange.InsertAfter "VBA Case"
Exit For
End If
End If
Next oShape
End If
End Sub
8 另存為html文件SaveAs .html File
Sub mynzSaveMewithDateName()
'將當前活動文檔保存為過濾後的 html，並以當前時間命名
Dim strTime As String
strTime = Format(Now, "hh-mm")
ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\" & strTime, FileFormat:=wdFormatFilteredHTML
End Sub
【分享成果，隨喜正能量】我20多年的VBA實踐經驗，全部濃縮在下面的各個教程中：
【分享成果，隨喜正能量】總有一段時光，讓我們深感痛苦，但不是所有的時光都這樣，我們要學會在黑暗中，找到一絲光芒，這束光來自於內心，它會讓我們重新找到好日子。。