|
![](/images/profiles/noicon.gif) | Kommentar Fra : acronym ![Tre stjerner](/App_Themes/Normal/images/stars/small/star30.gif) |
Dato : 18-11-04 14:49 |
| | |
![](/images/profiles/icons/143604.jpg) | Kommentar Fra : Guild ![Tre stjerner](/App_Themes/Normal/images/stars/small/star30.gif) |
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
| |
|
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
| |
![](/images/profiles/noicon.gif) | Accepteret svar Fra : supertekst ![Tre en halv stjerne](/App_Themes/Normal/images/stars/small/star35.gif) | ![Fem stjerner](/App_Themes/Normal/images/stars/big/star50.gif) 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
| |
![](/App_Themes/Normal/images/Window/Backgrounds/User_Message.gif) | 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.
| |
|
|