Adobe versus Word

E vorba de un telefon Nokia care are integrat suport de Office si de Adobe LE
In cazul asta , cistigator detasat Office. Stie sa faca Word Wrap - ceea ce Adobe nu stie.
Partea proasta si la unul , si la celalalt este ca, daca fisierul este prea mare, zice ca nu are memorie suficienta.
Asa ca am facut un VBA script rapid (alt avantaj office ) care sa "sparga" un document Word in documente de cite 10 pagini.
Cu CHM2Word si cu acest script pot citi tot ce vreau ...

Sub SplitDocument()
Dim d As Document
Set d = ActiveDocument
Dim strPath As String
strPath = d.Path
strPath = strPath & "\split\"
MkDir strPath

Dim nrpages As Integer
nrpages = d.BuiltInDocumentProperties(wdPropertyPages)
Dim pagestart As Integer, pagelast As Integer
pagestart = 10
d.Repaginate
Dim iPage As Integer

If (pagestart > nrpages) Then pagestart = nrpages
While pagestart <= nrpages
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=pagestart
Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
Selection.Cut
iPage = iPage + 1
With Application.Documents.Add

Selection.Paste
.SaveAs strPath & Format(iPage, "00#") & "_" & d.Name, WdSaveFormat.wdFormatDocument97
.Close
End With
d.Repaginate
nrpages = d.BuiltInDocumentProperties(wdPropertyPages)
If (pagestart > nrpages) Then pagestart = nrpages

Wend
End Sub

Post page: http://serviciipeweb.ro/iafblog/2007/09/06/Adobe+Versus+Word.aspx

Weblog post by 'admin' on 'Adobe versus Word'

Categories:programare;proprii;usual tools