Jump to content
Fórum Script Brasil
  • 0

Como inserir texto de Sub em Bookmark ? [Resolvido]


Griffon17
 Share

Question

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:

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

Comofás ???

Brigadão pela ajuda pessoal ! :lol:

Edited by Griffon17
Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0
Private Sub CommandButton1_Click()
    If Not CheckBox1 Then Exit Sub
    
    ActiveDocument.Bookmarks("InserirTexto").Select
    
    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

Link to comment
Share on other sites

  • 0
Private Sub CommandButton1_Click()
    If Not CheckBox1 Then Exit Sub
    
    ActiveDocument.Bookmarks("InserirTexto").Select
    
    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

Exatamente o que eu precisava. Muito obrigado.

Tópico pode ser fechado.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.4k
×
×
  • Create New...