POLIVEIRA

Prezados, Boa tarde ! Preciso muito de uma ajuda, pois estou muito perdido.. Eu já criei alguns scripts no SAP para executar algumas funções repetitivas, porem agora me foi solicitado que eu crie algo e eu não consigo atender ao pedido e queria saber se podem me ajudar. Tenho uma planilha com N pedidos e eu preciso pegar um pedido por vez, acessar a função (ME9F) e executar a consulta e colocar para imprimir, e ai nasce o problema, pois ele so executa os passos do SAP, pois ele vai até o botão que abre o popup e ai depois não sei como fazer, pois eu precisaria que ao que ele abrisse o popup ele voltasse na planilha copiasse novamente o numero do pedido para salvar o arquivo com o nome do numero do pedido em um determinado local e logo apos isso ele seguisse novamente. Função de acesso Query acessada Arquivo no qual busco o numero do pedido "ATM" Onde consulto o pedido resultado da pesquisa, logo apos o resultado, clico na combobox e depois em efetuar saida de mensagem. e aqui onde preciso selecionar o pdf e dar ok para retornar na planilha e buscar o numero do pedido para dar nome ao arquivo e salvar em um local especifico.

Boa tarde, Alguém consegue me ajudar? Não consigo o programa abaixo: Fazer um programa que entra com a longitude da cidade e seu nome pelo teclado, e determina o fuso correspondente. Sabe-se que à oeste de Greenwich a longitude é positiva e a leste, negativa. Sabe-se que a cada 15 graus ocorre um fuso (de uma hora). Cidades devem usar o fuso mais próximo de forma que o desvio máximo do fuso é de 7,5 graus. Encerra quando se digita nome de cidade = “FIM". Longitude não pode estar fora da faixa [-180, 180].

=SeImed(SeImed(ÉNulo([Cmb_Tipo_Contratação]) Ou [Cmb_Tipo_Contratação]="";"";SomData("d";[dCP1];[Inicio_Sugerido]))>0;SeImed(ÉNulo([Cmb_Tipo_Contratação]) Ou [Cmb_Tipo_Contratação]="";"";SomData("d";[dCP1];[Inicio_Sugerido]));SeImed(ÉNulo([Cmb_Tipo_Contratação]) Ou [Cmb_Tipo_Contratação]="";"";SomData("d";[dCP1];[Data de Entrada PGC])))

Bom dia! Preciso calcular um campo a partir de uma data, porem quando ela for vazia, preciso que ele calcule a partir de outro. segue abaixo o problema: =SeImed(ÉNulo([Cmb_Tipo_Contratação]) Ou [Cmb_Tipo_Contratação]="";"";SomData("d";[dCP1];[Inicio_Sugerido])), porem quando esse campo "Inicio_Sugerido" for vazio eu quero que ela use um campo chamado "Data de Entrada PGC" como ajusto isso?

Bom dia a todos! Estou precisando de uma ajuda. Tenho um banco simples e dentro dele existem alguns subformularios onde os usuarios vizualizam algumas informações. Existe um formulario em questão que possui 03 caixas de combinação e em detalhes ele exibe os campos selecionados ou mostra toda tabela caso não tenha nada selecionado. Eu inseri um botão de "Exportação para excel" e ao clicar ele pede para salvar em algum lugar no PC do usuario com o codigo: Private Sub salvar_Click() On Error GoTo salvar_Err DoCmd.OutputTo ObjectType:=acOutputForm, ObjectName:="Listagem das Demandas", OutputFormat:="xlsx" salvar_Exit: Exit Sub salvar_Err: MsgBox Error$ Resume salvar_Exit End Sub Porem, apos o salvamento e visualizando o arquivo, ele acaba salvando nas 03 primeiras colunas as caixas de combinação. Duvida: Como evito que essas caixas de combinação aparecam na exportação? So preciso exportar os campos que estão no detalhe do formulario. Obrigado.

E ae galera, nada? Estou ancioso esperando um e-mail de alguém pra ver a possibilidade de uma ajuda.

