|
あんぽんたん さん、こんばんわ。
>ExcelのVBA ProjectからWordを操作して
>
>(定義したWorkbook).Sheet(i)Cells(m,n).value = Selection.Information(wdActiveEndPageNumber)
>あるいは
>(定義したWorkbook).Sheet(i)Cells(m,n).value = Selection.InformationwdFirstCharacterLineNumber)
>
Excel VBAでは wdFirstCharacterLineNumber や wdActiveEndPageNumber
は未定義です。
なので、
>> 名前つき定数を使用しないで直接数値を指定する。
>> wdActiveEndPageNumber → 3
>> wdFirstCharacterLineNumber → 10
>
>この場合、表記法は、
>
> MsgBox Selection.Information(3), vbInformation, "頁"
>
> MsgBox Selection.Information(10), vbInformation, "行"
>
で試してみてください。
|
|