Makro VBA na aktualizáciu formátovania vedeckých názvov v dokumentoch programu Word

Makro VBA na aktualizáciu formátovania vedeckých názvov v programe Word

Visual Basic for Applications (VBA) pre 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 na dedenie prípadu z údajov programu Excel

VBA pre integráciu 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

Bežné otázky o makrách VBA na formátovanie textu

1. Ako otvorím dialógové okno súboru vo VBA?
2. Použite Application.FileDialog(msoFileDialogFilePicker) otvoríte dialógové okno súboru a umožníte používateľom vybrať súbor.
3. Ako môžem získať inštanciu programu Excel vo VBA?
4. Môžeš použiť GetObject("", "Excel.Application") získať existujúcu inštanciu Excelu alebo CreateObject("Excel.Application") na vytvorenie nového.
5. Ako otvorím excelový zošit vo VBA?
6. Použite xlbook.Workbooks.Open("filePath") otvorte excelový zošit zo zadanej cesty k súboru.
7. Aký je najlepší spôsob čítania rozsahu údajov z Excelu vo VBA?
8. Použitím xlsheet.Range("A1").CurrentRegion.Value prečíta celú aktuálnu oblasť hárka počnúc bunkou A1 do poľa.
9. Ako môžem presunúť kurzor na začiatok dokumentu programu Word vo VBA?
10. Príkaz Selection.HomeKey wdStory presunie výber na začiatok dokumentu.
11. Čo robí Selection.Find.ClearFormatting vo VBA?
12. Vymaže všetky predchádzajúce nastavenia formátovania použité pri operácii hľadania, čím sa zabezpečí nové vyhľadávanie.
13. Ako zmením text na správne veľké a malé písmená vo VBA?
14. Použi StrConv(text, vbProperCase) funkcia na prevod textu na správne veľké a malé písmená.
15. Ako použijem viacero možností formátovania na text vo VBA?
16. Môžete použiť rôzne formátovanie, ako je kurzíva, tučné písmo a farba písma rng.Font.Italic = True, rng.Font.Bold = True, a rng.Font.Color = RGB(200, 187, 0).