Galera, Boa Noite! Gostaria de solicitar a ajuda de voces, pois preciso de uma força, já que não possuo um conhecimento aprofundado de VB. Preciso automatizar um sistema que comecei a desenvolver e por conta disso gosttaria de incluir algumas melhorias porem não sei como realiza-las. Como é um codigo mais estruturado, acho que seria melhor o envio do mesmo pelo e-mail. Se alguém que estiver lendo e tenha a vontade de ajudar um amigo, segue abaixo meu e-mail. E-mail: paulinhor8076@hotmail.com Ps. Assim que eu receber o contato eu repasso as consideracoes com o arquivo e qualquer eu ligo, até mesmo para esclarecer melhor qualquer duvida. Peço encarecidamente a ajuda de voces. Obrigado!

Desculpem a insistencia, porem estou fazendo e os erros vao aparecendo. agora quando vou gerar um documento apartir da macro ele esta dando o seguinte erro "Erro em tempo de execução: 4120 - Parametro incorreto" Codigo: 'Abre Cabeçalho doc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 'Alinha logo ao centro doc.ActiveWindow.ActivePane.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 'Formata Fonte doc.ActiveWindow.ActivePane.Selection.Font.Size = 10 doc.ActiveWindow.ActivePane.Selection.Font.Bold = wdToggle doc.ActiveWindow.ActivePane.Selection.Font.Italic = wdToggle doc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument doc.ActiveWindow.View.DisplayPageBoundaries = False 'Insere texto 1º paragrafo doc.ActiveWindow.Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify prg.Range.Text = stPrg1 doc.ActiveWindow.Selection.MoveDown Unit:=wdScreen <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< provavelmente deve vir o proximo também doc.ActiveWindow.Selection.EndKey Unit:=wdLine Set rng = prg.Range With rng.Font .Bold = False .Name = "Arial" .Size = 12 .Color = wdColorAutomatic 'TESTE DE TROCA DE COR .Color = wdColorDarkTeal End With If frmDadosFormulario.optCFolha.Value = True Then intLimite = 325 ' intLimite = 325 Else intLimite = 118 'intLimite = 118 End If For intLin = 9 To intLimite stPrg1 = wsSuporte.Range("A" & intLin).Text ' -----> "G" If stPrg1 = "Em Branco" Then doc.ActiveWindow.Selection.TypeParagraph Else If intLin > 9 Then doc.ActiveWindow.Selection.TypeParagraph doc.ActiveWindow.Selection.Range.Text = stPrg1 doc.ActiveWindow.Selection.MoveDown Unit:=wdScreen doc.ActiveWindow.Selection.EndKey Unit:=wdLine End If End If Next Call DestaqueEmNegrito Set ObjNetwork = CreateObject("WScript.Network") GetUserN = ObjNetwork.UserName UsuarioRede = GetUserN Dim stNomeArq As String Dim Resposta As Integer Resposta = MsgBox("Verique o conteudo da carta, se estiver de acordo clique em Sim", vbExclamation + vbYesNo, "ATENÇÃO!") If Resposta <> 6 Then MsgBox "O documento não será salvo, você poderá reeditar no auto carta ou no próprio documento", vbInformation, "Atenção!" Exit Sub Else stNomeArq = InputBox("O documento será salvo em sua área de trabalho, Insira o nome do documento!") ''Salvar Como': doc.SaveAs Filename:="C:\Documents and Settings\" & UsuarioRede & "\Desktop\" & stNomeArq & ".doc", FileFormat:=wdFormatXMLDocument 'FileFormat:=wdFormatXMLDocument significa que o arquivo será salvo com a 'extensão .doc, ou seja, Documento do Word 2003. 'Agora, deseja-se sair da Aplicação. Observe que o método é executado 'no nível da Aplicação, finalizando a Aplicação e todos os objetos 'criados por ela: appWord.Quit End If 'Apenas para limpar memória Set appWord = Nothing Set doc = Nothing Set prg = Nothing Set ObjNetwork = Nothing End Sub Sub JustEmptyClipboard() OpenClipboard (0) EmptyClipboard CloseClipboard End Sub Sub LimparCarta() Worksheets("SUPORTE").Range("C14:C42").ClearContents Worksheets("SUPORTE").Range("C49:C58").ClearContents Worksheets("SUPORTE").Range("C61:C67").ClearContents Worksheets("SUPORTE").Range("C70:C76").ClearContents Worksheets("SUPORTE").Range("C79:C82").ClearContents Worksheets("SUPORTE").Range("C85:C109").ClearContents Worksheets("SUPORTE").Range("C112:C121").ClearContents Worksheets("SUPORTE").Range("C124:C129").ClearContents Worksheets("SUPORTE").Range("C132:C148").ClearContents Worksheets("SUPORTE").Range("C151:C162").ClearContents Worksheets("SUPORTE").Range("C171:C184").ClearContents Worksheets("SUPORTE").Range("C187:C198").ClearContents Worksheets("SUPORTE").Range("C201:C212").ClearContents Worksheets("SUPORTE").Range("C215:C219").ClearContents Worksheets("SUPORTE").Range("C222:C231").ClearContents Worksheets("SUPORTE").Range("C234:C242").ClearContents Worksheets("SUPORTE").Range("C247:C254").ClearContents Worksheets("SUPORTE").Range("C257:C270").ClearContents Worksheets("SUPORTE").Range("C273:C277").ClearContents Worksheets("SUPORTE").Range("C280:C292").ClearContents Worksheets("SUPORTE").Range("C299:C310").ClearContents Worksheets("SUPORTE").Range("C313:C316").ClearContents End Sub Sub DestaqueEmNegrito() Set wsSuporte = ThisWorkbook.Worksheets("SUPORTE") Dim strNgrt As String Dim intCel As Integer For intCel = 1 To 325 '-> For intCel = 1 To 325 strNgrt = wsSuporte.Range("Q" & intCel).Text ' -> strNgrt = wsSuporte.Range("Q" & intCel).Text doc.ActiveWindow.Selection.Find.ClearFormatting With doc.ActiveWindow.Selection.Find .Text = strNgrt .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With doc.ActiveWindow.Selection.Find.Execute doc.ActiveWindow.Selection.Font.Bold = True If intCel > 2 And intCel < 19 Then '-------> If intCel > 2 And intCel < 19 Then doc.ActiveWindow.Selection.Font.Underline = wdUnderlineSingle End If Next intCel = 0 For intCel = 1 To 22 '-> For intCel = 1 To 12 strNgrt = wsSuporte.Range("R" & intCel).Text '-> strNgrt = wsSuporte.Range("R" & intCel).Text doc.ActiveWindow.Selection.Find.ClearFormatting With doc.ActiveWindow.Selection.Find .Text = strNgrt .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With doc.ActiveWindow.Selection.Find.Execute doc.ActiveWindow.Selection.Font.Underline = wdUnderlineSingle Next intCel = 0 For intCel = 1 To 22 ' -> For intCel = 1 To 12 strNgrt = wsSuporte.Range("S" & intCel).Text ' -> strNgrt = wsSuporte.Range("S" & intCel).Text doc.ActiveWindow.Selection.Find.ClearFormatting With doc.ActiveWindow.Selection.Find .Text = strNgrt .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With doc.ActiveWindow.Selection.Find.Execute doc.ActiveWindow.Selection.Font.Underline = wdUnderlineNone doc.ActiveWindow.Selection.Font.Color = 16724787 Next '---Centralizar If frmDadosFormulario.optCFolha.Value = True Then intCel = 0 For intCel = 1 To 3 strNgrt = wsSuporte.Range("Y" & intCel).Text ' -> strNgrt = wsSuporte.Range("Y" & intCel).Text doc.ActiveWindow.Selection.Find.ClearFormatting With doc.ActiveWindow.Selection.Find .Text = strNgrt .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With doc.ActiveWindow.Selection.Find.Execute doc.ActiveWindow.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter If strNgrt = "DADOS CLIENTE E PROCESSO" Then doc.ActiveWindow.Selection.ParagraphFormat.SpaceBefore = 12 doc.ActiveWindow.Selection.ParagraphFormat.SpaceAfter = 3 End If Next Else strNgrt = wsSuporte.Range("Y3").Text '-> strNgrt = wsSuporte.Range("Y3").Text doc.ActiveWindow.Selection.Find.ClearFormatting With doc.ActiveWindow.Selection.Find .Text = strNgrt .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With doc.ActiveWindow.Selection.Find.Execute doc.ActiveWindow.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter End If End Sub Sub Desproteger() Worksheets("SUPORTE").Visible = xlSheetVisible End Sub Sub Form() fmrBusca.Show End Sub

