DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub AltBilgiGuncelle()
Dim strPath As String
Dim objSection As Section
Dim objFooter As HeaderFooter
Dim i As Long
strPath = "C:\WordDocs"
If Dir(strPath, vbDirectory) = Empty Then
MsgBox strPath & " klasoru bulunamadi ..."
Exit Sub
End If
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = strPath
.FileName = "*.doc"
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Documents.Open .FoundFiles(i)
For Each objSection In Documents(.FoundFiles(i)).Sections
For Each objFooter In objSection.Footers
If objFooter.Exists Then
objFooter.Range.Text = "Bu yeni alt bilgidir ..."
objFooter.Range.Font.Size = 8
objFooter.Range.ParagraphFormat.Alignment = wdAlignParagraphRight
With objFooter.Range.Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
End If
Next
Next
Documents(.FoundFiles(i)).Close SaveChanges:=True
Next
End With
Application.ScreenUpdating = True
End Sub