分享成果，隨喜正能量】我們畢生的任務(wù)就是做一個優(yōu)秀的普通人。這個優(yōu)秀的普通人，熱愛世界，熱愛萬物，熱愛眾生，然后踏踏實(shí)實(shí)地去尋找到一個自己內(nèi)心喜歡又有時代價值的事情。一個人一輩子能夠做好一兩件事就很好了。。

我給VBA的定義：VBA是個人小型自動化處理的有效工具。利用好了，可以大大提高自己的勞動效率，而且可以提高數(shù)據(jù)的準(zhǔn)確度。我推出的VBA系列教程共十套(本文的最后附有VBA教程目錄和VBA工具目錄)，現(xiàn)在已經(jīng)全部完成。

如果您VBA是入門階段，可以打包選擇7.1.3.9教程，第7套教程是入門，第1套教程是入門后的提高，第3套教程字典是必備的VBA之精華，第9套教程是實(shí)用的典型案例講解。如果您有了一定的VBA基礎(chǔ)可以根據(jù)自己的需要，進(jìn)行教程的選擇。教程提供的程序源碼文件就如一座大型的代碼庫支持著大家的工作。同時還有實(shí)用的資料送給學(xué)員。

VBA是面向?qū)ο缶幊痰恼Z言，博大精深。很多朋友咨詢英語和VBA的關(guān)系，這套《VBA即用型代碼手冊（漢英）》集合了眾多的案例，案例我用漢語和英語同時發(fā)布，學(xué)員從中可以更好的領(lǐng)會和掌握VBA中用到的一些英語。今日的內(nèi)容：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()

'將當(dāng)前活動文檔保存為過濾后的 html，并以當(dāng)前時間命名

Dim strTime As String

strTime = Format(Now, "hh-mm")

ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\" & strTime, FileFormat:=wdFormatFilteredHTML

End Sub

【分享成果，隨喜正能量】我20多年的VBA實(shí)踐經(jīng)驗(yàn)，全部濃縮在下面的各個教程中：

【分享成果，隨喜正能量】總有一段時光，讓我們深感痛苦，但不是所有的時光都這樣，我們要學(xué)會在黑暗中，找到一絲光芒，這束光來自于內(nèi)心，它會讓我們重新找到好日子。。

Excel VBA中，HTMLText對象表示可以包含HTML標(biāo)記的文本。它通常用于向HTML文件或?yàn)g覽器窗口中添加格式化文本。當(dāng)您希望在Excel中顯示具有樣式和格式的文本時，您可以使用HTMLText對象來創(chuàng)建富文本。使用HTML標(biāo)簽和屬性，您可以調(diào)整字體、顏色、大小、對齊方式等文本的外觀和布局。HTMLText對象提供了使VBA能夠生成并處理HTML文本的功能。

以下是一些示例代碼，展示如何使用HTMLText對象的標(biāo)簽和屬性來調(diào)整字體、顏色、大小、對齊方式等文本的外觀和布局。

1. 調(diào)整字體：

Dim htmlText As HTMLText
Set htmlText = New HTMLText

htmlText.Text = "<font face=""Arial"">This text has Arial font.</font>"

2. 調(diào)整顏色：

Dim htmlText As HTMLText
Set htmlText = New HTMLText

htmlText.Text = "<span style=""color: red;"">This text is in red color.</span>"

3. 調(diào)整大小：

Dim htmlText As HTMLText
Set htmlText = New HTMLText

htmlText.Text = "<font size=""4"">This text has size 4 font.</font>"

4. 調(diào)整對齊方式：

Dim htmlText As HTMLText
Set htmlText = New HTMLText

htmlText.Text = "<div align=""center"">This text is centered.</div>"

以上代碼示例中，我們首先創(chuàng)建了一個HTMLText對象，然后使用對象的Text屬性來設(shè)置HTML文本。通過使用不同的HTML標(biāo)簽和屬性，可以實(shí)現(xiàn)所需的調(diào)整，如字體、顏色、大小和對齊方式等。在這些示例中，我們分別使用了<font>標(biāo)簽、<span>標(biāo)簽、<div>標(biāo)簽和相應(yīng)的屬性來實(shí)現(xiàn)相應(yīng)的調(diào)整。

請注意，為了在Excel中顯示HTML文本，您可能需要使用其他工具或方法來將HTML文本應(yīng)用于單元格或其他控件，例如使用Range對象的HTMLBody屬性或通過將HTML文本加載到WebBrowser控件中來實(shí)現(xiàn)。以上代碼僅提供了如何使用HTMLText對象來生成所需的HTML文本的示例。

在使用HTMLText對象編寫VBA時，有幾點(diǎn)需要注意：

1. 引入Microsoft HTML Object Library：在使用HTMLText對象之前，需要確保已經(jīng)引入了Microsoft HTML Object Library。可以通過選擇"工具" -> "引用"，然后勾選"Microsoft HTML Object Library"來進(jìn)行引入。
2. 編寫有效的HTML代碼：HTMLText對象要求傳遞有效的HTML代碼。您需要熟悉HTML標(biāo)簽和屬性，并確保編寫的HTML代碼正確且有效。如果HTML代碼包含錯誤或無效的標(biāo)簽、屬性或語法，可能會導(dǎo)致問題或錯誤。
3. 轉(zhuǎn)義特殊字符：在將文本作為HTML代碼插入到HTMLText對象中時，需要注意轉(zhuǎn)義特殊字符。例如，"<"字符應(yīng)該寫為"<"，">"字符應(yīng)該寫為">"，以確保HTML代碼得到正確解析。
4. 注意HTML代碼對Excel的影響：HTMLText對象將HTML代碼解釋為富文本，并在Excel中顯示相應(yīng)的格式。您需要考慮HTML代碼對單元格大小、行高、列寬等Excel布局的影響。大量的HTML代碼可能導(dǎo)致單元格變得較大并影響整體布局。
5. 處理HTML與VBA互動：HTMLText對象提供了一些方法和屬性，可以與HTML文本進(jìn)行交互。您可以使用這些方法和屬性來讀取或修改HTML文本的內(nèi)容，例如查詢或更改特定標(biāo)簽的屬性。

下面提供一個簡單的代碼示例來演示如何使用HTMLText對象來創(chuàng)建和顯示富文本。

Sub Example()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    Dim htmlText As HTMLTextObject
    
    ' 創(chuàng)建新工作簿和工作表
    Set wb = Workbooks.Add
    Set ws = wb.Sheets(1)
    
    ' 在A1單元格中插入HTML格式的文本
    Set rng = ws.Range("A1")
    Set htmlText = rng.HTMLText
    htmlText.Html = "<b><font color='red'>這是粗體紅色的文本。</font></b>"
    
    ' 設(shè)置字體大小和水平對齊方式
    rng.Font.Size = 12
    rng.HorizontalAlignment = xlCenter
    
    ' 將字體顏色設(shè)置為紅色
    rng.Font.Color = RGB(255, 0, 0)
End Sub

在這個示例中，我們創(chuàng)建了一個新的工作簿，然后在第一個工作表的A1單元格中插入了一個HTML格式的文本。通過使用HTML標(biāo)簽<b>和<font>，我們將文本設(shè)置為加粗且紅色。然后，我們設(shè)置了字體大小和水平對齊方式，并將字體顏色設(shè)置為紅色。運(yùn)行此代碼，您將看到在Excel中的A1單元格中顯示了粗體的紅色文本。

總之，在使用HTMLText對象編寫VBA時，需要熟悉HTML代碼和相關(guān)的方法和屬性，并確保生成的HTML代碼有效且能夠與Excel適配。