Question

VB 以下这段VBA代码怎么转成VB代码？

Sub 宏1()
' 宏1 宏
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "123"
.Replacement.Text = "456"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
其实就是在word里搜索“123”替换成“456”，谢谢。

Answer 1

我看了一下你的代码，若在VB里运行发现就差一个Selection对象与word对象之间的联系，也就是说：你需要自己定义并获取这Word对象，再定义Selection对象，再 set selection=Word.XXXXXX
然后再运行你下面的代码，试一下，若不行你再问我。
若觉得可以，请给分，谢谢！

追问

set selection=Word.XXXXXX，这里xxx是指word文件名吗？比如：生产.doc，是这样吗？

追答

Dim oWordTemp As Object

Set oWordTemp = Nothing
Set oWordTemp = GetObject(, "Word.Application") '-------获取word对象
oWordTemp.Visible = True '显示Word软件界面
'----------
Dim MySel As Word.Selection
Dim MyDoc As Word.Document

Set MyDoc = oWordTemp.Documents.Open(pathTemp) '按照Word文档的路径打开此文件
Set MySel = oWordTemp.Application.Selection '获取此word文档的Selection对象

Answer 2

病情分析：
您好！您所说的航天东方红牌航力片是国家批准的一种保健食品，主要原料为碳酸钙、维生素D3、水解胶原蛋白、水苏糖、预胶化淀粉、硬脂酸镁、羟丙甲纤维素、聚乙二醇、聚维酮K30。
指导意见：
该产品具有增加骨密度的保健功能，适于中老年人服用。但本品不能代替药物；本品添加了营养素，与同类营养素补充剂同时食用时不宜超过推荐量。

可以，我试过，上升了不少。