Makro VBA untuk Mengemas kini Pemformatan Nama Saintifik dalam Dokumen Word

Makro VBA untuk Mengemas kini Pemformatan Nama Saintifik dalam Word

Visual Basic untuk Aplikasi (VBA) untuk Word dan 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

Skrip VBA untuk Mewarisi Kes daripada Data Excel

VBA untuk Excel dan Integrasi 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

Soalan Lazim Mengenai Makro VBA untuk Pemformatan Teks

1. Bagaimanakah saya membuka dialog fail dalam VBA?
2. guna Application.FileDialog(msoFileDialogFilePicker) untuk membuka dialog fail dan membenarkan pengguna memilih fail.
3. Bagaimanakah saya boleh mendapatkan contoh Excel dalam VBA?
4. Anda boleh gunakan GetObject("", "Excel.Application") untuk mendapatkan contoh Excel yang sedia ada atau CreateObject("Excel.Application") untuk mencipta yang baru.
5. Bagaimanakah saya membuka buku kerja Excel dalam VBA?
6. guna xlbook.Workbooks.Open("filePath") untuk membuka buku kerja Excel dari laluan fail yang ditentukan.
7. Apakah cara terbaik untuk membaca julat data daripada Excel dalam VBA?
8. menggunakan xlsheet.Range("A1").CurrentRegion.Value membaca keseluruhan kawasan semasa helaian bermula dari sel A1 ke dalam tatasusunan.
9. Bagaimanakah saya boleh mengalihkan kursor ke permulaan dokumen Word dalam VBA?
10. Perintah itu Selection.HomeKey wdStory mengalihkan pemilihan ke permulaan dokumen.
11. Apakah yang dilakukan oleh Selection.Find.ClearFormatting dalam VBA?
12. Ia mengosongkan sebarang tetapan pemformatan sebelumnya yang digunakan pada operasi cari, memastikan carian baharu.
13. Bagaimanakah saya menukar teks kepada kes yang betul dalam VBA?
14. Menggunakan StrConv(text, vbProperCase) berfungsi untuk menukar teks kepada huruf besar yang betul.
15. Bagaimanakah cara saya menggunakan berbilang pilihan pemformatan pada teks dalam VBA?
16. Anda boleh menggunakan pemformatan yang berbeza seperti italik, tebal dan warna fon menggunakan rng.Font.Italic = True, rng.Font.Bold = True, dan rng.Font.Color = RGB(200, 187, 0).