Hjælp til word 18-11-04 14:49 : acronym 18-11-04 16:11 : tbayj 18-11-04 16:37 : Dkkasper 18-11-04 16:59 : Guild 18-11-04 18:10 : supertekst 18-11-04 20:22 : tbayj 18-11-04 20:31 : supertekst 18-12-04 19:24 : tbayj

Hjælp til word Fra : tbayj Vist : 413 gange 50 point Dato : 18-11-04 14:33

Jeg har et stort problem. Jeg har lavet et dokument på 11 sider. Nu vil jeg gerne gemme hver enkelt side seperat. Jeg har prøvet at kopiere én side ad gangen og sætte ind i et nyt. Men det er for langsomt. Er der en anden mulighed?

Kommentar Fra : acronym Dato : 18-11-04 14:49

Nej desværre

Kommentar Fra : tbayj Dato : 18-11-04 16:11

Det er da dårligt at man ikke kan gøre sådan en simpel ting...måske man skulle prøve Linux

Kommentar Fra : Dkkasper Dato : 18-11-04 16:37

Det kan da ikke passe du ikke kan bruge copy/paste ind funktionen...

Kommentar Fra : Guild Dato : 18-11-04 16:59

Du kunne jo også bare bruge en gammel skrivemaskine .. så giver det helt sig selv .. her er det komplet umuligt at gå til side 2, uden at isætte et nyt ark. Keep it simple ! /PG

Kommentar Fra : supertekst Dato : 18-11-04 18:10

Ja - det vil jeg mene. Har i anden anledning programmeret en en metode, der "klipper" de enkelte sider ud og placerer dem i en Wordfil for sig selv. Interesseret? MVH

Kommentar Fra : tbayj Dato : 18-11-04 20:22

Ja, det er jeg meget interesseret i

Accepteret svar Fra : supertekst Modtaget 50 point Dato : 18-11-04 20:31

Her kommer koden - du skal selv rette i linien markeret m/<<<<<<<<< (dit dokument.navn) Alle siderne navngivet p.t. med "SideFil"+sidenr. === midlertidige forudsætninger/præmisser === Kode Rem Uddrag af System "BookMaker" - avisfremstilling U/Publisher Const WordDok = "navnet på dit Worddokument.doc" '<<<<<<<<<<<<<<<<<<<< Public xSti, xsysDok Dim blad As Document, antalsider Dim sv, vSide, hSide Sub StartProgram() HouseKeeping End Sub Private Sub HouseKeeping() Dim f setOrddeling xSti = ActiveDocument.Path If Right(xSti, 1) <> "\" Then xSti = xSti + "\" End If xsysDok = ActiveDocument.Name Set blad = Documents.Open(FileName:=xSti + WordDok) antalsider = Selection.Information(wdNumberOfPagesInDocument) Rem Opdel bladsider i separate filer '"sideFilNr.doc" opdelFilerBlad1 antalsider Documents(blad).Close '"Bladet" End Sub Private Sub opdelFilerBlad1(antalsider) Dim s For s = 1 To antalsider WordBasic.startofdocument gaaTilSide CStr(s) Selection.Extend gaaTilSide CStr(s + 1) Selection.Copy Documents.Add ' (xSti + "sideFil.dot") ' evt. skabelon Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, Placement:= _ wdInLine, DisplayAsIcon:=False ActiveDocument.SaveAs (xSti + "sideFil" + CStr(s) + ".doc") ActiveDocument.Close Documents(blad).Activate Next s End Sub Sub gaaTilSide(sidenr) If Val(sidenr) > antalsider Then WordBasic.endofdocument Else Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=sidenr End If End Sub Private Sub setOrddeling() With ActiveDocument .AutoHyphenation = True .HyphenateCaps = True .HyphenationZone = CentimetersToPoints(0.75) .ConsecutiveHyphensLimit = 0 End With End Sub MVH

Godkendelse af svar Fra : tbayj Dato : 18-12-04 19:24

Tak for svaret supertekst. Undskyld at jeg glemte point

Du har følgende muligheder

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål. Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.