none
Remover rótulos de modelos gerados no WORD RRS feed

  • Pergunta

  • Boa tarde meus caros colegas, tenho uma duvida a muito tempo e gostaria de saber se há uma boa forma de tirar rótulos ao gerar modelos no word.

    Eu gero procurações, declarações de pobreza e contratos no programa usando bookmarks mas nem todos os campos estão preenchidos corretamente no banco de dados porque nem tudo é obrigatório eu gostaria de saber se consigo fazer uma forma de se caso o textbox for vazio no modelo do word não aparecer o rótulo como por exemplo:

    Caso o cliente não tenha valor no campo de série de CTPS não mostrar no word "CTPS Serie tal" e assim ficando sem nada no modelo final. Utilizo o seguinte código para gerar o documento.


    Dim WordApp As New Microsoft.Office.Interop.Word.Application WordApp.Visible = True With WordApp Dim WordDoc = WordApp.Documents.Open("\\Servidor\Gest\PROCURAÇÕES\Docs Iniciais Pessoa Fisica.docx", [ReadOnly]:=True) AppActivate("Word") .ActiveWindow.WindowState = Microsoft.Office.Interop.Word.WdWindowState.wdWindowStateMaximize WordApp.Documents("Docs Iniciais Pessoa Fisica.docx").Activate() .ActiveDocument.Bookmarks("txtCliente").Select() .Selection.Text = (txtnome.Text) .ActiveDocument.Bookmarks("txtNascimento").Select() .Selection.Text = (txtnascimento.Text) .ActiveDocument.Bookmarks("txtNacionalidade").Select() .Selection.Text = (txtnacionalidade.Text) .ActiveDocument.Bookmarks("txtEstadoCivil").Select() .Selection.Text = (txtestadocivil.Text) .ActiveDocument.Bookmarks("txtProfissao").Select() .Selection.Text = (txtprofissao.Text) .ActiveDocument.Bookmarks("txtNomeMae").Select() .Selection.Text = (txtnomemae.Text) .ActiveDocument.Bookmarks("txtNomePai").Select() .Selection.Text = (txtnomepai.Text) End With Err: If Err.Number = 43 Then WordApp.Selection.Text = "" Resume Next End If

    Agradeço desde já mestres. Desculpem se não expliquei direito mas qualquer coisa estou a disposição.
    quinta-feira, 2 de agosto de 2018 18:22