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?