请问如何在光标选取范围内执行宏

reallywan

如题，新人完全不懂如何处理，才能让这段宏变成光标选取范围内执行，盼大神详细解答，不胜感激

Sub RandVBA()
    Dim R_Character As Range
    Dim myFontSize As Single
Application.ScreenUpdating = False
For Each R_Character In ActiveDocument.Characters
    VBA.Randomize
        myFontSize = Choose(Int(VBA.Rnd * 5) + 1, "14", "14.5", "15", "15.5", "16")
        R_Character.Font.Size = myFontSize
        R_Character.Font.Position = Int(VBA.Rnd * 3) + 1
        R_Character.Font.Spacing = Int(VBA.Rnd * 3) + 1
    Next
    Application.ScreenUpdating = True
End Sub

reallywan

有沒有大神能指導一二的？謝謝

ming0018

不明白你的需求

dafanshu1

把 ActiveDocument 换作 Selection 即可。

reallywan

dafanshu1 发表于 2018-4-23 11:35
把 ActiveDocument 换作 Selection 即可。

感謝答復，我試試看

reallywan

dafanshu1 发表于 2018-4-23 11:35
把 ActiveDocument 换作 Selection 即可。

萬分感謝，實測有效

reallywan

dafanshu1 发表于 2018-4-23 11:35
把 ActiveDocument 换作 Selection 即可。

再勞煩大神一下，如果讓這個宏在excel選定的單元格中執行，要如何改呢？

dafanshu1

有些命令是不能在excel里使用的吧，如字符位置Font.Position，字符间距Font.Spacing。

wdpfox

学习了，感谢分享！