投稿日 | : 2004/12/24(Fri) 15:20 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^4: 10.5ポイント以下の設定でエラー |
マクロを取って見れば解るのですがフォントの設定の仕方が違うのでは
下記のように変更すればエラーは発生しないようですが。
'プロジェクト→参照設定でMicrosoft Word *.* Object Library にチェックを入れておいて下さい
Private Sub Command1_Click()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Add
wdApp.Visible = True
With wdDoc.Styles(wdStyleNormal).Font
.NameFarEast = "MS 明朝"
.NameAscii = "Century"
.NameOther = "Century"
.Name = "Century"
.Size = 8
End With
With wdDoc.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = MillimetersToPoints(25) '25
.BottomMargin = MillimetersToPoints(20) '20
.LeftMargin = MillimetersToPoints(20) '20
.RightMargin = MillimetersToPoints(20) '20
.Gutter = MillimetersToPoints(0)
.HeaderDistance = MillimetersToPoints(15)
.FooterDistance = MillimetersToPoints(17.5)
.PageWidth = MillimetersToPoints(210) 'A4縦
.PageHeight = MillimetersToPoints(297)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
.CharsLine = 59 'NumChar
.LinesPage = 58 'NumRaw
.LayoutMode = wdLayoutModeGrid 'wdLayoutModeDefault
End With
wdApp.Quit SaveChanges:=wdDoNotSaveChanges
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub
> エラーが発生するのが確認できる最低限のコードを投稿して下さい。
> (ペーストするだけで動く)
せっかく投稿してもらっても、そのコードをペーストしても、そのまま動かないでしょう
それに関係ない部分は削除するなりしてエラーの発生が確認できる最低限のコードに
して、ペーストしてCommand ボタンを押したらエラーが確認できるようにして投稿
しないと、誰も試してくれないかと思いますよ。
又、エラーが発生する最低限のコードに要らない部分を削除(コメントアウト)する
過程で原因がつかめる場合もありますよ。
上記なら誰でも試す事ができるでしょう。