In principal, despre .NET, VB6. C#,VB.NET, ASP.NET Apoi despre programare si multe alte chestii ... de programare.

Subscribe RSS   Mini tools List

joi, septembrie 06, 2007

Adobe versus Word
Va rog sa folositi acest URL NOU de la
http://serviciipeweb.ro/iafblog/

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

0 Comments:

Trimiteți un comentariu

Links to this post:

Creați un link

<< Home

 
Acest blog s-a mutat la http://www.serviciipeweb.ro/iafblog/