Μακροεντολή VBA για ενημέρωση μορφοποίησης επιστημονικών ονομάτων σε έγγραφα του Word

Μακροεντολή VBA για ενημέρωση μορφοποίησης επιστημονικών ονομάτων στο Word

Visual Basic for Applications (VBA) για Word και 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 για κληρονομική κεφαλαία από δεδομένα Excel

VBA για Excel και 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

Συνήθεις ερωτήσεις σχετικά με τις μακροεντολές VBA για μορφοποίηση κειμένου

1. Πώς μπορώ να ανοίξω ένα παράθυρο διαλόγου αρχείου στο VBA;
2. Χρήση Application.FileDialog(msoFileDialogFilePicker) για να ανοίξετε ένα παράθυρο διαλόγου αρχείου και να επιτρέψετε στους χρήστες να επιλέξουν ένα αρχείο.
3. Πώς μπορώ να λάβω μια παρουσία του Excel σε VBA;
4. Μπορείς να χρησιμοποιήσεις GetObject("", "Excel.Application") για να λάβετε μια υπάρχουσα παρουσία του Excel ή CreateObject("Excel.Application") για να δημιουργήσετε ένα νέο.
5. Πώς μπορώ να ανοίξω ένα βιβλίο εργασίας του Excel σε VBA;
6. Χρήση xlbook.Workbooks.Open("filePath") για να ανοίξετε ένα βιβλίο εργασίας του Excel από την καθορισμένη διαδρομή αρχείου.
7. Ποιος είναι ο καλύτερος τρόπος για να διαβάσετε μια σειρά δεδομένων από το Excel σε VBA;
8. Χρησιμοποιώντας xlsheet.Range("A1").CurrentRegion.Value διαβάζει ολόκληρη την τρέχουσα περιοχή του φύλλου ξεκινώντας από το κελί A1 σε έναν πίνακα.
9. Πώς μπορώ να μετακινήσω τον κέρσορα στην αρχή ενός εγγράφου του Word στο VBA;
10. Η εντολή Selection.HomeKey wdStory μετακινεί την επιλογή στην αρχή του εγγράφου.
11. Τι κάνει το Selection.Find.ClearFormatting στο VBA;
12. Διαγράφει τυχόν προηγούμενες ρυθμίσεις μορφοποίησης που εφαρμόστηκαν στη λειτουργία εύρεσης, διασφαλίζοντας μια νέα αναζήτηση.
13. Πώς μπορώ να αλλάξω το κείμενο σε σωστή πεζογραφία στο VBA;
14. Χρησιμοποιήστε το StrConv(text, vbProperCase) λειτουργία μετατροπής κειμένου σε σωστή περίπτωση.
15. Πώς μπορώ να εφαρμόσω πολλαπλές επιλογές μορφοποίησης σε κείμενο σε VBA;
16. Μπορείτε να εφαρμόσετε διαφορετική μορφοποίηση, όπως πλάγια, έντονη γραφή και χρώμα γραμματοσειράς χρησιμοποιώντας rng.Font.Italic = True, rng.Font.Bold = True, και rng.Font.Color = RGB(200, 187, 0).