Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

233 / 886

←次へ　｜　前へ→


	【673】Re:頁(目）および行(目）の取得

あんぽんたん - 10/2/17(水) 22:00 -


	引用なし

	パスワード

るりさま

アドバイスありがとうございました。

WORDのVBA　Project　では問題なく動きました。

ただし、以下の操作でトラブルが発生しました。
アドバイスいただければ幸いです。

ExcelのVBA ProjectからWordを操作して

（定義したWorkbook）.Sheet(i)Cells(m,n).value = Selection.Information(wdActiveEndPageNumber)
あるいは
（定義したWorkbook）.Sheet(i)Cells(m,n).value = Selection.InformationwdFirstCharacterLineNumber)

として、ページ数あるいは行目を

取得してセルに入れようとすると

このコードで

　　実行時エラー；"438"
　　オブジェクトは、このプロパティまたはメソッドをサポートしていません

との警告が出ます。

このコードの前では、　（定義したWorkbook）の部分は難なくスルーします。

対応策をご教授願います。

なお、

>　参照設定を「参照不可」になっているものがないかを確認してみる。

参照不可　はありません。

>　参照設定を「参照不可」になっているものがないかを確認してみる。
>　名前つき定数を使用しないで直接数値を指定する。
>　　wdActiveEndPageNumber 　　　　→　3
>　　wdFirstCharacterLineNumber　　→ 10

この場合、表記法は、

MsgBox Selection.Information(3), vbInformation, "頁"

MsgBox Selection.Information(10), vbInformation, "行"

となるのでしょうか。

お尋ねします。

▼りるさん：
>おはようございます。
>
>>適当な選択位置での頁(目)および行(目）を取得
>>しようとしましたが、下記のような問題が発生しました。
>>解決策をお願いします。
>
>Word はどのように指定しているのかがわからないので、単純に文字位置で試してみました。
>
>Sub test()
>　 '文字数はCharacters
>　 Imax = ActiveDocument.Characters.Count
>　 '適当な文字位置(乱数で取得)
>　 Randomize Int(Now)
>　 i = Int(Imax * Rnd + 1)
>　 ActiveDocument.Characters(i).Select
>　 'Word-VBA,Wd2003でエラーなし
>　 MsgBox Selection.Information(wdActiveEndPageNumber), vbInformation, "頁"
>　 MsgBox Selection.Information(wdFirstCharacterLineNumber), vbInformation, "行"
>End Sub
>
>適当な文書（複数ページ有）を開いて実行してみたら大丈夫でした。
>
>>解決法があれば教えてください。
>ワードVBAで実行できないのであれば、
>　参照設定を「参照不可」になっているものがないかを確認してみる。
>　名前つき定数を使用しないで直接数値を指定する。
>　　wdActiveEndPageNumber 　　　　→　3
>　　wdFirstCharacterLineNumber　　→ 10

2,070 hits

▼

【669】頁(目）および行(目）の取得 あんぽんたん 10/2/8(月) 21:39