Pesquisar na Comunidade

Boa tarde, Este é meu primeiro post. Bom eu estou fazendo o seguinte: Criei uma mala direta com base em uma planilha do Excel que contem alguns campos dentre eles um chamado CAT, no arquivo do word esse campo é referido ao "Vinculo", porem no "Vinculo" existem 3 check box com as palavras EFETIVADO, ADMITIDO e EM COMISSAO. Na tabela do Excel a coluna CAT representa o vinculo se o funcionário é Efetivado, Admitido e Em Comissão, o que gostaria de fazer é o seguinte: Uma macro que será executada assim que abrir o arquivo; Uma regra em que quando o valor recebido por um dos 3 citados acima, a caixa de seleção correspondente seja marcada; Para que quando eu for visualizando os resultados da mala direta, cada funcionário tenha a caixa marcada de acordo com o seu vinculo. Como seria possível fazer isso? Eu fiz toda a logica das caixas de seleção, porem não sei como faço para que uma variável receba os valores da coluna CAT da planilha do Excel. Não tenho ideia de como declara-la. Desde já, obrigado.

Ola, sou novato por aqui e ainda aprendendo os segredos do VBA... Criei uma mala direta num documento Word que receberá dados de uma planilha do Excel. Quando abro o documento word manualmente recebo a seguinte mensagem "Quando este documento for aberto o seguinte comando SQL sera executado: SELECT*FROM `Exportar`" ao clicar em sim, os dados atualizam perfeitamente. Criei um código no Excel(VBA) para abrir o arquivo logo apos efetuar a transferência de dados, ao executar esse código o documento Word abre, então não recebo mais a mensagem acima mas resolvi depurar o código, então o código mostra essa janela (Captura 1), eu dando ok, ele abre o Word, mas dá erro dizendo que o Word não pode abrir a fonte de dados (Captura2) e marca na depuração, a área em amarelo no código (Captura 3). Não quero que abra essa caixa na Captura 2 e gostaria de saber se alguém saber desse da Captura 3. Segue o código atual que estou usando para abrir o documento: Private Sub BOTÃO_ABRIR_Click() 'Com este pequeno trecho de código , criamos uma instância para o objeto Word e depois usando VBA 'abrimos o documento Novo Contrato Jeff's Festas.docx que esta no diretório C:\Users\Jeff's\Desktop\Novo Contrato\Novo Contrato Jeff's Festas.docx 'Dim word As New word.Application 'With word ' .Documents.Open "C:\Users\Jeff's\Desktop\Novo Contrato\Novo Contrato Jeff's Festas.docx" ' .Visible = True ' .WindowState = wdWindowStateMaximize 'End With 'Fechamos a tela Sucesso Dim wd As Object Dim wdocSource As Object Dim strWorkbookName As String On Error Resume Next Set wd = GetObject(, "Word.Application") If wd Is Nothing Then Set wd = CreateObject("Word.Application") End If On Error GoTo 0 Set wdocSource = wd.Documents.Open("C:\Users\Jeff's\Desktop\Novo Contrato\Novo Contrato Jeff's Festas.docx") strWorkbookName = ThisWorkbook.Path & "\" & ThisWorkbook.Name wdocSource.MailMerge.MainDocumentType = wdFormLetters wdocSource.MailMerge.OpenDataSource _ Name:=strWorkbookName, _ AddToRecentFiles:=False, _ Revert:=False, _ Format:=wdOpenFormatAuto, _ Connection:="Data Source=" & strWorkbookName & ";Mode=Read", _ SQLStatement:="SELECT * FROM `Exportar$`" With wdocSource.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False End With wd.Visible = True wdocSource.Close SaveChanges:=False Set wdocSource = Nothing Set wd = Nothing End Sub