| |
いつも、このサイトには大変お世話になっておりますm(_ _)m
今、苦情内容のデータベースなんぞを作っておりまして、どうしても行き詰ってしまいました。
データベース自体は、ＡＤＯを使って、ＭＤＢに保存したものを、適宜ＥｘｃｅｌＶＢＡから検索して、表示・印刷をするという、比較的シンプルなものなんですが、苦情内容の表示がどうしてもうまくいきません。
というのも、苦情内容のデータは、処理までを含むレポートのようなもので、数行程度のものからＡ４用紙に数枚にわたるものまであります。
これを印刷しようと思うと、どうしてもセルを結合させたりして調整する必要があるのですが、印字される位置より下にも定型の書式を入れたいので、セルの縦幅を調整する必要があります。
＜書式のイメージ＞
-----------------------------
表題などの表記
-----------------------------
苦情内容のレポート
（ここが長文）
-----------------------------
その他の内容の表記
-----------------------------
（最終的な印字結果は、数枚にわたっても差し支えない。）
まず、【３８０５１】の記事を参考にしたのですが、セルの縦幅の最大値（５４５ピクセル？）を超える場合には対応ができず、断念。
そこで、ＷＯＲＤに表示させる方法を検討したのですが。【４０３１３】の記事の方法でも、貼り付ける文字数が２５０（なぜか２５０）を超えるとエラーが出てしまいます。
仮にKenmeiの内容が、長文レポートだとして、
> .Replacement.ClearFormatting
> .Text = "＜件名＞"
> .Replacement.Text = Kenmei
> .Execute Replace:=wdReplaceAll
の部分を、
.ClearFormatting
.Text = "＜件名＞"
If Len(Kenmei) > 250 Then
For i = 0 To Int(Len(Kenmei) / 250) + 1
Kenmei2 = Mid(Kenmei, 250 * i + 1, 250) & "＜件名＞"
.Replacement.Text = Kenmei2 '""
.Execute Replace:=wdReplaceAll
Next
Kenmei = ""
End If
.Replacement.Text = Kenmei
.Execute Replace:=wdReplaceAll
などと、変えてみたのですが、なんとなく迂遠な気がするのと、
この方法では、改行が再現されていないことに気がつきました。
どなたか、お知恵をお貸しいただけないでしょうか？
|
|
momo
- 06/7/24(月) 13:35 -
