Macro de VBA para actualizar el formato de nombres científicos en documentos de Word

Macro de VBA para actualizar el formato de nombres científicos en Word

Visual Basic para Aplicaciones (VBA) para Word y 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 para heredar casos de datos de Excel

VBA para integración de Excel y 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

Preguntas comunes sobre las macros de VBA para formato de texto

1. ¿Cómo abro un cuadro de diálogo de archivo en VBA?
2. Usar Application.FileDialog(msoFileDialogFilePicker) para abrir un cuadro de diálogo de archivo y permitir a los usuarios seleccionar un archivo.
3. ¿Cómo puedo obtener una instancia de Excel en VBA?
4. Puedes usar GetObject("", "Excel.Application") para obtener una instancia existente de Excel o CreateObject("Excel.Application") para crear uno nuevo.
5. ¿Cómo abro un libro de Excel en VBA?
6. Usar xlbook.Workbooks.Open("filePath") para abrir un libro de Excel desde la ruta del archivo especificada.
7. ¿Cuál es la mejor manera de leer una variedad de datos de Excel en VBA?
8. Usando xlsheet.Range("A1").CurrentRegion.Value lee toda la región actual de la hoja comenzando desde la celda A1 en una matriz.
9. ¿Cómo puedo mover el cursor al principio de un documento de Word en VBA?
10. El comando Selection.HomeKey wdStory mueve la selección al principio del documento.
11. ¿Qué hace Selection.Find.ClearFormatting en VBA?
12. Borra cualquier configuración de formato anterior aplicada a la operación de búsqueda, lo que garantiza una nueva búsqueda.
13. ¿Cómo cambio el texto a mayúsculas y minúsculas en VBA?
14. Utilizar el StrConv(text, vbProperCase) Función para convertir texto a mayúsculas y minúsculas.
15. ¿Cómo aplico múltiples opciones de formato al texto en VBA?
16. Puede aplicar diferentes formatos, como cursiva, negrita y color de fuente, usando rng.Font.Italic = True, rng.Font.Bold = True, y rng.Font.Color = RGB(200, 187, 0).