Word VBA質問箱 IV

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

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


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

164 / 886

←次へ　｜　前へ→


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

マナ - 13/5/2(木) 15:18 -


	引用なし

	パスワード

今更でもう解決しているかもしれませんが。
自分の勉強を兼ねて確認してみました。

>ExcelのVBA ProjectからWordを操作して
>
>（定義したWorkbook）.Sheet(i)Cells(m,n).value = Selection.Information(wdActiveEndPageNumber)

↑この時の、SelectionはExcel側なのではないかと思います。

こんな感じにすればうまくいくようです。

Sub test()
　　Const myName As String = "D:\***\****\るりさま.doc"
　　Dim myDoc As Object
　　
　　With CreateObject("Word.Application")
　　　　Set myDoc = .Documents.Open(myName)
　　　　.Visible = True
　　　　myDoc.Characters(500).Select
　　　　Range("A1").Value = .Selection.Information(3)　 'wdActiveEndPageNumber
　　　　Range("A2").Value = .Selection.Information(10)　'wdFirstCharacterLineNumber
　　　　myDoc.Close False
　　　　.Quit
　　End With

End Sub

840 hits

▼

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