vba でテンプレートからコピーすることでフォルダーを更新

[Adahm]

既存のデザインのフォルダを更新し、テンプレートからコピーするために必要なネットワーク上で見つけたサブを開発しました。
どなたでも必要であれば、ここのコードを置きます。
私たちは、すべての人に利益をもたらすためにそれを改善するためのヒントとヒントを受け入れます。

サブ update_titleblock()
エラーのgoto err_update_titleblock:

odrawdocをdrawdocumentとして
odrawdoc = thisapplication.activedocument を設定する

' se non è il 描画 esce
if (odrawdoc.documenttype <> kdrawingdocumentobject) その後、サブを終了します

dim otemplate として ドロードドキュメント
osourcetitleblockdef を titleblockdefinition とする
dim onewtitleblockdef タイトルブロック定義
シートとして dim osheet
titlename を文字列として定義する
dim はひもとして突き出ます
ステムメッキ = "nomefile.idw"

osheet = odrawdoc.activesheet を設定する

' apre il ファイル da cui copiare il cartiglio
otemplate = thisapplication.documents.open(thisapplication.fileoptions.templatespath & ステムメッキ, false) 'visibilità apertura file = false
' 決定 il nome del cartiglio del disegno di destinazione
osourcetitleblock=otemplate.activesheet.titleblock.definition を設定する
' コローラ il kartilio デル テンプレート nel disegno di destinazione
set onewtitleblockdef = osourcetitleblockdef.copyto(odrawdoc, true) 'true は、ソースからtbでタイトルブロックを置換します

dimのspromptstrings (1から2)ひもとして
spromptstrings(1) = " " ' ネル mio caso il campo 大陸 l'informazione della scala del disegno
spromptstrings(2) = "1/1" ' nel mio caso il campo 大陸 l'informazione del foglio

' シクラ su ogni foglio del file
odrawdoc の各 Osheet の シート
osheet.titleblock.delete
osheet.addtitleblock (onewtitleblockdef、spromptstrings) を呼ぶ
次へ
otemplate.close ディレクティブ

出口のサブ

err_update_titleblock:
osheet.activate
スケジュール
エンドサブ