请高手帮帮忙？？急！！！

likedanni

我想在word中通过vba改变excel某个单元中的字体？

如（Range("A3:A5")为bac，我想把b变为上标，c变为下标）请问怎么弄？谢谢！

-------------------------------------------------------------------------------------------------------------------------

我知道 Set MyXl = CreateObject("F:\test.xls") MyXl.sheets(1).Range("A3:A3").Select

------------------------------------------------------------------------------------------------------------------------- 然后就不清楚了.....

守柔

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-5 17:39:27 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0003^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example() Dim myXl As Object, i As Variant, myRange As Variant Set myXl = CreateObject("E:\sample.xls") Set myRange = myXl.sheets(1).Range("A3:A5") For Each i In myRange i.Characters(1, 1).Font.Superscript = True i.Characters(3, 1).Font.Subscript = True Next myXl.Close True Set myXl = Nothing End Sub '----------------------

likedanni

谢谢！