[WORD] 1 document opslaan in delen

[Arie26]

Ik heb hier een word document met 362 bladzijde's is het nu mogelijk om elke bladzijde als een appart bestand op te slaan

Of ben ik gewoon de pineut en kan ik elke blad zijde zelf af zonderlijk opslaan

[sjroorda]

Je bent de pineut

Maar waarom zou je in godsnaam een 362-pag. file willen opdelen in 362 aparte files???

[ Voor 70% gewijzigd door sjroorda op 26-03-2003 15:50 ]

[Verwijderd]

Jij kunt er een macro voor maken die de pagina selecteert, opslaat, etc.

[BtM909]

Verwijderd schreef op 26 maart 2003 @ 15:51:
Jij kunt er een macro voor maken die de pagina selecteert, opslaat, etc.

Hoe wil je één pagina selecteren dan?

[RupS]

BtM909 schreef op 26 March 2003 @ 15:52:
[...]

Hoe wil je één pagina selecteren dan?

Ik heb totaal geen ervaring met macro's in Word, maar kun je niet per pagina printen naar bestand?

En dan iedere keer het pagina nummer ophogen? of zow...

[sjroorda]

Met printen naar een bestand krijg je geen Word-docs meer terug, en dit is volgens mij wat de TS wil.

Maar ik ben nog steeds erg nieuwsgierig naar de beweegredenen... Dus TS, laat eens wat van je horen .

[Verwijderd]

Stel TP heeft een ISO-handboek geschreven, dan moet dat handboek aangepast kunnen worden met een versienummer (per pagina).

Dan moet je je handboek wel per pagina opslaan... (wat ook weer terug te vinden moet zijn voor werknemers (per pagina)).

Zit zo'n beetje met hetzelfde (echter 20 blz.)

[Arie26]

De beweeg reden is als volgt;
ik werk bij een installatie bedrijf en ik krijg zo juist een aantal meet raporten terug van de monteurs; deze hebben een data netwerk gemeten van 362 aansluitingen. Deze komen uit de Fluke meter als 1 groot TXT-stand.
Maar ze hebben alles willekeurig gemeten dus de vollig worden klopt niet en ik moet elke meting apart opslaan. omdat ze afzonderlijk moeten worden aangeleverd.

[BtM909]

Verwijderd schreef op 26 maart 2003 @ 16:08:
Stel TP heeft een ISO-handboek geschreven, dan moet dat handboek aangepast kunnen worden met een versienummer (per pagina).

Dan moet je je handboek wel per pagina opslaan... (wat ook weer terug te vinden moet zijn voor werknemers (per pagina)).

Zit zo'n beetje met hetzelfde (echter 20 blz.)

Dan is het uiteraard verkeerd gegaan bij het ontwerp voor het handboek.

[sjroorda]

Is dit dan niet makkelijker met een script/programmaatje te doen? Ik neem aan dat elk rapport op een of andere manier een duidelijke scheiding heeft t.o.v. de voorgaande (aantal lege regels, lijntje ertussen of zo).

In een Word-doc zou dit niet (zo makkelijk) kunnen, maar een txt zou geen problemen moeten opleveren. Denk dat iets dergelijks de snelste methode is.

[Arie26]

In een Word-doc zou dit niet (zo makkelijk) kunnen, maar een txt zou geen problemen moeten opleveren. Denk dat iets dergelijks de snelste methode is.

Zou je ook kunnen vertellen hoe ??
scheelt mijn een hele hoop werk.

[sjroorda]

Wat ik zeg (moet je wel voor kunnen proggen ): stel dat de rapporten er in 1 file als iets dergelijks uit komen rollen:

code:

Report 0001
Date 2003-03-26

Results
   blaat
-----
Report 0002
Date 2003-03-26
Results
   blaat
---
Report 0003
Date 2003-03-26
Results
   blaat

(ik noem maar iets als voorbeeld); dan kan je een programma de file laten inlezen, zoeken op '-----', en zodoende elk stuk verwerken en onder een andere naam opslaan.

[Arie26]

Ik kan nie proggen hoor
maar ik hoor het wel

[BtM909]

Arie26 schreef op 26 maart 2003 @ 15:47:
Ik heb hier een word document met 362 bladzijde's is het nu mogelijk om elke bladzijde als een appart bestand op te slaan

