Macros VBA do Word - TextBox: Adicionar, Excluir, Gravar

Adicionar TextBox

Esta macro adicionará um TextBox ao documento do Word ativo:

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

Excluir TextBox

Esta macro VBA excluirá o primeiro TextBox do documento ativo:

Sub DeleteTextBox () 'exclui a primeira caixa de texto no activedoc' não diretamente porque não é fácil identificar caixas de texto Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For Each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then ' precisamos verificar se oShape é do tipo msoShapeRectangle e se seu quadro de texto contém espaço para gravação If oShape.TextFrame.HasText = True Then oShape.Delete End If End If Next oShape End If End Sub

Escreva em TextBox

Esta macro do Word usa metodologia semelhante para gravar no primeiro TextBox no documento ativo:

Sub WriteInTextBox () 'escreve na primeira caixa de texto no documento ativo Dim oShape As Shape If ActiveDocument.Shapes.Count> 0 Then For Each oShape In ActiveDocument.Shapes If oShape.AutoShapeType = msoShapeRectangle Then' precisamos verificar ambos se oShape é de digite msoShapeRectangle e seu textframe contém lugar para escrever If oShape.TextFrame.HasText = True Then oShape.TextFrame.TextRange.InsertAfter "https://www.automateexcel.com/vba-code-library" Sair para 'nós apenas queremos escrever na primeira caixa de texto End If End If Next oShape End If End Sub