जवाबों:
आप VBA ढूँढें और बदलें (कैश्ड लिंक) की कोशिश कर सकते हैं ।
VBA खोजें और बदलें © एक दस्तावेज़ (या दस्तावेजों के संग्रह) में कहीं भी पाठ खोजने और बदलने के लिए एक विधि प्रदान करता है, जो एकल उपयोगकर्ता "खोज" और "बदलें" चर जोड़े या "खोज" और "प्रतिस्थापित" की एक उपयोगकर्ता परिभाषित सूची का उपयोग करता है। जोड़े। यह टेक्स्ट को खोजने के लिए एक विधि प्रदान करता है और पाए गए टेक्स्ट को उपयोगकर्ता द्वारा परिभाषित "ऑटोटेक्स्ट" या "बिल्डिंग ब्लॉक" प्रविष्टि के साथ बदल देता है।
दिए गए रूट फ़ोल्डर के तहत कई फ़ोल्डरों में स्थित कई एमएस वर्ड फ़ाइलों में कई सामान्य और वाइल्डकार्ड-आधारित प्रतिस्थापन निष्पादित करने के उद्देश्य से, मैंने VBA मैक्रो के बाद बनाया है। इसका उपयोग करने के लिए, आपके पास निम्नलिखित चर (स्थिरांक) की सामग्री है:
हो सकता है कि आप इसे उपयोगी पाएंगे :-)
Sub GlobalTextReplacement()
' Root under which all manuals are stored
Dim rootPath As String
rootPath = "c:\Data\Manuals\"
' Find and replace text for wildcard replacement. Performed first.
Dim findTextsWild() As Variant, replaceTextsWild() As Variant
findTextsWild = Array("[ ]{2;}", "[cC]onfiguration[/ ]@[pP]olicy [rR]epository", "[sS]ervlet[- ]@[fF]ilter")
replaceTextsWild = Array(" ", "Configuration/Policy Repository", "Servlet-Filter")
' Find and replace text for normal case insensitive replacement. Performed second.
Dim findTexts() As Variant, replaceTexts() As Variant
findTexts = Array("DirX Access", "Policy Repository", "User Repository", "Servlet", "servletfilter", "SAML assertion", "DirX Access Server", "DirX Access Manager", "Deployment Manager", "Policy Manager", "Client SDK", "^p ", " ^p")
replaceTexts = Array("DirX Access", "Policy Repository", "User Repository", "Servlet", "Servlet-Filter", "SAML assertion", "DirX Access Server", "DirX Access Manager", "Deployment Manager", "Policy Manager", "Client SDK", "^p", "^p")
' Main code
Application.ScreenUpdating = False
Dim dirNames(20) As String
Dim dirNamesCount As Integer
dirNamesCount = 0
Dim dirName As String
dirName = Dir$(rootPath & "*", vbDirectory)
Do Until LenB(dirName) = 0
Dim dirPath As String
dirPath = rootPath & dirName
If ((GetAttr(dirPath) And vbDirectory) = vbDirectory) And (dirName <> ".") And (dirName <> "..") Then
dirNamesCount = dirNamesCount + 1
dirNames(dirNamesCount) = dirPath & "\"
End If
dirName = Dir$
Loop
Do While dirNamesCount > 0
Dim fileName As String
dirName = dirNames(dirNamesCount)
dirNamesCount = dirNamesCount - 1
fileName = Dir$(dirName & "*.doc", vbDirectory)
Do Until LenB(fileName) = 0
Dim filePath As String
filePath = dirName & fileName
fileName = Dir$
Dim document As document
Set document = Documents.Open(filePath)
document.TrackRevisions = True
document.Select
Dim i As Integer, maxIndex As Integer
maxIndex = UBound(findTextsWild)
For i = LBound(findTextsWild) To maxIndex
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = findTextsWild(i)
.Replacement.Text = replaceTextsWild(i)
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue, MatchWildcards:=True
End With
Next
maxIndex = UBound(findTexts)
For i = LBound(findTexts) To maxIndex
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = findTexts(i)
.Replacement.Text = replaceTexts(i)
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue, MatchCase:=False, MatchWildcards:=False
End With
Next
document.Save
document.Close
Loop
Loop
Application.ScreenUpdating = True
End Sub
क्या यह Microsoft Word में ही नहीं किया जा सकता है?
अपने संपादन मेनू में (वर्ड 2003) या होम टैब / संपादन अनुभाग (शब्द 2007)
यदि आप Microsoft Word के मालिक नहीं हैं और एक मुफ्त विकल्प की तलाश कर रहे हैं जो आपकी मदद करेगा, OpenOffice.org पर प्रयास करें ।
मुझे नहीं लगता कि यह आपकी मदद करेगा यदि आप इस प्रक्रिया को स्वचालित करने का एक तरीका खोज रहे हैं।
नोटपैड ++ "फाइल्स फाइंड" का उपयोग करके ऐसा करने में सक्षम है
Option Explicit
Public Sub BatchReplaceAll()
Dim FirstLoop As Boolean
Dim myFile As String
Dim PathToUse As String
Dim myDoc As Document
Dim Response As Long
PathToUse = ActiveDocument.Path
On Error Resume Next
Documents.Close SaveChanges:=wdPromptToSaveChanges
FirstLoop = True
myFile = Dir$(PathToUse & "\*.doc*")
While myFile <> ""
Set myDoc = Documents.Open(PathToUse & "\" & myFile)
If FirstLoop Then
Application.Dialogs(wdDialogEditReplace).Show
FirstLoop = False
Response = MsgBox("Do you want to process the rest of the files in this folder", vbYesNo)
If Response = vbNo Then Exit Sub
Else
With Dialogs(wdDialogEditReplace)
.ReplaceAll = 1
.Execute
End With
End If
myDoc.Close SaveChanges:=wdSaveChanges
myFile = Dir$()
Wend
End Sub