利用Excel查找替换Word文本框里的内容

来源：互联网发布：淘宝苏宁买手机可靠吗编辑：程序博客网时间：2024/05/19 04:03

利用Excel查找替换Word文本框里的内容

一般情况下，利用Excel的Vba直接查找是忽略查找Word文本框里内容的，使用以下子程序，可以实现这一功能。

    Sub ReplaceInTextBox(ByVal vFind As String, ByVal vReplace As String)    Dim ShapesCount As Integer    Dim tmpString As String    ShapesCount = WordApp.ActiveDocument.Shapes.Count      If ShapesCount > 0 Then       For i = 1 To ShapesCount        If WordApp.ActiveDocument.Shapes(i).Type = 17 Then         tmpString = WordApp.ActiveDocument.Shapes(i).TextFrame.TextRange.Text         WordApp.ActiveDocument.Shapes(i).TextFrame.TextRange.Text = Replace(tmpString, vFind, vReplace)        End If       Next      End If    End Sub

事先需引用 Word 11.0 动态库
事先需要的定义如下：
Dim WordApp as Word.Application

【转】http://club.excelhome.net/thread-572297-1-1.html

0 0