VBA-macro voor het bijwerken van de opmaak van wetenschappelijke namen in Word-documenten

VBA-macro om de opmaak van wetenschappelijke namen in Word bij te werken

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

VBA-script om hoofdletters over te nemen van Excel-gegevens

VBA voor Excel- en Word-integratie

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

Veelgestelde vragen over VBA-macro's voor tekstopmaak

1. Hoe open ik een bestandsdialoogvenster in VBA?
2. Gebruik Application.FileDialog(msoFileDialogFilePicker) om een ​​bestandsdialoogvenster te openen en gebruikers in staat te stellen een bestand te selecteren.
3. Hoe kan ik een exemplaar van Excel in VBA krijgen?
4. Je kunt gebruiken GetObject("", "Excel.Application") om een ​​bestaand exemplaar van Excel op te halen of CreateObject("Excel.Application") om een ​​nieuwe te maken.
5. Hoe open ik een Excel-werkmap in VBA?
6. Gebruik xlbook.Workbooks.Open("filePath") om een ​​Excel-werkmap te openen vanuit het opgegeven bestandspad.
7. Wat is de beste manier om een ​​reeks gegevens uit Excel in VBA te lezen?
8. Gebruik makend van xlsheet.Range("A1").CurrentRegion.Value leest het volledige huidige gebied van het blad, beginnend bij cel A1, in een array.
9. Hoe kan ik de cursor naar het begin van een Word-document in VBA verplaatsen?
10. Het bevel Selection.HomeKey wdStory verplaatst de selectie naar het begin van het document.
11. Wat doet Selection.Find.ClearFormatting in VBA?
12. Het wist alle eerdere opmaakinstellingen die op de zoekbewerking zijn toegepast, waardoor een nieuwe zoekopdracht wordt gegarandeerd.
13. Hoe verander ik tekst in de juiste hoofdletter in VBA?
14. Gebruik de StrConv(text, vbProperCase) functie om tekst naar de juiste hoofdletter te converteren.
15. Hoe pas ik meerdere opmaakopties toe op tekst in VBA?
16. U kunt verschillende opmaak toepassen, zoals cursief, vet en lettertypekleur rng.Font.Italic = True, rng.Font.Bold = True, En rng.Font.Color = RGB(200, 187, 0).