□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| Excelから起動中のWordをアクティブにしたい | |
|---|---|
[195413] Excelから起動中のWordをアクティブにしたい- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ GUIN -(2022/11/28(13:46)) □U R L/ どなたかご教授くださいm(_ _"m) 起動中のWordにExcelの表を図として貼り付けたいです。 前提としては ①Wordのファイル名とパスは一定じゃない ②貼り付けるワードの文書の位置は事前にポイントしておきます ③Excelにボタンを設置して、ボタンクリックで実行です WindowsやAppActivateを試したのですが、上手くできませんでした。 よろしくお願いいたします。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[195414] Re[1]: Excelから起動中のWordをアクティブにしたい- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2022/11/28(13:58)) □U R L/ あんまりよく検証してませんが、一応↓でいけました。
Windows10,Excel2007で試してます。
Sub test()
Dim w As Object
Err.Clear
On Error Resume Next
Set w = GetObject(, "Word.Application")
If Err.Number = 429 Then
Exit Sub
Else
w.Activate
w.Selection.Paste
Set w = Nothing
End If
On Error GoTo 0
End Subこの記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195415] Re[2]: Excelから起動中のWordをアクティブにしたい- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2022/11/28(19:11)) □U R L/ クリップボードの内容を貼り付けるのなら、 あまりお勧めではないですが、こんな方法 でもいけます。 AppActivate "Microsoft Word" Application.SendKeys ("^v") | |
[195416] Re[3]: Excelから起動中のWordをアクティブにしたい- ■  / 記事引用/メール受信=OFF■
□投稿者/ GUIN -(2022/11/29(10:37)) □U R L/ MKさんお返事嬉しいです！ 無事、貼り付けることが出来ました。 本当に助かりました。 感謝いたします。 ありがとうございましたm(_ _"m) | |