| |
おはようございます。
>適当な選択位置での頁(目)および行(目）を取得
>しようとしましたが、下記のような問題が発生しました。
>解決策をお願いします。
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
|
|
りる
- 10/2/11(木) 9:16 -
![[未読]](./data/word/image/read_icon.gif){kind=icon}
