complexe wensen...

[Ferdi01]

Goedemorgen allemaal!

Graag hulp en ideeen voor het volgende:

Ik heb 15000 word documenten in 'nagenoeg' dezelfde opmaak. Nu zoek ik een tooltje of een manier om:

1: een aantal 'zoek en vervang' acties te doen in al die documenten
2: van alle documenten de eerste pagina te verwijderen
3: een aantal gegevens (persoonlijke gegevens) te exporteren naar excel.

Ik hoop (heel erg zelfs!!!) dat iemand hier een mogelijkheid voor weet. Stuk voor stuk wordt een flinke uitdaging.:evil:

Alvast bedankt voor de hulp mensen! :thumb:

 

[de jean]

nu ben ik wel echt nieuwsgierig ...
gaat volgens mij niet lukken.

 

[Ellasar]

Het zou moeten lukken met vba....
Maar daarvoor reikt mijn kennis niet ver genoeg. Lijkt mij een leuke opdracht voor Wigi
Maar ik neem aan dat hij dan een paar voorbeeld bestanden nodig gaat hebben

 

[Ferdi01]

Lijkt mij een leuke opdracht voor Wigi
Maar ik neem aan dat hij dan een paar voorbeeld bestanden nodig gaat hebben

Als Wigi voorbeeldbestanden nodig heeft krijgt hij die!

 

[Axel Hagg]

Dag Ferdi,

1. Wat zoek je en waarmee vervang je het? Geef een voorbeeld.

2. code om pagina 1 te verwijderen (wel eerst proberen op een kopie):

Selection.Goto What:=wdGotoPage, Which:=wdGotoAbsolute, Count:=2
Activedocument.Range(Start:=0, End:=Selection.Start).Delete

3. Gegevens exporteren naar Excel:
Geef hiervan een voorbeeld en staan deze gegevens allemaal op dezelfde plaats of zijn ze identiek te localiseren?

Gegroet,

Axel.

 

[Ferdi01]

Hai Axel,

1. Ik zoek in elk document een Naam die ik wil vervangen door onze nieuwe bedrijfsnaam.

2. Als ik het zo bekijk (VBA leek!) geldt dit maar voor 1 document of niet???

3. De gegevens staan niet op een vaste plek maar worden maar zijn wel traceerbaar. Persoonlijke gegevens staan bijvoorbeeld in een tabelletje:
Voornaam: Steven
Achternaam: Segal
Straat: etc etc

Gr Ferdi

 

[Axel Hagg]

Dag Ferdi,

Sub Macro2()
  Dim f
  Dim o As Object
  Dim r As Integer
  Dim s As String
  
  Set o = CreateObject("Excel.Application")
  o.Visible = True
  o.workbooks.Add
  For Each f In CreateObject("Scripting.FileSystemObject").GetFolder("pad van map").Files
    Documents.Open FileName:=f.Path
    With ActiveDocument
      Selection.HomeKey Unit:=wdStory
      With Selection.Find
        .Format = False
        .Forward = True
        .MatchCase = True
        .MatchWholeWord = True
        .ClearFormatting
        .Text = "oude naam"
        .Replacement.ClearFormatting
        .Replacement.Text = "nieuwe naam"
        .Execute Replace:=wdReplaceAll
      End With
      Selection.HomeKey Unit:=wdStory
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
      .Range(Start:=0, End:=Selection.Start).Delete
      With .Tables(1)
        r = r + 1
        For i = 1 To 6
          s = .Cell(i, 1).Range.Text
          o.activeworkbook.sheets(1).Cells(r, i).Value = Left(s, Len(s) - 2)
        Next
      End With
      .Save
      .Close
    End With
  Next
  o.activeworkbook.SaveAs FileName:="C:\Adressen uit oude documenten.xls"
  o.activeworkbook.Close
  o.Quit
End Sub

Vul nog in het pad van de map waarin de documenten staan; de oude naam van de ondernemeing en de nieuwe naam van de onderneming.

Ook dien je aan te geven welk volgnummer de tabel heeft (tenzij er maar één tabel is) en moeten de cellen van zowel Excel-werkboek als Word-document in overeenstemming worden gebracht.

Wel eerst proefdraaien op voorbeelden. O ja, en Verwijzen naar Microsoft Excel en Microsoft Scripting Runtime.

Gegroet,

Axel.

 

[Ferdi01]

sjee!!! dit is echt goed!!!! Ik ga hier maandag (of evt van het weekend) mee aan de slag!! geweldig!!! Ik laat van me horen.:thumb:

 

[Ferdi01]

sjee!!! dit is echt goed!!!! Ik ga hier maandag (of evt van het weekend) mee aan de slag!! geweldig!!! Ik laat van me horen.:thumb:

Beter laat dan nooit zullen we maar zeggen. Uiteindelijk is het ook niet gelukt met hulp van bovenstaande.

Heb nu door onze systeembeheerder een tooltje laten programmeren. Kost wat maar dan heb je ook wat. Daarnaast ben ik daar ook niet helemaal tevreden over dus misschien moet ik het maar laten voor wat het is...:evil:

In ieder geval bedankt allen!