作成者	カテゴリ	返答の対象		公開
はんげつ 09/11/2001 10:04 PM		改行を削除する方法について

Sasakiさんのプログラムを少し改造して出来ました！

Sasakiさん、考さん、ナカダさん、誠にありがとうございました。
おおきに！助かりました！


Sub Exiting(Source As Field)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim eval As Variant
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Dim nmo As String

nmo = doc.フィールド名(0)
M = ""
y = Trim(nmo)
L = Len(y)
For i = 1 To L
d = Mid(y,i,1)
If d = Chr(10) Or d = Chr(13) Then
d =""
End If
If d <> "" Then
M = M & d
End If
Next
doc.フィールド名 = m

Call doc.Save(True, False)
End Sub