Pesquisar na Comunidade

Boa tarde, tenho o seguinte código que percorre a planilha Porém o texto que está na célula I3 contém mais de 256 caracteres e por isso aparece o seguinte erro Como eu devo fazer para que seja possível inserir um texto com mais de 256 caracteres substituindo a tag #acao123coletiva123guedes

Olá pessoal! Estou com uma dúvida, criei uma lista suspensa com 1000 registros ou linhas. Desta forma, gostaria de um auxílio para montagem de um código VBA que melhorasse a pesquisa com Autocomplete ou Autopreenchimento. Assim evitaria der que rolar toda a caixa suspensa para escolher o nome requerido. Desde já agradeço a cooperação.

Boa tarde, Venho requisitar ajuda no seguinte problema, editei algumas linhas em uma tabela que deve ser transferida para o Word a pedido do cliente, porém quando a imagem, outrora perfeita no photoshop, é inserida no documento algumas das linhas adicionadas ficam claramente destoantes do padrão. Gostaria de saber se a algum fix para o problema.

Boa noite, Prezados, criei um arquivo de mala direta com mais de 1000 fotos, porém as fotos não atualizaram sua referência. Preciso clicar em cima de cada uma e apertar “F9” para atualizar a foto. Se seleciono o texto todo (ctrl+t) e aperto "F9" o word trava. Queria criar uma macro para atualizar todas as imagens de uma só vez. Quando gravo sei que a função para atualizar fica "Selection.Fields.Update" E achei uma macro que roda em todas as imagens diminuído o tamanho, porém não atualiza a referencia. Queria que em vez de diminuir o tamanho ela atualizasse a foto. Segue a macro de edição de tamanho. Sub Macro1() Dim insertedPicture As InlineShape Dim insertedShape As Shape Dim imgMult As Single imgMult = Fields.Update For Each insertedPicture In ActiveDocument.InlineShapes insertedPicture.Select insertedPicture.Width = insertedPicture.Width * imgMult / insertedPicture.Height insertedPicture.Height = imgMult Next End Sub Queria adaptar para atualizar a imagem “ Selection.Fields.Update “ Obrigado!

Olá, sou novo aqui no Fórum. Peço desculpa, caso o local ou o conteúdo deste estejam em desacordo com as regras do fórum. Estou criando um formulário word para os processos do escritório. Até aí tudo certo. Gostaria de criar uma tabela usando um módulo em VBA para calcular os dias entre duas datas, por exemplo entre admissão e demissão. Assim: Preciso do Total de Dias no textbox3 e anos, meses e dias até a data final , respectivamente nos textbox4, textbox5 e textbox6; Preciso do mesmo calculo para as 4 opções. Fiz um teste na primeira linha usando o seguinte script: Sub rpps() Dim mData As Date Dim nData As Date Dim Texto3 mData = ActiveDocument.FormFields("Texto1").Result nData = ActiveDocument.FormFields("Texto2").Result ActiveDocument.FormFields("Texto3").Result = DateDiff("d", mData, nData) Exit Sub End Sub Deu certo para a primeira linha. O problema é que eu preciso de um cálculo para cada linha separado e, principalmente, eu não posso contar o dia do ano bissexto. Para utilizar o resultado nos campos abaixo do formulário, o resultado tem que usar o calculo como sendo todos os anos de 365 dias. Não tenho conhecimento em VBA suficiente. Gostaria de ajuda dos senhores. Caso haja necessidade de compra do script, posso receber uma proposta por mensagem privada.

Pessoal, preciso de uma ajuda aqui no trabalho, Preciso automatizar uma criação de certificados, então preciso de um código que copie os dados de uma planilha do excel (Nomes, datas, local, nome do curso, etc) para o word e que salve o documento word em PDF com o nome do Aluno que estiver no certificado. OBG!

