老師，Word版本不一樣，rectangles返回的值不一樣嗎？Word1007返回的是一頁，不是一頁中的一段
  學(xué)習(xí)達(dá)人
|
苦澀的酒
展開
|
 學(xué)習(xí)達(dá)人
|
najieguo
展開
老師這段代碼不能用，報(bào)錯(cuò)，是什么原因
Sub test1（）
Dim rec As Rectangle, l As Line, intNum As Integer
On Error GoTo 100
For Each rec In ThisDocument.Windows（1）.Panes（1）.Pages（2）.Selection.ShapeRange（1）
For Each l In rec.Lines
intNum = intNum + 1
If intNum Mod 2 Then
l.Range.Font.ColorIndex = wdBlue
End If
Next
Next |
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。