Office中国论坛/Access中国论坛

标题: [求助]自動換行用VBA換行/取消換行同一按鈕問題(請幫解決)問題以解決 [打印本页]

作者: joyark 时间: 2005-4-29 21:36
标题: [求助]自動換行用VBA換行/取消換行同一按鈕問題(請幫解決)問題以解決
自動換行用VBA換行/取消換行同一按鈕問題(請幫解決)

Sub xs()
Selection.WrapText = True '设置自动换行
End Sub
Sub yc()
Selection.WrapText = False '取消自动换行
End Sub
Sub Macro1()
If Selection.WrapText = False Then
Call xs
Else
Call yc
End If
End Sub

[此贴子已经被作者于2005-4-29 17:36:24编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)