ILogic Experts, in monochrome Extraktionsregel gesetzt

[Donald Haxhiu Work]

Guten Morgen, ich habe diese ilogische Regel online neckt (

). e funziona benissimo, l'unico problema è che io nella mia ditta, come regola standard di tutto l'ufficio tecnico, tutte le linee e o zit, sono di colori diversi. e questa regola quando va ad estrarre tutti gli idw in pdf. nicht si vede praticamente nulla perché è tutto colorato. allora vorrei impostare nella regola ilogic, che oltre all'estrapolazione dei file idw in pdf applichi anche il monocrome. qualcuno di voi ne sarebbe in grado gentilmente?


------------------
Teil Haupt()

dim pdfaddin als Übersetzeraddin
dim ocontext als Übersetzungskontext
dim ooptions als namevaluemap
dim odatamedium als Datenmedium
rufen Sie konfigurierenpdfaddinsettings(pdfaddin, ocontext, ooptions, odatamedium)

dim ofiledlg als Erfinder. Dateidialog = nichts
Erfindervb.application.createfiledialog(ofiledlg)
voniledlg.filter = "Erfinderdateien (*.idw)|*.idw"
voniledlg.dialogtitle = "delete ilogic rule in draw"
voniledlg.initialdirectory = thisdoc.path
voniledlg.multiselectenabled =true
= 1
voniledlg.cancelerror = true
auf Fehlerwiederaufnahme
voniledlg.showopen()
wenn err.number <> 0)
messagebox.show("Datei nicht gewählt.", "Dialog-Stornierung")
sonstif ofiledlg.filename <> " dann
für jeden Wrd in ofiledlg.filename.split("|") Wörter
dim odoc als Dokument = thisapplication.documents.open(wrd, false)
auf Fehlerwiederaufnahme
odatamedium.filename = links(odoc.fullfilename, (instrrev(odoc.fullfilename, ".", -1, vbtextcompare) - 1)) & ".pdf"
pdfaddin. savecopyas(odoc, ocontext, ooptions, odatamedium)
odoc.close
Nächste
Ende

Endteil

sub konfigurieren pdfaddinsettings(byref pdfaddin als translatoraddin, byref ocontext als translationcontext, byref ooptions als namevaluemap, byref odatamedium als datamedium)
opath = thisdoc. Pfad
pdfaddin = thisapplication.applicationaddins.itembyid("{0ac6fd96-2f4d-42ce-8be0-8aea580399e4}")
ocontext = thisapplication.transientobjects.createtranslationcontext
ocontext.type = iomechanismenum.kfilebrowseiomechanism
ooptions = thisapplication.transientobjects.createnamevaluemap
ooptions.value("all_color_as_black") = 0
ooptions.value("remove_line_weights") = 0)
ooptions.value("vector_resolution") = 400
ooptions.value("sheet_range") = Erfinder.printrangeenum.kprintallsheets
'ooptions.value("custom_begin_sheet") = 1
'ooptions.value("custom_end_sheet") = 1
odatamedium = thisapplication.transientobjects.createdatamedium
Endteil

 

[dsw]

qui gibt es Diskussion mit dem Code kommentiert, just set "all_color_as_black" = 1

 

[Donald Haxhiu Work]

Vielen Dank.