質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.35%
VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

0回答

958閲覧

VB.NET スクリプトの実行内容を1回のUndoで取り消せるようにしたい

sin777

総合スコア20

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

0クリップ

投稿2021/01/11 11:20

例えばForm1で、ボタンを押したらInDesignにファイルを5回テキストフレームの中に貼り付けるとします。
スクリプトの実行内容を1回のUndoで取り消せるようにしたいと思っています。
ネットで検索すると、サンプルが見つかったのでVB.NET用に書き直しましたが、

「System.Runtime.InteropServices.COMException: 'メソッド「DoScript」の
パラメーター「Script」の値が無効です。予想される値は File (String), String or
JavaScript Function ですが、値 nothing を受け取りました。'」

とエラーが出て、分からなくて困っています。
良きアドバイスを宜しくお願い致します。

※参照の追加で、InDesignを追加しています。
また、プログラム実行する際は、張り付けるInDesignファイルを開き、
テキストフレームで文字が入力できる状態にしています。

 参考サイト
https://cat.adodtp.com/2016/08/23/?p=638

(参考サイトのサンプル)
Main()
function Main(){ app.doScript"doMain()",ScriptLanguage.JAVASCRIPT,[],UndoModes.fastEntireScript); }
doMain(){ //何か処理 }

VB

1Imports InDesign 2Public Class Form1 3 Private myInDesign, myDocument, myTextFrame, myPage, pageObj 4 5 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 6 Main() 7 End Sub 8 9 Function Main() 10 myInDesign = CreateObject("InDesign.Application") 11 myInDesign.DoScript(doMain, idScriptLanguage.idVisualBasic, idUndoModes.idFastEntireScript) 12 End Function 13 14 Function doMain() 15 myDocument = myInDesign.Documents.Item(1) 16 myTextFrame = myDocument.selection(1) 17 myPage = myDocument.Pages.Item(1) 18 pageObj = myInDesign.activeDocument 19 For a = 1 To 5 20 myTextFrame.place("C:\Users\ユーザー名\Desktop\データ\1.indd") 21 Next 22 End Function 23End Class 24

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.35%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問