VBA makrokomanda, skirta mokslinių pavadinimų formatavimui Word dokumentuose atnaujinti

VBA makrokomanda, skirta atnaujinti mokslinių pavadinimų formatavimą programoje „Word“.

„Visual Basic for Applications“ (VBA), skirta „Word“ ir „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 scenarijus, skirtas paveldėti atvejį iš „Excel“ duomenų

VBA, skirta Excel ir Word integracijai

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

Dažni klausimai apie VBA makrokomandas, skirtas teksto formatavimui

1. Kaip atidaryti failo dialogo langą VBA?
2. Naudokite Application.FileDialog(msoFileDialogFilePicker) Norėdami atidaryti failo dialogo langą ir leisti vartotojams pasirinkti failą.
3. Kaip gauti „Excel“ egzempliorių VBA?
4. Tu gali naudoti GetObject("", "Excel.Application") gauti esamą Excel egzempliorių arba CreateObject("Excel.Application") sukurti naują.
5. Kaip atidaryti „Excel“ darbaknygę VBA?
6. Naudokite xlbook.Workbooks.Open("filePath") norėdami atidaryti „Excel“ darbaknygę iš nurodyto failo kelio.
7. Koks yra geriausias būdas nuskaityti įvairius duomenis iš „Excel“ naudojant VBA?
8. Naudojant xlsheet.Range("A1").CurrentRegion.Value nuskaito visą esamą lapo sritį, pradedant nuo langelio A1, į masyvą.
9. Kaip galiu perkelti žymeklį į Word dokumento pradžią VBA?
10. Komanda Selection.HomeKey wdStory perkelia pasirinkimą į dokumento pradžią.
11. Ką Selection.Find.ClearFormatting veikia VBA?
12. Jis išvalo visus ankstesnius formatavimo nustatymus, taikomus paieškos operacijai, užtikrinant naują paiešką.
13. Kaip VBA pakeisti tekstą į tinkamas didžiąsias ir mažąsias raides?
14. Naudoti StrConv(text, vbProperCase) funkcija konvertuoti tekstą į tinkamas raides.
15. Kaip VBA tekstui pritaikyti kelias formatavimo parinktis?
16. Galite taikyti skirtingą formatavimą, pvz., kursyvą, pusjuodį ir šrifto spalvą rng.Font.Italic = True, rng.Font.Bold = True, ir rng.Font.Color = RGB(200, 187, 0).