| 投稿日 | ： 2004/04/13(Tue) 16:48 |
| 投稿者 | ： うしぱ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: 複数行入力したテキストボックスの内容をWordのフォームフィールドでも複数行表示させたい |
うしぱです。
これ 様＞
早速のご教授、ありがとうございます。
> VB + Excelでみてみましたが
> Excelのオートシェイプのテキストの時は
> 改行は LF(Chr(10)) になっているので
> VBからWordへ送り込むときに CRLF を LFに
> 置き換えて送ってみてはいかがでしょう？
申し訳ないですが、頂戴した情報を元に試してみましたが
現象は変わりませんでした。
（ただしWord転送時に半角２文字分空いていた隙間が
CRを削った分1文字分になりましたが。）
また逆にLFを削った場合でも同様です。
ちなみに次のような方法でCRを削りました。
----------------
Dim sWord As String
Dim sBuffer As String
Dim iLen As Integer
Dim iLoop As Integer
sBuffer = ""
iLen = Len(Text1.text)
For iLoop = 1 To iLen
sWord = Mid(Text1.text, iLoop, 1)
If sWord <> Chr(13) Then
sBuffer = sBuffer + sWord
End If
Next iLoop
WdApp.ActiveDocument.FormFields(sBookmark).Result = sBuffer
----------------
もう少しいろいろ試してみます。
あらためて、情報提供ありがとうございました。