VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2004/12/24(Fri) 11:47 |
| 投稿者 | ： ごん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 10.5ポイント以下の設定でエラー |
> ページ設定で１ページに表示する行数を決めていれば、自分で表を書いているなら
> 何行目から何行目までに書いているかも解るはずだから１ページに表示できるか
> 出来ないか解るかと思いますが。
> コードについてはマクロ取ってそのマクロを見て見るとかすればどうでしょう。
ご指導の件、なるほどと思ってやってみたのですが以下の条件の時にエラーが起こります。
DocWs.Content.Font.Name = "ＭＳ 明朝"'Xfont_name
DocWs.Content.Font.Size = 8'Xfont_size
With DocWs.Sections(1).PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = MillimetersToPoints(lparam(3)) '25
.BottomMargin = MillimetersToPoints(lparam(4)) '20
.LeftMargin = MillimetersToPoints(lparam(1)) '20
.RightMargin = MillimetersToPoints(lparam(2)) '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
ワードを表示状態で見てみると、画面表示は"ＭＳ 明朝",8になって
いますが、ページ設定は、"ＭＳ 明朝",10.5となっており、エラーも
.CharsLine が49となる為、”値が有効範囲を超えています”が出ます。
引き続き、ワード上のページ設定で、"ＭＳ 明朝",8にして、文字数、
行数を、66,65とした後でＶＢを継続動作させると正常動作します。
ページ設定が生かされていないので、念のため先に以下を加えても
同じエラーが起きます。
With DocWs.Styles(1).Font
.NameFarEast = Xfont_name
.NameAscii = "Century"
.NameOther = "Century"
.Name = "Century"
.Size = Xfont_size
End With
何か重要な設定が抜けているのでしょうか？
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）