Macro VBA pour mettre à jour le formatage des noms scientifiques dans les documents Word

Macro VBA pour mettre à jour le formatage des noms scientifiques dans Word

Visual Basic pour Applications (VBA) pour Word et 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

Script VBA pour hériter de la casse à partir de données Excel

VBA pour l'intégration d'Excel et Word

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

Questions courantes sur les macros VBA pour le formatage du texte

1. Comment ouvrir une boîte de dialogue de fichier dans VBA ?
2. Utiliser Application.FileDialog(msoFileDialogFilePicker) pour ouvrir une boîte de dialogue de fichier et permettre aux utilisateurs de sélectionner un fichier.
3. Comment puis-je obtenir une instance d’Excel dans VBA ?
4. Vous pouvez utiliser GetObject("", "Excel.Application") pour obtenir une instance existante d'Excel ou CreateObject("Excel.Application") pour en créer un nouveau.
5. Comment ouvrir un classeur Excel en VBA ?
6. Utiliser xlbook.Workbooks.Open("filePath") pour ouvrir un classeur Excel à partir du chemin de fichier spécifié.
7. Quelle est la meilleure façon de lire une plage de données à partir d’Excel dans VBA ?
8. En utilisant xlsheet.Range("A1").CurrentRegion.Value lit toute la région actuelle de la feuille à partir de la cellule A1 dans un tableau.
9. Comment déplacer le curseur au début d’un document Word dans VBA ?
10. La commande Selection.HomeKey wdStory déplace la sélection au début du document.
11. Que fait Selection.Find.ClearFormatting dans VBA ?
12. Il efface tous les paramètres de formatage précédents appliqués à l'opération de recherche, garantissant ainsi une nouvelle recherche.
13. Comment mettre le texte en casse dans VBA ?
14. Utilisez le StrConv(text, vbProperCase) fonction pour convertir le texte en casse appropriée.
15. Comment appliquer plusieurs options de formatage au texte dans VBA ?
16. Vous pouvez appliquer différentes mises en forme, telles que l'italique, le gras et la couleur de police, à l'aide de rng.Font.Italic = True, rng.Font.Bold = True, et rng.Font.Color = RGB(200, 187, 0).