Ir ao conteúdo
  • Cadastre-se

Arthur.Fenix

Membro Júnior
  • Posts

    2
  • Cadastrado em

  • Última visita

Reputação

0
  1. Os arquivos são bem idênticos, quero editar um texto em um arquivo grava a macro de edição e replicar nos outros arquivos, ou então mexer na edição do rodapé e rodar a macro para mexer em todos os rodapés, acrescentar um texto em todos os arquivos, apagar o texto. Coisas do gênero, pois são quase 500 arquivos a serem editados a mesma coisa.
  2. Boa noite, Prezados, um pessoa me ajudou muito com uma macro em Excel, que repetia qualquer processo de Excel colocado nela em vários arquivos de Excel. Agora meu caso é no Word, preciso que a macro rode em vários arquivos do word. segue a baixo a macro em Excel que em ajudou muito, queria ver se é possível adaptar para rodar em word. Sub Executar() On Error GoTo erro_executa Dim arq() As Variant Dim wbnew As Workbook, wb As Workbook Dim wnew As Worksheet Dim c As String arq = Application.GetOpenFilename("arquivos do excel (*.xl*),*.xl*", MultiSelect:=True) Set wb = ThisWorkbook Application.ScreenUpdating = False For A = LBound(arq()) To UBound(arq()) arquivoAberto = arq(A) Application.Workbooks.Open arquivoAberto Set wbnew = ActiveWorkbook wbnew.Worksheets(1).Activate Set wnew = ActiveSheet '------------------------- 'Cole/Digite a macro criada para se repetir '------------------------ Application.DisplayAlerts = False wbnew.Close True Application.DisplayAlerts = True Next A Application.ScreenUpdating = True wb.Worksheets(1).Select MsgBox "Concluído" Exit Sub erro_executa: Application.ScreenUpdating = True MsgBox "Ocorreu um erro" End Sub Obrigado!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...