ماكرو VBA لتحديث تنسيق الأسماء العلمية في مستندات Word

ماكرو VBA لتحديث تنسيق الأسماء العلمية في Word

Visual Basic للتطبيقات (VBA) لبرنامجي Word وExcel

Sub format_scientific_names()
    Dim xlapp As Object
    Dim xlbook As Object
    Dim xlsheet As Object
    Dim myarray As Variant
    Dim FD As FileDialog
    Dim strSource As String
    Dim i As Long, lognum As Long
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        .Title = "Select the workbook that contains the terms to be italicized"
        .Filters.Clear
        .Filters.Add "Excel Workbooks", "*.xlsx"
        .AllowMultiSelect = False
        If .Show = -1 Then
            strSource = .SelectedItems(1)
        Else
            MsgBox "You did not select the workbook that contains the data"
            Exit Sub
        End If
    End With
    On Error Resume Next
    Set xlapp = GetObject("", "Excel.Application")
    If Err Then
        bstartApp = True
        Set xlapp = CreateObject("Excel.Application")
    End If
    On Error GoTo 0
    Set xlbook = xlapp.Workbooks.Open(strSource)
    Set xlsheet = xlbook.Worksheets(1)
    myarray = xlsheet.Range("A1").CurrentRegion.Value
    If bstartApp = True Then xlapp.Quit
    Set xlapp = Nothing
    Set xlbook = Nothing
    Set xlsheet = Nothing
    For i = LBound(myarray) To UBound(myarray)
        Selection.HomeKey wdStory
        Selection.Find.ClearFormatting
        With Selection.Find
            Do While .Execute(FindText:=myarray(i, 1), Forward:=True, _
            MatchWildcards:=True, Wrap:=wdFindStop, MatchCase:=False) = True
                Set rng = Selection.Range
                Selection.Collapse wdCollapseEnd
                rng.Font.Italic = True
                rng.Font.Bold = True
                rng.Font.Color = RGB(200, 187, 0)
                rng.Font.Name = "Times New Roman"
                rng.Text = StrConv(rng.Text, vbProperCase)
            Loop
        End With
    Next i
End Sub

برنامج VBA Script لوراثة الحالة من بيانات Excel

VBA للتكامل بين Excel وWord

Sub format_scientific_names_inherit_case()
    Dim xlapp As Object
    Dim xlbook As Object
    Dim xlsheet As Object
    Dim myarray As Variant
    Dim FD As FileDialog
    Dim strSource As String
    Dim i As Long, lognum As Long
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        .Title = "Select the workbook that contains the terms to be italicized"
        .Filters.Clear
        .Filters.Add "Excel Workbooks", "*.xlsx"
        .AllowMultiSelect = False
        If .Show = -1 Then
            strSource = .SelectedItems(1)
        Else
            MsgBox "You did not select the workbook that contains the data"
            Exit Sub
        End If
    End With
    On Error Resume Next
    Set xlapp = GetObject("", "Excel.Application")
    If Err Then
        bstartApp = True
        Set xlapp = CreateObject("Excel.Application")
    End If
    On Error GoTo 0
    Set xlbook = xlapp.Workbooks.Open(strSource)
    Set xlsheet = xlbook.Worksheets(1)
    myarray = xlsheet.Range("A1").CurrentRegion.Value
    If bstartApp = True Then xlapp.Quit
    Set xlapp = Nothing
    Set xlbook = Nothing
    Set xlsheet = Nothing
    For i = LBound(myarray) To UBound(myarray)
        Selection.HomeKey wdStory
        Selection.Find.ClearFormatting
        With Selection.Find
            Do While .Execute(FindText:=myarray(i, 1), Forward:=True, _
            MatchWildcards:=True, Wrap:=wdFindStop, MatchCase:=False) = True
                Set rng = Selection.Range
                Selection.Collapse wdCollapseEnd
                rng.Text = myarray(i, 1)
                rng.Font.Italic = True
                rng.Font.Bold = True
                rng.Font.Color = RGB(200, 187, 0)
                rng.Font.Name = "Times New Roman"
            Loop
        End With
    Next i
End Sub

أسئلة شائعة حول وحدات ماكرو VBA لتنسيق النص

1. كيف يمكنني فتح مربع حوار ملف في VBA؟
2. يستخدم Application.FileDialog(msoFileDialogFilePicker) لفتح مربع حوار ملف والسماح للمستخدمين بتحديد ملف.
3. كيف يمكنني الحصول على مثيل Excel في VBA؟
4. يمكنك استخدام GetObject("", "Excel.Application") للحصول على مثيل موجود من Excel أو CreateObject("Excel.Application") لإنشاء واحدة جديدة.
5. كيف يمكنني فتح مصنف Excel في VBA؟
6. يستخدم xlbook.Workbooks.Open("filePath") لفتح مصنف Excel من مسار الملف المحدد.
7. ما هي أفضل طريقة لقراءة مجموعة من البيانات من Excel في VBA؟
8. استخدام xlsheet.Range("A1").CurrentRegion.Value يقرأ المنطقة الحالية بأكملها من الورقة بدءًا من الخلية A1 إلى صفيف.
9. كيف يمكنني نقل المؤشر إلى بداية مستند Word في VBA؟
10. الامر Selection.HomeKey wdStory ينقل التحديد إلى بداية المستند.
11. ماذا يفعل Selection.Find.ClearFormatting في VBA؟
12. فهو يمسح أي إعدادات تنسيق سابقة تم تطبيقها على عملية البحث، مما يضمن إجراء بحث جديد.
13. كيف يمكنني تغيير النص إلى الحالة المناسبة في VBA؟
14. استخدم ال StrConv(text, vbProperCase) وظيفة لتحويل النص إلى حالة مناسبة.
15. كيف يمكنني تطبيق خيارات التنسيق المتعددة على النص في VBA؟
16. يمكنك تطبيق تنسيقات مختلفة مثل اللون المائل والغامق ولون الخط rng.Font.Italic = True, rng.Font.Bold = True، و rng.Font.Color = RGB(200, 187, 0).