VBA-makro Word-asiakirjojen tieteellisten nimien muotoilun päivittämiseen

VBA-makro tieteellisten nimien muotoilun päivittämiseksi Wordissa

Visual Basic for Applications (VBA) Wordille ja Excelille

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-komentosarja tapauksen perimiseksi Excel-tiedoista

VBA Excelin ja Wordin integrointiin

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

Yleisiä kysymyksiä VBA-makroista tekstin muotoiluun

1. Kuinka avaan tiedostovalintaikkunan VBA:ssa?
2. Käyttää Application.FileDialog(msoFileDialogFilePicker) Voit avata tiedostovalintaikkunan ja antaa käyttäjien valita tiedoston.
3. Kuinka saan Excelin esiintymän VBA:ssa?
4. Voit käyttää GetObject("", "Excel.Application") saada olemassa oleva Excel-esiintymä tai CreateObject("Excel.Application") luodaksesi uuden.
5. Kuinka avaan Excel-työkirjan VBA:ssa?
6. Käyttää xlbook.Workbooks.Open("filePath") avataksesi Excel-työkirjan määritetystä tiedostopolusta.
7. Mikä on paras tapa lukea tietoja Excelistä VBA:ssa?
8. Käyttämällä xlsheet.Range("A1").CurrentRegion.Value lukee arkin koko nykyisen alueen solusta A1 alkaen taulukkoon.
9. Kuinka voin siirtää kohdistimen Word-asiakirjan alkuun VBA:ssa?
10. Käsky Selection.HomeKey wdStory siirtää valinnan asiakirjan alkuun.
11. Mitä Selection.Find.ClearFormatting tekee VBA:ssa?
12. Se tyhjentää kaikki aiemmat hakutoiminnossa käytetyt muotoiluasetukset ja varmistaa uuden haun.
13. Kuinka voin muuttaa tekstin oikeaan kirjainkoon VBA:ssa?
14. Käytä StrConv(text, vbProperCase) toiminto muuntaa tekstin oikeisiin kirjaimiin.
15. Kuinka voin käyttää useita muotoiluvaihtoehtoja tekstiin VBA:ssa?
16. Voit käyttää erilaisia ​​muotoiluja, kuten kursivoitua, lihavointia ja fontin väriä rng.Font.Italic = True, rng.Font.Bold = True, ja rng.Font.Color = RGB(200, 187, 0).