أرشيف منتدى الفصيح - 1

الْمُسْتَبْدِلُ الآلِيُّ أَوْ الْمُشَكِّلُ الآلِيُّ

ـ[أبوالمنذر]ــــــــ[12 - 11 - 2006, 04:39 م]ـ

:::

الْمُسْتَبْدِلُ الآلِيُّ أَوْ الْمُشَكِّلُ الآلِيُّ

ــــــــــــــــ

عِبَارَةٌ عَنْ مَاكْرُو يَتِمُّ إِضَافَتُهُ إِلَى word ، وَظِيفَتُهُ: الْقِيَامُ بِعَمَلِيَةِ اسْتِبْدَالٍ آلِيٍّ لِمَجْمُوعَةٍ مِنَ الْكَلِمَاتِ الْغَيْرِ مَشْكُولَةً بِنَظَائِرِهَا الْمَشْكُولَةِ فِي وَقْتٍ وَاحِدٍ، وَذَلِكَ مِنْ خَلالِ تَغْذِيَتِهِ بِقَاعِدَة بَيَانَاتٍ خَارِجِيَّةٍ يِتَمُّ تَجْهِيزَهَا بِاسْتِخْدَامِ ال access .

Dim doc As Document

Dim db As DAO.Database

Dim rs As Recordset

Dim f As FileDialog

Set f = Application.FileDialog(msoFileDialogFilePicker)

f.Show

If f.SelectedItems(1) = "" Then GoTo l

Set doc = Application.ActiveDocument

Set db = OpenDatabase(Name: =f.SelectedItems(1))

Set rs = db.OpenRecordset(Name: ="Table1")

While Not rs.EOF

With doc.Content.Find

.ClearFormatting

.Text = rs(0)

With .Replacement

.ClearFormatting

.Text = rs(1)

End With

.Execute Replace: =wdReplaceAll, _

Format: =True, MatchCase: =True, _

MatchWholeWord: =True

End With

rs.MoveNext

Wend

rs.Close

db.Close

Exit Sub

l:

ثُمَّ إِلَيْكَ طَرِيقَةَ تَرْكِيبَ الْمَاكْرُو.