-
Posts
3 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por danielbasiliocw
-
-
Consegui pessoal, pra quem precisar esta ai o codigo, isso é possivel pra varios arquivos juntei com outro codigo e deu certo, eu nao sei nada de VBA mas deu certo kkkkk
se puderem adptar pra copiar cabeçalho e rodape de uma vez seria bom!
Sub CommandButton1_Click()
Dim MyDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
On Error Resume Next
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
With MyDialog
.Filters.Clear
.Filters.Add "All WORD File ", "*.docx", 1
.AllowMultiSelect = True
i = 1
If .Show = -1 Then
For Each stiSelectedItem In .SelectedItems
GetStr(i) = stiSelectedItem
i = i + 1
Next
i = i - 1
End If
Application.ScreenUpdating = False
For j = 1 To i Step 1Dim docTemplate As Document
Dim strTemplate As String
Dim hdr1 As HeaderFooter
Dim hdr2 As HeaderFooter
Dim doc As Document
Set doc = Documents.Open(FileName:=GetStr(j), Visible:=True)
Windows(GetStr(j)).Activate
strTemplate = "C:\ModuloVBA\papeltimbrado.dot"
Set docTemplate = Documents.Open(strTemplate)
Set hdr1 = docTemplate.Sections(1).Footers(wdHeaderFooterPrimary)
Set hdr2 = doc.Sections(1).Footers(wdHeaderFooterPrimary)
hdr1.Range.Copy
hdr2.Range.Paste
docTemplate.Close FalseNext
Application.ScreenUpdating = True
End With
If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
End Sub -
Pessoal, boa tarde.
Estou com varios arquivos aqui que precisam ser alterados os rodapes.
Eu encontrei uma macro no proprio forum porém ela nao altera a formatacao. A macro é esta:
Sub rodape2()
'
' rodape2 Macro
' cdfdfd
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter '......7
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = _
"Métrica TopoEVN Fácil 6.9.2.14 - Sistema profissional para cálculos, desenhos e projetos topográficos. - tecnologia Métrica TopoEVN Fácil 6.9.2.14® 2013"
'3º) DIGITE TELEFONE E E-MAIL DA NOVA LOJA
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Replacement.Text = "GO-070, KM 126 o Meio Rural o Goiás o GO o CEP: 76600-000 \n Telefones o (62) 3372-1720 o (62) 9693-2686 o www.terrasreunidas.com.br"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Sub Macro4()
Call Padronizacao
Call ENDERECO_NEW
Call rodape2
'On Error Resume Next
End SubVejam a imagem de como estão os documentos e abaixo com a seta indicativa como deveria ficar.
Como eu coloco as quebras de texto e se possivel o numero de pagina? A linha acima do texto pode nao aparecer...
Poderia ser na verdade uma macro que copia um rodape de um arquivo modelo e repassa para os documentos selecionados... Alguem consegue me ajudar?
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
Mudar pasta "Arquivos de Programas"
em Versões até Windows 8
Postado
muito util o topico, mas é possivel que eu mova apenas alguns programas, ou seja, aqueles que raramente uso?