Word VBA質問箱 IV

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

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


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

235 / 886

←次へ　｜　前へ→


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

あんぽんたん - 10/2/11(木) 12:39 -


	引用なし

	パスワード

るりさん

おはようございます。

勤務先（ｘｐＰｒｏｆｆｅｓｉｏｎａｌ、Ｗｏｒｄ２００３）での
結果で質問さていただいた件です。

自宅のＰＣ（ｘｐＨｏｍｅ　Ｅｄｄ．、Ｗｏｒｄ２０００）では
すんなり実行できました。
ありがとうございます。

勤務先のＰＣは今後確認します。

>ワードVBAで実行できないのであれば、
>　参照設定を「参照不可」になっているものがないかを確認してみる。

もう少し具体的にご教示願います。

▼りるさん
>おはようございます。
>
>>適当な選択位置での頁(目)および行(目）を取得
>>しようとしましたが、下記のような問題が発生しました。
>>解決策をお願いします。
>
>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

1,892 hits

▼

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