Macro VBA para atualização de formatação de nomes científicos em documentos do Word

Macro VBA para atualizar a formatação de nomes científicos no Word

Visual Basic para Aplicativos (VBA) para Word e 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 herdar casos de dados do Excel

VBA para Excel e integração com 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

Perguntas comuns sobre macros VBA para formatação de texto

1. Como abro uma caixa de diálogo de arquivo no VBA?
2. Usar Application.FileDialog(msoFileDialogFilePicker) para abrir uma caixa de diálogo de arquivo e permitir que os usuários selecionem um arquivo.
3. Como posso obter uma instância do Excel no VBA?
4. Você pode usar GetObject("", "Excel.Application") para obter uma instância existente do Excel ou CreateObject("Excel.Application") para criar um novo.
5. Como abro uma pasta de trabalho do Excel no VBA?
6. Usar xlbook.Workbooks.Open("filePath") para abrir uma pasta de trabalho do Excel a partir do caminho de arquivo especificado.
7. Qual é a melhor maneira de ler uma série de dados do Excel em VBA?
8. Usando xlsheet.Range("A1").CurrentRegion.Value lê toda a região atual da planilha começando da célula A1 em uma matriz.
9. Como posso mover o cursor para o início de um documento do Word no VBA?
10. O comando Selection.HomeKey wdStory move a seleção para o início do documento.
11. O que Selection.Find.ClearFormatting faz no VBA?
12. Ele limpa todas as configurações de formatação anteriores aplicadas à operação de localização, garantindo uma nova pesquisa.
13. Como altero o texto para maiúsculas e minúsculas no VBA?
14. Use o StrConv(text, vbProperCase) função para converter texto para maiúsculas e minúsculas adequadas.
15. Como aplico várias opções de formatação ao texto no VBA?
16. Você pode aplicar diferentes formatações, como itálico, negrito e cor da fonte, usando rng.Font.Italic = True, rng.Font.Bold = True, e rng.Font.Color = RGB(200, 187, 0).