Q090. フォームマージを行う際に、自動改行して複数行にする方法はありますか。｜FAX/スキャナー対応OCRソフト『TeleForm』

TeleForm Ver.8 以前のユーザー様向け FAQ

［ BasicScript｜フォームマージ ］

Q090. フォームマージを行う際に、自動改行して複数行にする方法はありますか。

バージョン	5、6、7、8	タイプ	すべて	最終更新日	2005年06月02日

---

BasicScriptを活用することにより、実現可能です。

≪Scriptのサンプル≫

たとえば、フォーム上のイメージ領域フィールド「Bikou（備考）」に、テキストを全角5文字で自動改行し、
複数行でマージさせる場合、以下のようなスクリプトを組み込みます。

Sub Form_Merge
　　　 Dim n As Integer, textbuffer As String, i As Integer
　　　 n = Len(Bikou.Text)/5
　　　 If Len(Bikou.Text) Mod 5 = 0 Then
　　　　 n = n-1
　　　 End If
　　　 textbuffer = ""
　　　 For i = 0 To n
　　　 　textbuffer = textbuffer & Mid$(Bikou.Text, 5*i+1,5) & CHR$(13) & CHR$(10)
　　　 Next i
　　　 Bikou.Text = textbuffer
End Sub

→ 赤く太字にした数字は、全角何文字目で改行するかを示しています。


※ご注意※
弊社では、スクリプトのサポートは行っておりません。
上記のスクリプトはあくまでもサンプルです。
お客様の責任範囲でご活用いただきますようお願い致します。
なお、上記サンプルに関してのサポートもお受け致しかねますので、あらかじめご了承下さい。

ページ先頭へ