| 投稿日 | ： 2004/04/14(Wed) 14:23 |
| 投稿者 | ： うしぱ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: 複数行入力したテキストボックスの内容をWordのフォームフィールドでも複数行表示させたい |
花ちゃん 様＞
ご教授ありがとうございます。
頂戴した方法、確認させていただきました。
これはテキストボックスコントロールを使用した場合ですね。
私が使っていたのはテキストボックスフォームフィールドです。
（フォームツールバーの一番左のボタンで配置するもの）
＃紛らわしくて申し訳ございません。
本件について、頂戴したサンプルを参考に
テキストボックスフォームフィールドでの再現サンプルを作成してみたところ、
普通にフォームフィールドを配置した場合はちゃんと改行がなされました。
しかし、表組みのセル内にフォームフィールドを配置したところ、
今度は改行がされませんでした。
（テキストボックスコントロールではこういうことはおきませんでした。）
-------------------------------------------------------
＜VBのテキストボックス内の文字列＞
あいうえお
かきくけこ
さしすせそ
＜フォームを普通に配置した場合＞
あいうえお
かきくけこ ←改行される
さしすせそ
＜フォームを表組みセル内に配置した場合＞
−−−−−−−−−−−−−−−−−−−
｜あいうえお かきくけこ さしすせそ｜ ←改行されない
−−−−−−−−−−−−−−−−−−−
-------------------------------------------------------
以下に再現（？）コードを記述します。
-----------------------------------------
Private Sub Form_Load()
Text1.Text = "あいうえお" & vbCrLf & "かきくけこ" & vbCrLf & _
"さしすせそ"
End Sub
Private Sub Command1_Click()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open("C:\Test2.doc")
wdApp.Visible = True
wdDoc.FormFields("FormTest").Result = Text1.Text
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub
-----------------------------------------
＃Word文書にはテキストボックスフォームフィールドを配置し、
プロパティでブックマーク名を"FormTest"に変更しました。
今も対応方法を検討していますが、
花ちゃん様から教えていただいた方法で
想定していた動作ができそうなので、これでやってみます。
ありがとうございました。