[求助]自動換行用VBA換行/取消換行同一按鈕問題(請幫解決)問題以解決

joyark

自動換行用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编辑过]