- 01 Documento do word com a bookmark (indicador) InserirTexto
- 01 UserForm contendo: CheckBox01 e CommandButton1
- 01 Sub simples para escrever texto com o código abaixo:
Sub ESTRADODEPVC()
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
Selection.Font.Bold = True
Selection.Font.Name = "ARIAL"
Selection.Font.Italic = True
Selection.Font.Size = 12
Selection.TypeText Text:="ESTRADO DE PVC"
Selection.Font.Bold = False
Selection.TypeParagraph
Selection.TypeText Text:="Estrados plásticos, funcional, antiderrapante, higiênico e de fácil colocação. Suporta até 21 tons/m2 de carga estática."
Selection.TypeParagraph
Selection.TypeText Text:="Disponível nas cores branca, azul, marrom e cinza; com altura de 25 mm. Placas 500x500mm."
Selection.TypeParagraph
Selection.TypeParagraph
End Sub
Preciso fazer o seguinte:
- Ao apertar o CommandButton1 e SE o CheckBox01 estiver marcado o texto da Sub ESTRADODEPVC() deve ser digitado na bookmark InserirTexto
Question
Griffon17
Sou iniciante em VBA e preciso de ajuda !
Tenho:
- 01 Documento do word com a bookmark (indicador) InserirTexto
- 01 UserForm contendo: CheckBox01 e CommandButton1
- 01 Sub simples para escrever texto com o código abaixo:
Preciso fazer o seguinte:
- Ao apertar o CommandButton1 e SE o CheckBox01 estiver marcado o texto da Sub ESTRADODEPVC() deve ser digitado na bookmark InserirTexto
Comofás ???
Brigadão pela ajuda pessoal ! :lol:
Edited by Griffon17Link to comment
Share on other sites
2 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.