jannes

Hoi J. S. Ik gebruik daar een macro voor. Je zelf even een knop maken. Zet een leeg document klaar Hier is een voorbeeld (dit is mijn) macro: Pas de tekst in rood (gegevens) aan. De naam van het excel document is hier gegevens.xls Sub Create_gegevens() Dim wdApp As Word.Application, wdDoc As Word.Document Dim Reportname As String Dim Searchstring As String If ActiveWorkbook.Name <> "gegevens.xls" Then MsgBox ("The name of gegevens has been changed. This action has been interrupted. Please rename gegevens to it's original filename and retry") Exit Sub End If If Range("C4").Value <> "Fill-in" Then 0 On Error Resume Next Set wdApp = GetObject(, "Word.Application") If Err.Number <> 0 Then 'Word isn't already running Set wdApp = CreateObject("Word.Application") End If On Error GoTo 0 ChDrive Left(ActiveWorkbook.Path, 1) ChDir ActiveWorkbook.Path Dlganswer = Application.GetOpenFilename("Word document,*.doc,Alle Bestanden,*.*") If Dlganswer = False Then Exit Sub Else Searchstring = Dlganswer If InStr(1, Searchstring, "gegevens", 1) > 0 Then Reportname = "gegevens deel 1" ElseIf InStr(1, Searchstring, "gegevens-2", 1) > 0 Then Reportname = "gegevens deel 2" ElseIf InStr(1, Searchstring, "gegevens-3", 1) > 0 Then Reportname = "gegevens deel 3" ElseIf InStr(1, Searchstring, "gegevens-4", 1) > 0 Then Reportname = "gegevens deel 4" Else Reportname = "gegevens" End If Set wdDoc = wdApp.Documents.Open(Dlganswer) End If wdApp.Visible = True wdDoc.Activate wdApp.WindowState = wdWindowStateMaximize Application.ActivateMicrosoftApp xlMicrosoftWord wdApp.Selection.WholeStory wdApp.Selection.Fields.Update wdApp.Selection.Collapse If Reportname <> "" Then AppActivate "Microsoft Excel" Wordfilename = Reportname & " " & Range("C4").Value & ".doc" MsgBox "Sla a.u.b. het rapport op alvorens verder te bewerken" Wordfilename = Application.GetSaveAsFilename(Wordfilename) If Wordfilename = False Then Exit Sub Else wdDoc.SaveAs Wordfilename End If End If Application.ActivateMicrosoftApp xlMicrosoftWord Else MsgBox ("Please fill-in the applicable fields first !") End If End Sub * Hoop dat je hier iets aan hebt.

Hallo Christien, als je de website vertrouwt kan je in het het blokje een vinkje zetten bij " deze waarschuwing niet meer weergeven"

Hallo mensen, ik weet niet of dit de goede plaats is op mijn vraag te stellen. Ik maak gebruik van een LTO4 tape drive om mijn bestanden op te slaan (Backup) en maak daarbij gebruik van het in Windows xp aanwezige Backup programma. Op de LTO4 tape gaat ongeveer 680Gb aan data. Het probleem is ontstaan toe de tape (nr7) vol was. Het programma vroeg toen om een nieuwe tape in de drive te doen zodat de backup op de volgende tape verder kon gaan. Dit heb ik afgebroken. Ik heb een nieuwe tape gemaakt en ben verder gegaan met tape nr8. nu ik de data van tape nr7 wil lezen vraagt het programma om deel 2 van tape nr7 maar die is er niet. Dus kan ik alleen maar deze sessie afbreken, dat betekent dat ik geen index van tape nr7 op mijn scherm krijg. Ik heb de index nodig om het bestand dat ik terug wil halen aan te vinken. Als ik een nieuwe index aanmaak op een tape wist het programma alle data die op de tape staat. Mijn vraag is: Is er een manier om de index in te lezen zonder de tape te wissen? Is er een manier om de vraag naar tape 2 van nr7 te omzeilen?