Macro Word VBA - TextBox: Thêm, Xóa, Viết

Thêm TextBox

Macro này sẽ thêm một TextBox vào tài liệu Word hiện hoạt:

Sub AddTextBox () ActiveDocument.Shapes.AddTextBox Orientation: = msoTextOrientationHoriz ngang, Left: = 1, Top: = 1, Width: = 300, Height: = 100 End Sub

Xóa TextBox

Macro VBA này sẽ xóa TextBox đầu tiên trong tài liệu hiện hoạt:

Sub DeleteTextBox () 'xóa hộp văn bản đầu tiên trong activedoc' không phân tầng vì không dễ xác định hộp văn bản Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For Each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' chúng ta cần kiểm tra cả oShape có thuộc kiểu msoShapeRectangle hay không và khung văn bản của nó có chứa vị trí để viết If oShape.TextFrame.HasText = True Then oShape.Delete End If End If Next oShape End If End Sub

Viết bằng TextBox

Macro Word này sử dụng phương pháp tương tự để ghi vào TextBox đầu tiên trong tài liệu hiện hoạt:

Sub WriteInTextBox () 'ghi vào hộp văn bản đầu tiên trong tài liệu đang hoạt động. gõ msoShapeRectangle và khung văn bản của nó chứa vị trí để viết If oShape.TextFrame.HasText = True Then oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Exit For "chúng tôi chỉ muốn viết vào hộp văn bản đầu tiên Kết thúc Nếu Kết thúc Nếu Tiếp theo oShape Kết thúc Nếu Kết thúc Sub