vbaでpdfのしおりとジャンプ先を複数階層の全て取得したいです

直接ドキュメントにJavaScriptを組み込む場合はthisで当該ドキュメントを参照することができますが、件のコードではVBA側で参照したドキュメントをJS側に渡せていない為にドキュメントを参照できていないのだと考えられます。ドキュメント及びアプリケーションの定義から厳密に書いてみるとどうでしょう？

こんにちは、config.jsに

///////////////////////////////////////////

var co = "";
function Dbook()
{
co="";
DumpBookmark(this.bookmarkRoot, 0);
return co;
}

function DumpBookmark(bkm, nLevel)
{
for (var i = 0; i < nLevel; i++) ;
bkm.execute()
co = co + nLevel + "|" + bkm.name + "|" + this.pageNum + "\n";

if (bkm.children != null)
for (var i = 0; i < bkm.children.length; i++)
{
DumpBookmark(bkm.children[i], nLevel + 1);
}
}

///////////////////////////////////////////

と記載し、ＶＢＡで、

Sub Button1_Click()
'http://khkonsulting.com/2009/03/acrobat-javascript-and-vb-walk-into-a-bar/
Dim r As String
Dim r2 As String
Set gApp = CreateObject("AcroExch.App")

Set avdoc = CreateObject("AcroExch.AVDoc")
iret = avdoc.Open("C:\Users\Y2\Desktop\VBA\BMtest.pdf", "")
gApp.Show 'アプリケーション表示
Set avpv = avdoc.GetAVPageView
Set jso = avdoc.GetPDDoc.GetJSObject

r = jso.Dbook()
Debug.Print (r)
End Sub

で、値を取得できるようになりましたが、

ページＮＯ(this.pagenum)のところが、「undefined」になってしまいます。

pdfの直接のjavascriptと、user folderのjavascriptの違いや注意を教えてもらいたいです。

よろしくお願いします

Ten Aさんへお返事した返信は、何度ＵＰしてもＵＰになりませんでした・・・

acrobat11のuser folderは、私の場合は、
　C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\Javascripts
　でした。
　そこに、config.js（関数）を置いて、ＶＢＡ側のjso.関数()で、javascriptの値を取得できました。
　(http://khkonsulting.com/2009/03/acrobat-javascript-and-vb-walk-into-a-bar/)
　今のところ、このやり方で出来るかな？と思っています・・・

わたしはVBAは門外漢なのですが、コードを拝見したところGetJSObjectでドキュメントオブジェクトをVBA側に持って来たあとJavaScriptコードで処理しようとしているように見受けます。

VBA側でGetJSObjectした時点でどの様なオブジェクトが取得できているのか確認した上で、VBAとしてループ処理を書かないとだめです。最初のサイトのコード自体はJavaScriptでの処理はありませんし、2つ目の物に至ってはJavaScriptコードのみでVBAに関する情報はありません。

vbaで孫childrenの取得で行き詰ってます。

https://ameblo.jp/amiza-ret/entry-10292418481.html　を参考にテキスト出力してみました。

var co ="" ;
function DumpBookmark(bkm, nLevel)
{
var s = "";
for (var i = 0; i < nLevel; i++) s += " ";
co = co + nLevel + "|" + bkm.name + "|" + (this.pageNum + 1) + "\n";
bkm.execute()
if (bkm.children != null)
for (var i = 0; i < bkm.children.length; i++)
DumpBookmark(bkm.children[i], nLevel + 1);
}
console.clear(); console.show();
//console.println("Dumping all bookmarks in the document.");
DumpBookmark(this.bookmarkRoot, 0);

// set up output text
var TEMP_FIELD_NAME = "bookmark"
// add a temporary text field
var f = this.addField(TEMP_FIELD_NAME, "text", 0, [30,30,100,20]);
f.multiline = true; // Make it multiline
f.value = co;
// export field name and value to defined file
this.exportAsText({aFields: TEMP_FIELD_NAME, cPath: "test-text-multi.txt"});
// remove text field
this.removeField(TEMP_FIELD_NAME);

http://pharma-sas.com/how-to-add-multiple-levels-of-bookmark-into-pdf-via-vba/

と一体でvbaで加工できればいいなぁ~とおもっています

bookmarkRootから子要素を辿るならchildren要素を参照します。

詳しくは以下のAPIを確認してください。

http://kb2.adobe.com/jp/cps/511/511727/attachments/511727_js_api_reference.pdf#page173