ВБА макро за ажурирање форматирања научних назива у Ворд документима

ВБА макро за ажурирање форматирања научних имена у Ворд-у

Висуал Басиц за апликације (ВБА) за Ворд и Екцел

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

ВБА скрипта за наслеђивање случаја из Екцел података

ВБА за Екцел и Ворд интеграцију

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

Уобичајена питања о ВБА макроима за форматирање текста

1. Како да отворим дијалог датотеке у ВБА?
2. Користите Application.FileDialog(msoFileDialogFilePicker) да отворите дијалог датотеке и омогућите корисницима да изаберу датотеку.
3. Како могу да добијем инстанцу Екцел-а у ВБА?
4. Можете користити GetObject("", "Excel.Application") да бисте добили постојећу инстанцу Екцел-а или CreateObject("Excel.Application") да створи нову.
5. Како да отворим Екцел радну свеску у ВБА?
6. Користите xlbook.Workbooks.Open("filePath") да бисте отворили Екцел радну свеску са наведене путање датотеке.
7. Који је најбољи начин за читање низа података из Екцел-а у ВБА?
8. Користећи xlsheet.Range("A1").CurrentRegion.Value чита цео тренутни регион листа почевши од ћелије А1 у низ.
9. Како могу да померим курсор на почетак Ворд документа у ВБА?
10. Команда Selection.HomeKey wdStory помера избор на почетак документа.
11. Шта Селецтион.Финд.ЦлеарФорматтинг ради у ВБА?
12. Брише све претходне поставке форматирања примењене на операцију проналажења, обезбеђујући нову претрагу.
13. Како да променим текст у одговарајућа велика и мала слова у ВБА?
14. Користити StrConv(text, vbProperCase) функција за претварање текста у одговарајућа велика и мала слова.
15. Како да применим више опција обликовања на текст у ВБА?
16. Можете да примените различито форматирање као што су курзив, подебљано и боја фонта користећи rng.Font.Italic = True, rng.Font.Bold = True, и rng.Font.Color = RGB(200, 187, 0).