Apenas para acrescentar, quando eu executo em outro office, ate no 2007 ele tras a informacao "Erro de compilação: É impossivel localizar o projeto ou a biblioteca" Mais eu sei muito pouco, portanto preciso que sejam bem especifico na ajuda. Desde de já agradeco a atencao.

Amigos, Preciso muito de ajuda. estou com o programinha pronto, porem conclui a realizacao dele no excel 2010 e agora quando tento abrir no 2003 ele da um erro chamado "57121" não localiza a biblioteca...alguma coisa assim... Ele aponta pra cá --> doc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader (((((('Dimencionar Margens da pagina doc.PageSetup.TopMargin = Application.CentimetersToPoints(2.5) doc.PageSetup.BottomMargin = Application.CentimetersToPoints(2.5) doc.PageSetup.LeftMargin = Application.CentimetersToPoints(3) doc.PageSetup.RightMargin = Application.CentimetersToPoints(3) doc.PageSetup.HeaderDistance = Application.CentimetersToPoints(1.25) doc.PageSetup.FooterDistance = Application.CentimetersToPoints(1.25) 'Abre Cabeçalho doc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader ))))) E eu preciso roda-lo em uma operacao com mais de 100 pessoas que utilizao o office 2003, portanto peço encarecidamente a ajuda de voces o mais breve possivel... A outra questão é, será que aqui no forum tem alguém de Niteroi RJ, que queria ajudar o amigo! =)

