在Excel中制作一个宏,替换另一个word中所有的lxp为1或者。

发布网友发布时间：2022-05-25 04:34

共3个回答

热心网友时间：2024-11-24 12:43

Sub test()
' 引用 Microsoft Word ××.0 Library
Application.ScreenUpdating = False
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
Set wdDoc = wdApp.Documents.Open("Word文件路径名")
With wdDoc.Content.Find
.Text = "lxp"
.Replacement.Text = "。"
.Execute Replace:=wdReplaceAll
End With
Msgbox "OK"
End Sub

热心网友时间：2024-11-24 12:44

http://wenku.baidu.com/view/456f9420af45b307e871970c.html

热心网友时间：2024-11-24 12:44

到excelhome找找解决办法

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com