আমি অনেক ওয়ার্ড (। ডক) ফাইল (প্রক্রিয়াটির স্বয়ংক্রিয়তার উদ্দেশ্যে) প্রতিস্থাপনের উপায় এবং সন্ধানের চেষ্টা করছি।
আমি এখনও অবধি যে সফ্টওয়্যারটি পেয়েছি তা কেবল আমাকে অনুসন্ধান করতে দেয় তবে প্রতিস্থাপন করে না।
আমি কীভাবে ওয়ার্ড দিয়ে এটি করতে পারি?
উত্তর:
আপনি ভিবিএ অনুসন্ধান এবং প্রতিস্থাপন (ক্যাশেড লিঙ্ক) চেষ্টা করতে পারেন ।
ভিবিএ ফাইন্ড এন্ড রিপ্লেস © একক ব্যবহারকারীর "ফাইন্ড" এবং "রিপ্লেজ" ভেরিয়েবল জোড়া, বা "ফাইন্ড" এবং "রিপ্লেসমেন্ট" এর একটি সংজ্ঞায়িত তালিকা ব্যবহার করে নথিতে (বা নথি সংগ্রহের) যে কোনও জায়গায় পাঠ্য সন্ধান এবং প্রতিস্থাপনের জন্য একটি পদ্ধতি সরবরাহ করে জোড়া। এটি "স্বয়ংক্রিয় পাঠ্য" বা "বিল্ডিং ব্লক" এন্ট্রি সংজ্ঞায়িত কোনও ব্যবহারকারীর সাথে পাওয়া পাঠ্যকে প্রতিস্থাপন এবং প্রতিস্থাপনের জন্য একটি পদ্ধতিও সরবরাহ করে।
প্রদত্ত রুট ফোল্ডারের অধীনে একাধিক ফোল্ডারে অবস্থিত একাধিক এমএস ওয়ার্ড ফাইলগুলিতে একাধিক সাধারণ এবং ওয়াইল্ডকার্ড-ভিত্তিক প্রতিস্থাপন সম্পাদনের উদ্দেশ্যে, আমি নিম্নলিখিত ভিবিএ ম্যাক্রো তৈরি করেছি। এটি ব্যবহার করতে, আপনার নিম্নলিখিত ভেরিয়েবলগুলির (কনস্ট্যান্ট) সামগ্রী পরিবর্তন করতে পারেন:
আপনি এটি দরকারী দেখতে পাবেন :-)
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
এটি কি মাইক্রোসফ্ট ওয়ার্ডে করা যায় না?
এটি আপনার সম্পাদনা মেনুতে (ওয়ার্ড 2003) বা হোম ট্যাব / সম্পাদনা বিভাগ (ওয়ার্ড 2007)
যদি আপনি মাইক্রোসফ্ট ওয়ার্ডের মালিক না হন এবং একটি নিখরচায় বিকল্পের সন্ধান করছেন যা আপনাকে সহায়তা করবে, ওপেনঅফিস.আরোগ্রাফি চেষ্টা করুন ।
আমি মনে করি না আপনি যদি এই প্রক্রিয়াটি স্বয়ংক্রিয় করার কোনও উপায় অনুসন্ধান করেন তবে এটি আপনাকে সহায়তা করবে।
নোটপ্যাড ++ "ফাইলগুলিতে অনুসন্ধান করুন" ব্যবহার করে এটি করতে সক্ষম
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