Fjerne bilder fra flere filer

January 15  by Eliza

Rosario har et stort antall dokumenter (ca 44.000 av dem), som hver inneholder en grafisk i spissen. Hun er på utkikk etter en måte å fjerne alle disse grafikk uten nødvendigheten av å åpne og modifisere hvert dokument manuelt.

Heldigvis kan håndteres ved å opprette en makro. Alt du trenger å gjøre er å legge alle dokumenter i en mappe og deretter bruke makroen for å søke gjennom mappen, åpne hvert dokument, fjerne grafikken, og lagre hvert dokument. Dette kan gjøres med en makro som følgende:

Sub StripGraphics ()
Dim oShape Som Shape
Dim oIShape Som InlineShape
Dim jeg As Integer
Dim J As Integer

Med Application.FileSearch
.LookIn = "C: \ MyStuff \" 'hvor du skal søke
.SearchSubFolders = True 'søke undermappene
.FileName = "* .doc" 'File mønster å matche

'Hvis mer enn én kamp, ​​utføre følgende kode
Hvis .Execute ()> 0 Then
MsgBox "Found" & .FoundFiles.Count & "filen (e)."

'For hver fil du finne, kjøre denne sløyfen
For jeg = 1 Til .FoundFiles.Count
'Åpne filen basert på sin indeksposisjonen
Documents.Open Filename: = FoundFiles (I).

"Dokumentet er nå aktiv, sjekk alle seksjonene
For J = 1 Til ActiveDocument.Sections.Count
Med ActiveDocument.Sections (J) .Headers (wdHeaderFooterPrimary)
'Fjerne flytende grafikk fra header
Hvis .Shapes.Count> 0 Then
For Hver oShape I .Shapes
oShape.Delete
Neste oShape
End If
'Fjerne innebygd grafikk fra header
Hvis .Range.InlineShapes.Count> 0 Then
For Hver oIShape I .Range.InlineShapes
oIShape.Delete
Neste oIShape
End If
Avslutt med
Med ActiveDocument.Sections (J) .Headers (wdHeaderFooterFirstPage)
'Fjerne flytende grafikk fra header
Hvis .Shapes.Count> 0 Then
For Hver oShape I .Shapes
oShape.Delete
Neste oShape
End If
'Fjerne innebygd grafikk fra header
Hvis .Range.InlineShapes.Count> 0 Then
For Hver oIShape I .Range.InlineShapes
oIShape.Delete
Neste oIShape
End If
Avslutt med
Neste J

'Lagre og lukke gjeldende dokument
ActiveDocument.Close wdSaveChanges
Neste jeg
Else
MsgBox "Ingen filer funnet."
End If
Avslutt med
End Sub

Denne makroen gjør antagelsen om at du ønsker å fjerne all grafikk (både flytende og inline) i spissen. Disse er fjernet, og hver fil er resaved. Makroen påvirker ikke eventuelle andre grafikken i dokumentet.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (311) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Fjerne bilder fra flere filer.