Boa noite , pessoal. Enfim , a um bom tempo estou fazendo um Editor de Texto/Notepad estilo "LibreOffice" ,"Microsoft Word" , enfim tudo está certinho , porém estou com dúvida em uns aspectos. 1)COMO EU POSSO FAZER UM SISTEMA DE PÁGINA , OU SEJA , QUANDO ELE ACABAR UM LIMITE , "CRIAR" UM NOVO RICHTEXTBOX?QUANDO ATRAVESSAR UM LIMITE , VEM OUTRA PÁGINA , EXEMPLO:"PÁGINA 1" E "PÁGINA 2" 2)MEU SISTEMA DE NEGRITO ESTÁ FUNCIONANDO CORRETAMENTE , PORÉM ELE PEGA O TEXTO TODO , QUERIA QUE PEGASSE SÓ AS PARTES DO TEXTO SELECIONADA , JÁ TENTEI PELO COMANDO "SelectedText" , PORÉM NÃO FUNCIONA , NÃO SEI SE ESTE COMANDO É PARA ISSO... PS:EM VISUAL BASIC 2008 ENFIM , OBRIGADO E AGUARDO RESPOSTAS....

Boa noite , pessoal. Enfim , a um bom tempo estou fazendo um Editor de Texto/Notepad estilo "LibreOffice" ,"Microsoft Word" , enfim tudo está certinho , porém estou com dúvida em uns aspectos. 1)COMO EU POSSO FAZER UM SISTEMA DE PÁGINA , OU SEJA , QUANDO ELE ACABAR UM LIMITE , "CRIAR" UM NOVO RICHTEXTBOX?QUANDO ATRAVESSAR UM LIMITE , VEM OUTRA PÁGINA , EXEMPLO:"PÁGINA 1" E "PÁGINA 2" 2)MEU SISTEMA DE NEGRITO ESTÁ FUNCIONANDO CORRETAMENTE , PORÉM ELE PEGA O TEXTO TODO , QUERIA QUE PEGASSE SÓ AS PARTES DO TEXTO SELECIONADA , JÁ TENTEI PELO COMANDO "SelectedText" , PORÉM NÃO FUNCIONA , NÃO SEI SE ESTE COMANDO É PARA ISSO... PS:EM VISUAL BASIC 2008 ENFIM , OBRIGADO E AGUARDO RESPOSTAS....

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.

Bom dia Pessoal. Estou com uma situação que não encontrei resposta. Um código envia para o documento Microsoft Word linhas de texto ou qualquer informação de texto ou tabela. Preciso saber quando é a última linha do documento que está sendo escrita antes de pular para a primeira linha da próxima página. ATNEÇÂO: EU QUERO SABER QUANDO TERMINA A PÀGINA (ÙLTIMA LINHHA DA ATUAL PÀGINA).

Agradeço desde já, estou tentando formatar um documento word que é composto por diversas tabelas.Antes e depois de cada tabela preciso inserir um parágrafo(enter). Utilizei o método "Split" mas ele funcionou apenas para inserir o espaço depois da tabela. Tentei também os métodos "insertAfter" e "insertBefore" mas não obtive sucesso(o caracter foi colocado dentro da tabela). Além de inserir o caracter, preciso assegurar que antes e depois da tabela haverá apenas um parágrafo

Tutoriais Word Aprenda a usar todos os recursos (básico e avançado) do Microsoft Word, o processador de textos mais utilizado no mundo todo. Vários tutoriais gratuitos ensinando passo a passo como utilizar esta poderosa ferramenta. Acesse e confira: www.tutoriaisword.com

Tutoriais Word Aprenda a usar todos os recursos (básico e avançado) do Microsoft Word, o processador de textos mais utilizado no mundo todo. Vários tutoriais gratuitos ensinando passo a passo como utilizar esta poderosa ferramenta. Acesse: www.tutoriaisword.com

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

Toda vez que eu tento abrir um arquivo / DOCX criado a partir de um cajase janela abre o arquivo, mas a maioria do conteúdo é ilegível. Este problema ocorreu com vários documentos, não apenas um. Qualquer conselho que você poderia fornecer ou coisas para tentar seria muito apreciada.