VBA-Makro zum Aktualisieren der Formatierung wissenschaftlicher Namen in Word-Dokumenten

VBA-Makro zum Aktualisieren der Formatierung wissenschaftlicher Namen in Word

Visual Basic for Applications (VBA) für Word und 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-Skript zum Erben von Groß- und Kleinschreibung aus Excel-Daten

VBA für Excel- und Word-Integration

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

Häufige Fragen zu VBA-Makros für die Textformatierung

1. Wie öffne ich einen Dateidialog in VBA?
2. Verwenden Application.FileDialog(msoFileDialogFilePicker) , um einen Dateidialog zu öffnen und Benutzern die Auswahl einer Datei zu ermöglichen.
3. Wie kann ich eine Excel-Instanz in VBA erhalten?
4. Sie können verwenden GetObject("", "Excel.Application") um eine vorhandene Instanz von Excel zu erhalten oder CreateObject("Excel.Application") um ein neues zu erstellen.
5. Wie öffne ich eine Excel-Arbeitsmappe in VBA?
6. Verwenden xlbook.Workbooks.Open("filePath") um eine Excel-Arbeitsmappe aus dem angegebenen Dateipfad zu öffnen.
7. Was ist der beste Weg, eine Reihe von Daten aus Excel in VBA zu lesen?
8. Benutzen xlsheet.Range("A1").CurrentRegion.Value Liest den gesamten aktuellen Bereich des Blattes beginnend mit Zelle A1 in ein Array.
9. Wie kann ich den Cursor in VBA an den Anfang eines Word-Dokuments bewegen?
10. Der Befehl Selection.HomeKey wdStory Verschiebt die Auswahl an den Anfang des Dokuments.
11. Was macht Selection.Find.ClearFormatting in VBA?
12. Es löscht alle vorherigen Formatierungseinstellungen, die auf den Suchvorgang angewendet wurden, und stellt so eine neue Suche sicher.
13. Wie ändere ich Text in VBA in die richtige Groß-/Kleinschreibung?
14. Benutzen Sie die StrConv(text, vbProperCase) Funktion zum Konvertieren von Text in die richtige Groß-/Kleinschreibung.
15. Wie wende ich in VBA mehrere Formatierungsoptionen auf Text an?
16. Mit können Sie verschiedene Formatierungen wie Kursivschrift, Fettschrift und Schriftfarbe anwenden rng.Font.Italic = True, rng.Font.Bold = True, Und rng.Font.Color = RGB(200, 187, 0).