哪位高手知道如何用VBA在WORD中把全部H2变成H2(2是下标)

syj123 · 发表于 2006-3-24 23:11

哪位高手知道如何用VBA在WORD中把全部H2变成H2(2是下标)？先谢了！

守柔 · 发表于 2006-3-25 06:19

可以使用两次查找与替换进行，方便很多。

以下方法使用一次替换。

Option Explicit
Sub Example()
Dim myRange As Range
With ActiveDocument
Set myRange = .Range(.Content.End - 1, .Content.End - 1)
myRange.InsertAfter "H2"
myRange.Characters.Last.Font.Subscript = True
myRange.Cut
With .Content.Find
.Text = "H2"
.ClearFormatting
.Replacement.ClearFormatting
.Execute REPLACEWITH:="^c", Replace:=wdReplaceAll
End With
End With
End Sub

十年磨一剑 · 发表于 2006-3-25 08:51

学习ing

[此贴子已经被作者于2006-3-25 8:51:46编辑过]

syj123 · 发表于 2006-3-25 23:00

谢谢解答

零飘渺 · 发表于 2006-4-17 16:36

怎么使用啊？

		自动登录	找回密码
密码			免费注册