Galera, não sei quase que nada de vba e preciso muito da ajuda de voces. tenho uma macro que ao termino do preenchimento de um formulario ela gera um documento em word, so que este documento esta saindo desconfigurado, as perguntas umas saem em negrito e outras não e assim vai. Ao termino ele também cria este documento por da um erra "460" e aponta para o local onde esta endereçado o cod. podem me ajudar por fvr. Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private wsSuporte As Worksheet Dim GetUserN Dim ObjNetwork 'Declarações Dim appWord As Variant Dim doc As Variant Dim stCabc As String Dim prg As Variant Dim rng As Variant Sub CriarDocumento() Set wsSuporte = ThisWorkbook.Worksheets("SUPORTE") 'limpar area de transferência Call JustEmptyClipboard 'Declarações Dim stPrg1 As String 'INICIO SELEÇÃO stPrg1 = wsSuporte.Range("A9").Text '---> "G9" Dim myRang As String Dim stNome As String Dim stRcl As String Dim intLin As Integer Dim intLimite As Integer stNome = Worksheets("SUPORTE").Range("A9").Text ' -> ("C19") 'A Aplicação é criada aqui: Set appWord = CreateObject("Word.Application") 'A linha abaixo é importante: você deve querer que 'sua aplicação seja visível na maioria das vezes appWord.Visible = True 'Note que, na linha abaixo, foi adicionado um Documento 'dentro da Aplicação appWord: Set doc = appWord.Documents.Add 'Da mesma forma, é atribuído ao Parágrafo prg o primeiro 'parágrafo existente do Documento doc. Set prg = doc.Paragraphs(1) 'Dimencionar Margens da pagina doc.PageSetup.TopMargin = Application.CentimetersToPoints(2.5) doc.PageSetup.BottomMargin = Application.CentimetersToPoints(2.5) doc.PageSetup.LeftMargin = Application.CentimetersToPoints(3) doc.PageSetup.RightMargin = Application.CentimetersToPoints(3) doc.PageSetup.HeaderDistance = Application.CentimetersToPoints(1.25) doc.PageSetup.FooterDistance = Application.CentimetersToPoints(1.25) 'Abre Cabeçalho doc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 'Alinha logo ao centro doc.ActiveWindow.ActivePane.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 'Formata Fonte doc.ActiveWindow.ActivePane.Selection.Font.Size = 10 doc.ActiveWindow.ActivePane.Selection.Font.Bold = wdToggle doc.ActiveWindow.ActivePane.Selection.Font.Italic = wdToggle doc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument doc.ActiveWindow.View.DisplayPageBoundaries = False 'Insere texto 1º paragrafo doc.ActiveWindow.Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify prg.Range.Text = stPrg1 doc.ActiveWindow.Selection.MoveDown Unit:=wdScreen doc.ActiveWindow.Selection.EndKey Unit:=wdLine Set rng = prg.Range With rng.Font .Bold = False .Name = "Arial" .Size = 12 .Color = wdColorAutomatic 'TESTE DE TROCA DE COR .Color = wdColorDarkTeal End With If frmDadosFormulario.optCFolha.Value = True Then intLimite = 325 ' intLimite = 325 Else intLimite = 118 'intLimite = 118 End If For intLin = 9 To intLimite stPrg1 = wsSuporte.Range("A" & intLin).Text ' -----> "G" If stPrg1 = "Em Branco" Then doc.ActiveWindow.Selection.TypeParagraph Else If intLin > 9 Then doc.ActiveWindow.Selection.TypeParagraph doc.ActiveWindow.Selection.Range.Text = stPrg1 doc.ActiveWindow.Selection.MoveDown Unit:=wdScreen doc.ActiveWindow.Selection.EndKey Unit:=wdLine End If End If Next Call DestaqueEmNegrito Set ObjNetwork = CreateObject("WScript.Network") GetUserN = ObjNetwork.UserName UsuarioRede = GetUserN Dim stNomeArq As String Dim Resposta As Integer Resposta = MsgBox("Verique o conteudo da carta, se estiver de acordo clique em Sim", vbExclamation + vbYesNo, "ATENÇÃO!") If Resposta <> 6 Then MsgBox "O documento não será salvo, você poderá reeditar no auto carta ou no próprio documento", vbInformation, "Atenção!" Exit Sub Else stNomeArq = InputBox("O documento será salvo em sua área de trabalho, Insira o nome do documento!") ''Salvar Como': doc.SaveAs Filename:="C:\Documents and Settings\" & UsuarioRede & "\Desktop\" & stNomeArq & ".doc", FileFormat:=wdFormatXMLDocument 'FileFormat:=wdFormatXMLDocument significa que o arquivo será salvo com a 'extensão .doc, ou seja, Documento do Word 2003. 'Agora, deseja-se sair da Aplicação. Observe que o método é executado 'no nível da Aplicação, finalizando a Aplicação e todos os objetos 'criados por ela: appWord.Quit End If 'Apenas para limpar memória Set appWord = Nothing Set doc = Nothing Set prg = Nothing Set ObjNetwork = Nothing End Sub Sub JustEmptyClipboard() OpenClipboard (0) EmptyClipboard CloseClipboard End Sub Sub LimparCarta() Worksheets("SUPORTE").Range("C14:C42").ClearContents Worksheets("SUPORTE").Range("C49:C58").ClearContents Worksheets("SUPORTE").Range("C61:C67").ClearContents Worksheets("SUPORTE").Range("C70:C76").ClearContents Worksheets("SUPORTE").Range("C79:C82").ClearContents Worksheets("SUPORTE").Range("C85:C109").ClearContents Worksheets("SUPORTE").Range("C112:C121").ClearContents Worksheets("SUPORTE").Range("C124:C129").ClearContents Worksheets("SUPORTE").Range("C132:C148").ClearContents Worksheets("SUPORTE").Range("C151:C162").ClearContents Worksheets("SUPORTE").Range("C171:C184").ClearContents Worksheets("SUPORTE").Range("C187:C198").ClearContents Worksheets("SUPORTE").Range("C201:C212").ClearContents Worksheets("SUPORTE").Range("C215:C219").ClearContents Worksheets("SUPORTE").Range("C222:C231").ClearContents Worksheets("SUPORTE").Range("C234:C242").ClearContents Worksheets("SUPORTE").Range("C247:C254").ClearContents Worksheets("SUPORTE").Range("C257:C270").ClearContents Worksheets("SUPORTE").Range("C273:C277").ClearContents Worksheets("SUPORTE").Range("C280:C292").ClearContents Worksheets("SUPORTE").Range("C299:C310").ClearContents Worksheets("SUPORTE").Range("C313:C316").ClearContents End Sub Sub DestaqueEmNegrito() Set wsSuporte = ThisWorkbook.Worksheets("SUPORTE") Dim strNgrt As String Dim intCel As Integer For intCel = 1 To 325 '-> For intCel = 1 To 325 strNgrt = wsSuporte.Range("Q" & intCel).Text ' -> strNgrt = wsSuporte.Range("Q" & intCel).Text doc.ActiveWindow.Selection.Find.ClearFormatting With doc.ActiveWindow.Selection.Find .Text = strNgrt .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With doc.ActiveWindow.Selection.Find.Execute doc.ActiveWindow.Selection.Font.Bold = True If intCel > 2 And intCel < 19 Then '-------> If intCel > 2 And intCel < 19 Then doc.ActiveWindow.Selection.Font.Underline = wdUnderlineSingle End If Next intCel = 0 For intCel = 1 To 22 '-> For intCel = 1 To 12 strNgrt = wsSuporte.Range("R" & intCel).Text '-> strNgrt = wsSuporte.Range("R" & intCel).Text doc.ActiveWindow.Selection.Find.ClearFormatting With doc.ActiveWindow.Selection.Find .Text = strNgrt .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With doc.ActiveWindow.Selection.Find.Execute doc.ActiveWindow.Selection.Font.Underline = wdUnderlineSingle Next intCel = 0 For intCel = 1 To 22 ' -> For intCel = 1 To 12 strNgrt = wsSuporte.Range("S" & intCel).Text ' -> strNgrt = wsSuporte.Range("S" & intCel).Text doc.ActiveWindow.Selection.Find.ClearFormatting With doc.ActiveWindow.Selection.Find .Text = strNgrt .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With doc.ActiveWindow.Selection.Find.Execute doc.ActiveWindow.Selection.Font.Underline = wdUnderlineNone doc.ActiveWindow.Selection.Font.Color = 16724787 Next '---Centralizar If frmDadosFormulario.optCFolha.Value = True Then intCel = 0 For intCel = 1 To 3 strNgrt = wsSuporte.Range("Y" & intCel).Text ' -> strNgrt = wsSuporte.Range("Y" & intCel).Text doc.ActiveWindow.Selection.Find.ClearFormatting With doc.ActiveWindow.Selection.Find .Text = strNgrt .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With doc.ActiveWindow.Selection.Find.Execute doc.ActiveWindow.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter If strNgrt = "DADOS CLIENTE E PROCESSO" Then doc.ActiveWindow.Selection.ParagraphFormat.SpaceBefore = 12 doc.ActiveWindow.Selection.ParagraphFormat.SpaceAfter = 3 End If Next Else strNgrt = wsSuporte.Range("Y3").Text '-> strNgrt = wsSuporte.Range("Y3").Text doc.ActiveWindow.Selection.Find.ClearFormatting With doc.ActiveWindow.Selection.Find .Text = strNgrt .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With doc.ActiveWindow.Selection.Find.Execute doc.ActiveWindow.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter End If End Sub Sub Desproteger() Worksheets("SUPORTE").Visible = xlSheetVisible End Sub Sub Form() fmrBusca.Show End Sub