|
皆様始めまして。
さて質問の内容ですが、今エクセルからワードを起動させて、
その中に新規文書を記述させて、ページ設定等も行ってます。
その後にそのワード文書を縦書きにして印刷します。
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
|
|