Vairāk

Kāda vaina manai etiķetes formatēšanai?


Ar etiķetēm man ir dažas formatēšanas problēmas. Es izmantoju diezgan tiešu izteicienu (skat. Zemāk). Tas kaut kā darbojas labi, bet tiek ignorēts kāds formatējums, proti, ALL CAPS ACP tagi. Visi īpašnieku vārdi ir mazie, ar lielo burtu. Es gribu tos parādīt kā visus vāciņus, un tikai DAŽAS etiķetes nāk ar lielo burtu īpašniekiem. Es arī izmantoju kursīvu tagus, ja pastāv pretenzijas numura vērtība un tas darbojas labi.

Cits jautājums ir tāds, ka, kaut arī esmu NEVEIDO izplatīt rakstzīmes Maplex, dažām etiķetēm, bet ne visām ir izplatīti īpašnieka vārdi, bet dīvainā kārtā ne PIN un pretenziju numuri, kas visi ir viena virknes mainīgā daļa.

Ir arī citas problēmas ar etiķešu kraušanu Maplex, kuras, šķiet, nav pareizi sakrautas, izmantojot kraušanas atdalītāju, taču ignorēsim to šim jautājumam.

Vai ir kāds veids, kā to novērst, vai man ir nepieciešams eksportēt uz anotācijām un labot manuāli?

Funkcija FindLabel ([Īpašnieks], [MNDMF_Active_Mining_Claims_CLAIM_NUM], [PIN], [PIN_Surface], [PIN_Mining]) FindLabel = "" ja tas nav viss ([Īpašnieks]), tad, ja sagrieziet ([Īpašnieks]) <> "", tad FindLabel = FindLabel & trim (""& [Īpašnieks] &"") end if end, ja, ja nav, nav [[MNDMF_Active_Mining_Claims_CLAIM_NUM]), tad, ja trim ([MNDMF_Active_Mining_Claims_CLAIM_NUM]) <>" ", tad, ja len (FindLabel)> 0, tad FindLabel = FindLabel & vbnewline beigties, ja"&" Prasība: "& [MNDMF_Active_Mining_Claims_CLAIM_NUM] &""beigt ja beigt, ja nav, tad ([PIN]), tad, ja apgriezt ([PIN]) <>" ", tad, ja len (FindLabel)> 0, tad FindLabel = FindLabel & vbnewline beigties, ja FindLabel = FindLabel un apgriezt ([PIN] ) beigas ja beigas, ja nē, ja nav ) & "S" beigas, ja beigas, ja nav, tad nav [[PIN_Mining]), tad, ja apgriezt ([PIN_Mining]) <> "", tad, ja len (FindLabel)> 0, tad FindLabel = FindLabel & vbnewline beigas, ja FindLabel = FindLabel & apgriezt ([PIN_Mining]) un "M" beidzas, ja beidzas, ja beigu funkcija

Gan "<", gan "&" ir īpašas rakstzīmes, kuru dēļ formatēšana neizdodas, ja tās ir jūsu teksta virknēs. Šie kodā jāaizstāj šādi:

Funkcija FindLabel ([LABELFIELD]) NewString = Aizstāt ([LABELFIELD], "&", "&") FindLabel = ""& NewString &""Beigu funkcija

Plašāka informācija par formatēšanu ir palīdzības dokumentācijā


Skatīties video: Etikečių klijavimo sistema - indelis su briaunom (Oktobris 2021).