Siis miten Wordissa saa useampisivuisen dokumentin sivut tallennettua omina tiedostoinaan...?
Mahtaako onnistua vai täytyykö jokainen leikata erikseen ja tallentaa yksi kerrallaan...?
Kiitos jo etukäteen vastauksista! :)
Mahtaako onnistua vai täytyykö jokainen leikata erikseen ja tallentaa yksi kerrallaan...?
Kiitos jo etukäteen vastauksista! :)
Vastaukset 3
Vanhimmat
Jokainen doku on oma doku, oli siinä yksi tai tuhat sivua.
Aktivoi sivu, liitä uuteen tallenna ja tee sama uudelleen muille sivuille.
Täytyy varmaan kikkailla jotain muuta kautta niin, että saan homman toimimaan...
Otan ilomielin vinkkejä vastaan, jos jollain on tarkempaa tietoa asiasta :)
ei ihan tuttua mulle tää Wordin VBA, mutta tällä nyt ainakin jotain saa aikaiseksi...
tallentaa nyt sivu1,sivu2 jne, muuta koodissa FileName:="C:\Testi\sivu" & i & ".doc" haluamasi nimi
Sub TallennaSivu()
Dim i As Long
ActiveDocument.Repaginate
For i = 1 To Selection.Information(wdNumberOfPagesInDocument)
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i
Selection.GoTo What:=wdGoToBookmark, Name:="\Page"
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdPasteDefault)
ActiveDocument.SaveAs FileName:="C:\Testi\sivu" & i & ".doc"
ActiveDocument.Close
Next i
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=1
End Sub