Macro VBA để cập nhật định dạng tên khoa học trong tài liệu Word

Macro VBA để cập nhật định dạng tên khoa học trong Word

Visual Basic cho Ứng dụng (VBA) cho Word và 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

Tập lệnh VBA để kế thừa kiểu chữ từ dữ liệu Excel

Tích hợp VBA cho Excel và 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

Các câu hỏi thường gặp về Macro VBA để định dạng văn bản

1. Làm cách nào để mở hộp thoại tệp trong VBA?
2. Sử dụng Application.FileDialog(msoFileDialogFilePicker) để mở hộp thoại tập tin và cho phép người dùng chọn một tập tin.
3. Làm cách nào tôi có thể lấy phiên bản Excel trong VBA?
4. Bạn có thể dùng GetObject("", "Excel.Application") để có được một phiên bản Excel hiện có hoặc CreateObject("Excel.Application") để tạo một cái mới.
5. Làm cách nào để mở sổ làm việc Excel trong VBA?
6. Sử dụng xlbook.Workbooks.Open("filePath") để mở sổ làm việc Excel từ đường dẫn tệp đã chỉ định.
7. Cách tốt nhất để đọc một loạt dữ liệu từ Excel trong VBA là gì?
8. sử dụng xlsheet.Range("A1").CurrentRegion.Value đọc toàn bộ vùng hiện tại của trang tính bắt đầu từ ô A1 thành một mảng.
9. Làm cách nào tôi có thể di chuyển con trỏ đến đầu tài liệu Word trong VBA?
10. Lệnh Selection.HomeKey wdStory di chuyển vùng chọn về đầu tài liệu.
11. Selection.Find.ClearFormatting làm gì trong VBA?
12. Nó xóa mọi cài đặt định dạng trước đó được áp dụng cho thao tác tìm kiếm, đảm bảo tìm kiếm mới.
13. Làm cách nào để thay đổi văn bản thành chữ hoa chữ thường trong VBA?
14. Sử dụng StrConv(text, vbProperCase) chức năng chuyển đổi văn bản thành chữ hoa thích hợp.
15. Làm cách nào để áp dụng nhiều tùy chọn định dạng cho văn bản trong VBA?
16. Bạn có thể áp dụng các định dạng khác nhau như in nghiêng, in đậm và màu phông chữ bằng cách sử dụng rng.Font.Italic = True, rng.Font.Bold = True, Và rng.Font.Color = RGB(200, 187, 0).