Of ben ik gewoon de pineut en kan ik elke blad zijde zelf af zonderlijk opslaan

Je bent voor een keer niet de pineut.

Geef eens antwoord op de volgende vragen:

• In welke directory moeten die documenten komen?
• Hoe moeten die bestanden heten (bijv. meting -> meting1.doc, meting2.doc, etc)

[ Voor 7% gewijzigd door BtM909 op 26-03-2003 17:09 ]

[Arie26]

de directory maakt nie zo veel uit hoor en de bestandsnamen als volgt mocht het kunnen "Cable ID 01" enz enz.

[BtM909]

Onderstaande code opslaan als explodePages.bas

• Word starten | ALT + F11 indrukken | CTRL + R
• Rechtermuisknop op Normal | Import file...
• Selecteer explodePages.bas
• Klik op de save knop
• Sluit de VBA editor af

Nu kan je je document openen (kan trouwens elk document zijn ), vervolgens:
ALT + F8

Selecteer de macro, klik op Run en ren snel weg

In de code kan je een aantal dingen wijzigen:
ChangeFileOpenDirectory ("E:\GoT\") <- geef hier de directory op waar de bestanden moeten komen
strVoorvoegsel = "Cable ID" <- geef hier de voorvoegsel van je bestandsnaam

code:

Sub explodePages()
' Macro created @ 26-03-2003
' BtM909

Dim varTotalPages As Variant
Dim i, intBrowser As Integer
Dim strVoorvoegsel, strName As String

    Application.ScreenUpdating = False

    varTotalPages = ActiveDocument.Content.Information(wdActiveEndAdjustedPageNumber)
    intBrowser = varTotalPages - 1

    ChangeFileOpenDirectory ("E:\GoT\")
    strVoorvoegsel = "Cable ID"

    Application.Browser.Target = wdBrowsePage
    Selection.HomeKey Unit:=wdStory

    For i = 1 To intBrowser
        Application.Browser.Next

        Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
        Selection.Cut

        Documents.Add Template:="Normal", NewTemplate:=False
        Selection.Paste

        strName = strVoorvoegsel & i

        ActiveDocument.SaveAs FileName:=strName, FileFormat:=wdFormatDocument, _
            LockComments:=False, Password:="", AddToRecentFiles:=False, WritePassword _
            :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
            SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
            False
        ActiveWindow.Close
    Next i

    'Laatste pagina: pfew :P
    strName = strVoorvoegsel & varTotalPages

    ActiveDocument.SaveAs FileName:=strName, FileFormat:=wdFormatDocument, _
            LockComments:=False, Password:="", AddToRecentFiles:=False, WritePassword _
            :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
            SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
            False
        ActiveWindow.Close

    Application.ScreenUpdating = True
End Sub

[ Voor 10% gewijzigd door BtM909 op 19-06-2003 13:56 . Reden: Wat code aangepast en een lelijke programmeerfout eruit gehaald :P ]

[Arie26]

TH man, ik ga dit straks effe uit proberen want ik zit nu weer effe bij mijn neefjes voor bij les wiskunde, maar ik laat zeker nog effe weten of het allemaal gelukt is

[Arie26]

JJJAAAAAAUUHH
Hij doet het
nou dta scheelde mijn een hoop werk zeg
nu staan er netjes 362 bestandjes in 1 directory
zo mijn werk zit er voor vandaag weer op

[BtM909]

Arie26 schreef op 27 March 2003 @ 08:29:
JJJAAAAAAUUHH
Hij doet het
nou dta scheelde mijn een hoop werk zeg
nu staan er netjes 362 bestandjes in 1 directory
zo mijn werk zit er voor vandaag weer op

eehh..... Waar kan ik de factuur naartoe sturen.... ?

[Verwijderd]

offtopic:
Tijdje terug was er een topic over 'voor wie heb je respect?' - Gezien de posthistory van TS en de reacties van BtM909 is dit aantal voor mij met +1 gestegen

[ Voor 21% gewijzigd door Verwijderd op 27-03-2003 09:30 . Reden: Wel alles lezen, Andina ]

[Arie26]

offtopic:
Tijdje terug was er een topic over 'voor wie heb je respect?' - Gezien de posthistory van TS en de reacties van BtM909 is dit aantal voor mij met +1 gestegen

Ik ben er over aangesproken door iemand en ik heb er echt van geleerd voor ik zomaar een topic open hoor.