Excel VBA質問箱 IV

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

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


27642 / 76736 ←次へ | 前へ→

【54411】ExcelデータをWordに貼り付け
質問  MJ12  - 08/3/12(水) 8:27 -

引用なし
パスワード
   Excel2000 から Word 2000 への貼り付けに関しては問題なく作動するのですが、Word 2003 へ貼り付けようとしたところ、エラーが発生します。
エラーは「実行時エラー '5930': オブジェクトが正しくありません。」です。
貼り付ける段階までは作動するのですが、位置及びサイズの変更で現状のコードのままでは問題が発生するようです。
どなたかお助けください。

Sub Excel→Word貼り付け()
  Dim ObjWord As Object
  Dim ObjWordDoc As Object
  Dim OpenWord As String
  OpenWord = ThisWorkbook.Path & "\文書1.doc"
  On Error Resume Next
  Set objWord = GetObject(, "Word.Application")
  If objWord Is Nothing Then Set objWord = CreateObject("Word.Application")
  On Error GoTo 0
  Set objWordDoc = objWord.Documents.Open(OpenWord)
  With objWord
    .Visible = True
    .WindowState = wdWindowStateNormal
  End With
  Workbooks("Book1.xls").Sheets("Sheet1").Range("b3:f7").Copy
  objWord.Documents(OpenWord).Activate
  With objWord.Selection
    .PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
              Placement:=wdFloatOverText, DisplayAsIcon:=False
    With .ShapeRange
      .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin 'ここでエラー
      .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
      .ScaleWidth 1#, True
      .ScaleHeight 1#, True
      .Left = wdShapeCenter
      .Top = objWord.MillimetersToPoints(0)
    End With
    Application.CutCopyMode = False
  End With  
  Set objWord = Nothing
  Set objWordDoc = Nothing  
End Sub

なお、同様の質問を他のサイトで行ったのですが、解決に至らず、
こちらで再度質問しました。
マルチにあたるようでしたらご指摘ください。
park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200803/08030041.txt
0 hits

【54411】ExcelデータをWordに貼り付け MJ12 08/3/12(水) 8:27 質問
【54416】Re:ExcelデータをWordに貼り付け りん 08/3/12(水) 13:36 回答
【54432】Re:ExcelデータをWordに貼り付け MJ12 08/3/12(水) 17:47 質問
【54433】Re:ExcelデータをWordに貼り付け りん 08/3/12(水) 18:59 発言
【54434】Re:ExcelデータをWordに貼り付け MJ12 08/3/12(水) 19:12 お礼

27642 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free