Question

EXCEL 宏代码 运行错误424，这一句是不是有问题。 For Each R_Character In ActiveDocument.Characters？

For Each R_Character In ActiveDocument.Characters

VBA.Randomize

R_Character.Font.Name = FontName(Int(VBA.Rnd * 3) + 1)

R_Character.Font.Size = FontSize(Int(VBA.Rnd * 5) + 1)

R_Character.Font.Position = Int(VBA.Rnd * 3) + 1

R_Character.Font.Spacing = 0

Next

Application.ScreenUpdating = True

For Each Cur_Paragraph In ActiveDocument.Paragraphs

Cur_Paragraph.LineSpacing = ParagraphSpace(Int(VBA.Rnd * 5) + 1)

Next
Application.ScreenUpdating = True

End Sub

Answer 1

运出错代码在哪行

追问

就是for each这一行显示黄色，这是word上的宏，直接用在excle，就用不了了。

标题上这句显示黄色

追答

把全部代码附上

追问

具体是这样的，这个码在Word可以直接用，在Excel里面就不行了。

追答

word代码怎能在Excel用，要用达到相同功能也要改代码

追问

具体如何改呀，我以为差不多的。

追答

你用在Excel做什么？

追问

字体修改

追答

什么字体修改截图说明