Macro VBA pentru actualizarea formatării numelor științifice în documentele Word

Macro VBA pentru a actualiza formatarea numelor științifice în Word

Visual Basic pentru aplicații (VBA) pentru Word și 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

Script VBA pentru a moșteni majuscule din datele Excel

VBA pentru integrarea Excel și 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

Întrebări frecvente despre macrocomenzile VBA pentru formatarea textului

1. Cum deschid un dialog de fișier în VBA?
2. Utilizare Application.FileDialog(msoFileDialogFilePicker) pentru a deschide un dialog de fișier și a permite utilizatorilor să selecteze un fișier.
3. Cum pot obține o instanță de Excel în VBA?
4. Poți să folosești GetObject("", "Excel.Application") pentru a obține o instanță existentă de Excel sau CreateObject("Excel.Application") pentru a crea unul nou.
5. Cum deschid un registru de lucru Excel în VBA?
6. Utilizare xlbook.Workbooks.Open("filePath") pentru a deschide un registru de lucru Excel din calea fișierului specificată.
7. Care este cel mai bun mod de a citi o serie de date din Excel în VBA?
8. Folosind xlsheet.Range("A1").CurrentRegion.Value citește întreaga regiune curentă a foii pornind de la celula A1 într-o matrice.
9. Cum pot muta cursorul la începutul unui document Word în VBA?
10. Comanda Selection.HomeKey wdStory mută selecția la începutul documentului.
11. Ce face Selection.Find.ClearFormatting în VBA?
12. Șterge orice setări anterioare de formatare aplicate operațiunii de căutare, asigurând o nouă căutare.
13. Cum schimb textul la majuscule corecte în VBA?
14. Folosește StrConv(text, vbProperCase) funcția de a converti textul în majuscule adecvate.
15. Cum aplic mai multe opțiuni de formatare textului în VBA?
16. Puteți aplica diferite formatări, cum ar fi cursive, aldine și culoarea fontului folosind rng.Font.Italic = True, rng.Font.Bold = True, și rng.Font.Color = RGB(200, 187, 0).