请问大虾，这代码怎么不能运行？

kkai

代码如下，帮忙改正 谢谢 Dim Bold As Boolean
Dim Italic As Boolean
Dim charSet As Long
Dim PitchandFamily As Long Text = "Arial"
Bold = False
Italic = True
charSet = 0
PitchandFamily = 34 ThisDrawing.ActiveTextStyle.SetFont Text, Bold, Italic, charSet, PitchandFamily
ThisDrawing.Regen acActiveViewport

efan2000

可以啊，可能是Text变量没有声明，而你使用了Option Explicit。