|
▼ウッシ さん:
>こんにちは
>
>指定したワード文書以外が開いていると最後は一緒に閉じてしまっていますので適宜修正
>して下さい。
ありがとうございます。気づいたので修正しました。
主題は解決したのですが,別の問題が発生しました。再度,教えてください。
例えば,開くExcelブック名を間違えてセルに記入した場合,当然,エラーが出るのですが,これを正しく修正し,再度,マクロを実行させると「実行時エラー '462'」が出てしまいます。
一度,ブックを終了してから再び実行すると問題なく流れます。
マイ ドキュメント内で作業しているため,サーバーとのアクセスは関係ないのですが,どういうことなのでしょうか?
一部のコード(Wordに貼付部)ですが,
With objWord.Selection
.ParagraphFormat.Alignment = wdAlignParagraphLeft
With .Font
.Size = 12
.Name = "MS ゴシック"
End With
.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdFloatOverText, DisplayAsIcon:=False
.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionMargin
.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
.ShapeRange.ScaleWidth TEXT_SIZE, True 'TEXT_SIZEはセルから取得しています。
.ShapeRange.ScaleHeight TEXT_SIZE, True
.ShapeRange.Left = MillimetersToPoints(TEXT_LEFT) 'TEXT_LEFTもセルから取得しています。
'↑ ここで,止まってしまいます。
.ShapeRange.Top = MillimetersToPoints(TEXT_TOP) 'TEXT_TOPもセルから取得しています。
.MoveLeft
End With
よろしくお願いします。(必要でしたら全コード記述します)
|
|