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

VBA

Побољшање форматирања научног имена помоћу ВБА макроа

Коришћење ВБА макроа за форматирање научних имена у Ворд документима је моћан алат, посебно када се подаци извлаче из Екцел-а. Овај чланак говори о специфичном ВБА макроу који се истиче у подебљавању, курзиву и промени фонта научних имена, али се бори са ажурирањем текста у велика и мала слова.

Упркос својој ефикасности у другим аспектима форматирања, макро не успева да конвертује научне називе у жељену величину реченице. Овај чланак истражује проблем и потенцијална решења, са циљем да се осигура да се сва научна имена придржавају одговарајућих стандарда форматирања.

Цомманд Опис
Application.FileDialog(msoFileDialogFilePicker) Отвара дијалошки оквир датотеке за избор датотеке, у овом случају Екцел радну свеску.
GetObject("", "Excel.Application") Добија постојећу инстанцу Екцел-а, ако је већ покренута.
CreateObject("Excel.Application") Креира нову инстанцу Екцел-а ако већ није покренута.
xlbook.Workbooks.Open(strSource) Отвара изабрану Екцел радну свеску.
xlsheet.Range("A1").CurrentRegion.Value Добија вредност тренутног региона почевши од ћелије А1 у Екцел листу.
Selection.HomeKey wdStory Помера избор на почетак документа.
Selection.Find.ClearFormatting Брише све претходне поставке форматирања у операцији проналажења.
StrConv(rng.Text, vbProperCase) Конвертује текст у опсегу у права велика и мала слова (наслова).

Разумевање ВБА макроа за форматирање научног назива

Достављени ВБА макро је дизајниран да аутоматизује процес форматирања научних имена у Ворд документу користећи податке са Екцел листа. Скрипта почиње отварањем дијалога датотеке () да би се омогућило кориснику да изабере Екцел радну свеску која садржи научне називе које треба форматирати. Затим покушава да се повеже са постојећом инстанцом програма Екцел користећи или креира нову инстанцу ако Екцел није већ покренут (). Када се радна свеска отвори, макро чита податке из наведеног опсега (xlsheet.Range("A1").CurrentRegion.Value) и чува га у низу за даљу обраду.

За свако научно име у низу, макро користи објекат за претрагу термина у Ворд документу. Када се пронађе подударање, скрипта примењује различите опције форматирања на текст, као што је курзив (), подебљано (), мењајући боју фонта (rng.Font.Color = RGB(200, 187, 0)), и подешавање типа фонта на Тимес Нев Роман (). Кључни аспект овог макроа је покушај да се текст промени у велика и мала слова реченице , који нажалост не функционише како је предвиђено. Скрипта такође укључује алтернативни приступ ручним претварањем текста у одговарајућа велика и мала слова .

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

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

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. Користите да отворите дијалог датотеке и омогућите корисницима да изаберу датотеку.
  3. Како могу да добијем инстанцу Екцел-а у ВБА?
  4. Можете користити да бисте добили постојећу инстанцу Екцел-а или да створи нову.
  5. Како да отворим Екцел радну свеску у ВБА?
  6. Користите да бисте отворили Екцел радну свеску са наведене путање датотеке.
  7. Који је најбољи начин за читање низа података из Екцел-а у ВБА?
  8. Користећи чита цео тренутни регион листа почевши од ћелије А1 у низ.
  9. Како могу да померим курсор на почетак Ворд документа у ВБА?
  10. Команда помера избор на почетак документа.
  11. Шта Селецтион.Финд.ЦлеарФорматтинг ради у ВБА?
  12. Брише све претходне поставке форматирања примењене на операцију проналажења, обезбеђујући нову претрагу.
  13. Како да променим текст у одговарајућа велика и мала слова у ВБА?
  14. Користити функција за претварање текста у одговарајућа велика и мала слова.
  15. Како да применим више опција обликовања на текст у ВБА?
  16. Можете да примените различито форматирање као што су курзив, подебљано и боја фонта користећи , , и .

Закључак и следећи кораци

Укратко, креирање ВБА макроа за форматирање научних имена у Ворд документима укључује неколико корака, укључујући преузимање података из Екцел-а и примену више опција за форматирање. Иако макро може ефикасно да промени стилове фонта и боје, постизање форматирања великих и малих реченица остаје изазов. Будућа побољшања могу укључивати прилагођене функције или претходно форматирање података у Екцел-у како би се осигурала конзистентност. Правилно руковање текстом ће побољшати читљивост и професионализам научних докумената.