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.
