level 1
桥梁专家维克多
楼主
在microsoft word中有内嵌的basic编译器（打开word文档 按Alt+F11就进如编程界面 然后点“视图” 在下拉菜单中点“ 代码窗口” ） 用来处理文档
这是一个大小写转换程序 我想把大写转小写 小写转大写 但是运行后发现 小写能转为大写大写变成了乱码 问题在哪里？
Public Sub 字母转换()
WN = ActiveDocument.Characters.Count
Dim i As Integer
For i = 1 To WNIf Documents("文档1").Characters(i) >= A And Documents("文档1").Characters(i) <= Z Then
Documents("文档1").Characters(i) = Chr(Asc(Documents("文档1").Characters(i)) + 32)
Else
Documents("文档1").Characters(i) = Chr(Asc(Documents("文档1").Characters(i)) - 32)
End If
Next i
End Sub
2012年04月22日 06点04分
1
这是一个大小写转换程序 我想把大写转小写 小写转大写 但是运行后发现 小写能转为大写大写变成了乱码 问题在哪里？
Public Sub 字母转换()
WN = ActiveDocument.Characters.Count
Dim i As Integer
For i = 1 To WNIf Documents("文档1").Characters(i) >= A And Documents("文档1").Characters(i) <= Z Then
Documents("文档1").Characters(i) = Chr(Asc(Documents("文档1").Characters(i)) + 32)
Else
Documents("文档1").Characters(i) = Chr(Asc(Documents("文档1").Characters(i)) - 32)
End If
Next i
End Sub