Posto sada trenutno na ovom racunaru nemam word 2007 dacu ti primer za konverziju 1000 doc fajlova u xml fajlove, a ti posle xml zameni u pdf, ako ne budes znao ja cu to sutra da uradim.
U nekom fajlu npr: DIR.TXT treba da budu sva imena i ekstenzije doc fajlova jedno ispod drugog iz tog foldera.
Da ih ne bi rucno ukucavao postupi ovako:
Iz dos-prompta u tom folderu otkucaj:
dir/b>dir.txt za sve fajlove
ili
dir *.doc/b>dir.txt samo za doc
Svi fajlovi iz tog foldera ce biti upisani u tekstualnom fajlu DIR.TXT sa sve ekstenzijom, i na taj nacin ne moras da prekucavas imena i ekstenzije posto si rekao da ih ima na hiljadu.
Code:Sub MasovnaKonverzija()
'
' MasovnaKonverzija Macro
' Macro recorded 5/22/2008 by RAJKO
' Autor: Rajko Kuzmanovic
[email protected]
Dim ImenaDocXfajlova(1 To 1000) As String
On Error GoTo greska
Open "c:\proba\dir.txt" For Input As #1
brojac = 1
Do While Not EOF(1)
Line Input #1, OcitanoIzFajla
ImenaDocXfajlova(brojac) = OcitanoIzFajla
brojac = brojac + 1
Loop
Close #1
For n = 1 To 1000
ChangeFileOpenDirectory "C:\proba\"
Documents.Open FileName:=ImenaDocXfajlova(n), _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
With ActiveDocument
.XMLSaveDataOnly = False
.XMLUseXSLTWhenSaving = False
.XMLSaveThroughXSLT = ""
.XMLHideNamespaces = False
.XMLShowAdvancedErrors = False
.XMLSchemaReferences.HideValidationErrors = False
.XMLSchemaReferences.AutomaticValidation = True
.XMLSchemaReferences.IgnoreMixedContent = False
.XMLSchemaReferences.AllowSaveAsXMLWithoutValidation = True
.XMLSchemaReferences.ShowPlaceholderText = False
End With
ActiveDocument.SaveAs FileName:= _
ImenaDocXfajlova(n) & ".xml", FileFormat:=wdFormatXML, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
Next n
greska:
End
[Ovu poruku je menjao rgdrajko dana 22.05.2008. u 18:24 GMT+1]
rgdrajko