Makro VBA pro aktualizaci formátování vědeckých jmen v dokumentech aplikace Word

Makro VBA pro aktualizaci formátování vědeckých jmen ve Wordu

Visual Basic for Applications (VBA) pro Word a 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

Skript VBA pro dědění případu z dat aplikace Excel

VBA pro integraci Excelu a Wordu

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

Běžné otázky o makrech VBA pro formátování textu

1. Jak otevřu dialogové okno souboru ve VBA?
2. Použití Application.FileDialog(msoFileDialogFilePicker) otevřete dialogové okno souboru a umožníte uživatelům vybrat soubor.
3. Jak mohu získat instanci Excelu ve VBA?
4. Můžeš použít GetObject("", "Excel.Application") získat existující instanci Excelu nebo CreateObject("Excel.Application") k vytvoření nového.
5. Jak otevřu excelový sešit ve VBA?
6. Použití xlbook.Workbooks.Open("filePath") otevřete sešit aplikace Excel ze zadané cesty k souboru.
7. Jaký je nejlepší způsob, jak číst řadu dat z Excelu ve VBA?
8. Použitím xlsheet.Range("A1").CurrentRegion.Value přečte celou aktuální oblast listu počínaje buňkou A1 do pole.
9. Jak mohu přesunout kurzor na začátek dokumentu aplikace Word ve VBA?
10. Příkaz Selection.HomeKey wdStory přesune výběr na začátek dokumentu.
11. Co dělá Selection.Find.ClearFormatting ve VBA?
12. Vymaže všechna předchozí nastavení formátování použitá při operaci hledání a zajistí nové vyhledávání.
13. Jak změním text na správná velká a malá písmena ve VBA?
14. Použijte StrConv(text, vbProperCase) funkce pro převod textu na správná velká a malá písmena.
15. Jak mohu použít více možností formátování na text ve VBA?
16. Můžete použít různé formátování, jako je kurzíva, tučné písmo a barva písma rng.Font.Italic = True, rng.Font.Bold = True, a rng.Font.Color = RGB(200, 187, 0).