Excel VBA質問箱 IV

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

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


58542 / 76732 ←次へ | 前へ→

【22916】実行時エラー462
質問  焼肉  - 05/3/7(月) 15:32 -

引用なし
パスワード
   皆様始めまして。
さて質問の内容ですが、今エクセルからワードを起動させて、
その中に新規文書を記述させて、ページ設定等も行ってます。
その後にそのワード文書を縦書きにして印刷します。
1回目は印刷が出来るのですが、2回目以降は、ある部分で
マクロが止まってしまいます。そして、エラーメッセージ
「実行時エラー462、リモートサーバーがないか、使用できる状態ではありません。」
と言うメッセージが出てしまいます。(停止箇所は下段*の線部分です。)
どなたか解決方法をご教授ください。お願い致します。

  Dim objword As New Word.Application

  ''リターンコード格納変数の初期化
  Rec = 0
  
  ''ワード起動部分
  Set objword = CreateObject("Word.Application")
  Set objword = GetObject(, "Word.Application")

  ''ワード書式設定、文章記述部分

  With objword
    .Visible = True
    .documents.Add
    .Activate
    .Selection.Font.Name = AllFontName
    .Selection.Font.Bold = True
    .Selection.Font.Size = TitleFontSize
    .Selection.typetext Text:=TitleText
    .Selection.Font.Size = MainFontSize
    .Selection.typetext Text:=Space(10) & Info_Name & Space(1) & "殿" & vbCrLf
    .Selection.typetextText:=vbCrLf                  
    .Selection.typetextText:=MainText
    .Selection.typetextText:=vbCrLf                       
    .Selection.Font.Size = DateFontSize
    .Selection.typetext Text:=Space(1) & Format(Year(Now) & "/1/1", "ggg") & LJapanYear & RJapanYear & "年" _
      & Space(1) & "四月" & Space(1) & "一日" & vbCrLf              ''現在年日付
    .Selection.typetext Text:=vbCrLf                      
    .Selection.Font.Size = CompanyNameFontSize
    .Selection.typetext Text:=CompanyNameText
  End With
**********************************************************************  
  ''ワードページ設定部分
  With ActiveDocument   
    .Content.Orientation = wdTextOrientationVerticalFarEast
**********************************************************************
↑の部分でエラーが出る。(wdTextOrientationVerticalFarEastが駄目なのかな?)

    With .PageSetup
      .LineNumbering.Active = False
      .Orientation = wdOrientLandscape
      .TopMargin = MillimetersToPoints(50)
      .BottomMargin = MillimetersToPoints(35)
      .LeftMargin = MillimetersToPoints(39)
      .RightMargin = MillimetersToPoints(35)
      .Gutter = MillimetersToPoints(0)
      .HeaderDistance = MillimetersToPoints(15)
      .FooterDistance = MillimetersToPoints(17.5)
      .PageWidth = MillimetersToPoints(297)
      .PageHeight = MillimetersToPoints(210)
      .FirstPageTray = wdPrinterAutomaticSheetFeed
      .OtherPagesTray = wdPrinterDefaultBin
      .SectionStart = wdSectionNewPage
      .OddAndEvenPagesHeaderFooter = False
      .DifferentFirstPageHeaderFooter = False
      .VerticalAlignment = wdAlignVerticalTop
      .SuppressEndnotes = False
      .MirrorMargins = False
      .TwoPagesOnOne = False
      .GutterPos = wdGutterPosLeft
      .LinesPage = 31
      .LayoutMode = wdLayoutModeLineGrid
    End With
  End With
  
  ''印刷部分
  ActiveDocument.PrintOut
       
  Rec = MsgBox("印刷完了を確認後ワードを終了します。", vbQuestion + vbOKOnly)
    
  If Rec = 1 Then
    With ActiveDocument
       ''保存部分
      .SaveAs Filename:="*****省略*****"
      .Application.Quit
    End With
  End If
  
  Set objword = Nothing
1 hits

【22916】実行時エラー462 焼肉 05/3/7(月) 15:32 質問
【22931】Re:実行時エラー462 [名前なし] 05/3/7(月) 23:01 発言
【22932】Re:実行時エラー462 [名前なし] 05/3/7(月) 23:30 発言
【22936】Re:実行時エラー462 G-Luck 05/3/8(火) 8:35 発言
【22939】Re:実行時エラー462 焼肉 05/3/8(火) 9:58 お礼
【22938】Re:実行時エラー462 焼肉 05/3/8(火) 9:45 お礼

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