Catafratto
Guest
se spieghi più chiaramente il problema e descrivi la soluzione adottata per le parti.
お問い合わせあなたにとって重要なことではない何かを試してみると、それがうまくいくと思いますが、決して言えません。
ilogic ではなく、vba です。フォーラムで見ていると、すべてをコピーする方法と場所が見つかられば、数回書いています。Code:' aggiorna i numeri プログレッシヴィ パブリックサブupdateprogressivo() アプリケーションとして dim oapp oapp = このアプリケーションを設定する odoc をドキュメントとして odoc = oapp.activeeditdocument を設定する dim spn を文字列として spn = readpartnumber(odoc) ディレクティブ dim はひもとしてコードします dim の orefdocs は変種として ドキュメントとしてのorefdoc コールコーデレータ(odoc) ' si collega ai documenti usati nell'assieme orefdocs = odoc.allreferenceddocuments を設定する ' aggiorna tutti i ドキュメンタリー collegati orefdocs.count の場合 > 0 それから orefdocs の各 orefdocs コールコーデレータ(orefdoc) 次へ 端 もし エンドサブ プライベートサブコーデレータ(ドキュメントとしてodoc) dim spn を文字列として spn = readpartnumber(odoc) ディレクティブ dim はひもとしてコードします ' se il numero parte è più lungo di による caratteri ' プレンデ グリ ultimi デュ カルテリ e li copia nella ipropery Personalizzata strings.len(spn) の場合 > 2 それから scode = strings.right(スプン、2) その他 scode = "" 端 もし コール writecustomproperties(odoc、progressivo、scode) エンドサブ 文字列としてのプライベート関数 readpartnumber(odoc ) 'definisce vari set di proprietà: ------------------------------------------------------------------------------------- dim プロパティセットとして opropsets opropsets = odoc.propertysets を設定する 「設計追跡のproprieties dim odesigntrackingproprieties as プロパティセット odesigntrackingproprieties = opropsets.item("{32853f0f0f-3444-11d1-9e93-0060b03c1ca6}") readpartnumber = odesigntrackingproprieties.itembypropid(kpartnumberdesigntrackingproperties).value エンド機能 プライベートサブ writecustomproperties(ドキュメントとしてodoc、文字列としてspropid、文字列としてspropvalue) dim ocustompropset プロパティセットとして ocustompropset = odoc.propertysets.item("{d5cdd505-2e9c-101b-9397-08002b2cf9ae}") dim bpropexist として boolean bpropexist = 偽 dim プロパティとして不適切 dim ocustomprop プロパティとして ocustompropsetの各不適当なのため oprop.name = spropid の場合、 bpropexist = true ocustomprop = 不適切な設定 出口のための 端 もし 次へ bpropexist = false の場合 ocustompropset.add(spropvalue、spropid) を呼び出す その他 ocustomprop.value = spropvalue 端 もし エンドサブ
お問い合わせあなたにとって重要なことではない何かを試してみると、それがうまくいくと思いますが、決して言えません。
ilogic ではなく、vba です。フォーラムで見ていると、すべてをコピーする方法と場所が見つかられば、数回書いています。Code:' aggiorna i numeri プログレッシヴィ パブリックサブupdateprogressivo() アプリケーションとして dim oapp oapp = このアプリケーションを設定する odoc をドキュメントとして odoc = oapp.activeeditdocument を設定する dim spn を文字列として spn = readpartnumber(odoc) ディレクティブ dim はひもとしてコードします dim の orefdocs は変種として ドキュメントとしてのorefdoc コールコーデレータ(odoc) ' si collega ai documenti usati nell'assieme orefdocs = odoc.allreferenceddocuments を設定する ' aggiorna tutti i ドキュメンタリー collegati orefdocs.count の場合 > 0 それから orefdocs の各 orefdocs コールコーデレータ(orefdoc) 次へ 端 もし エンドサブ プライベートサブコーデレータ(ドキュメントとしてodoc) dim spn を文字列として spn = readpartnumber(odoc) ディレクティブ dim はひもとしてコードします ' se il numero parte è più lungo di による caratteri ' プレンデ グリ ultimi デュ カルテリ e li copia nella ipropery Personalizzata strings.len(spn) の場合 > 2 それから scode = strings.right(スプン、2) その他 scode = "" 端 もし コール writecustomproperties(odoc、progressivo、scode) エンドサブ 文字列としてのプライベート関数 readpartnumber(odoc ) 'definisce vari set di proprietà: ------------------------------------------------------------------------------------- dim プロパティセットとして opropsets opropsets = odoc.propertysets を設定する 「設計追跡のproprieties dim odesigntrackingproprieties as プロパティセット odesigntrackingproprieties = opropsets.item("{32853f0f0f-3444-11d1-9e93-0060b03c1ca6}") readpartnumber = odesigntrackingproprieties.itembypropid(kpartnumberdesigntrackingproperties).value エンド機能 プライベートサブ writecustomproperties(ドキュメントとしてodoc、文字列としてspropid、文字列としてspropvalue) dim ocustompropset プロパティセットとして ocustompropset = odoc.propertysets.item("{d5cdd505-2e9c-101b-9397-08002b2cf9ae}") dim bpropexist として boolean bpropexist = 偽 dim プロパティとして不適切 dim ocustomprop プロパティとして ocustompropsetの各不適当なのため oprop.name = spropid の場合、 bpropexist = true ocustomprop = 不適切な設定 出口のための 端 もし 次へ bpropexist = false の場合 ocustompropset.add(spropvalue、spropid) を呼び出す その他 ocustomprop.value = spropvalue 端 もし エンドサブ