Выходя за пределы макс. размер строки в определенном коде VBA

Question

Я учитель английского, пытаюсь ознакомиться с VBA.У меня есть следующий код ниже, чтобы подчеркнуть некоторые слова в тексте, но у меня проблемы с макс.размер строки 255.

Я хочу увеличить размер строки, чтобы добавить больше слов в одну строку (точнее, 700).

Я нашел этот элемент ОбойтиМаксимальный размер строки в функции vba? , но я не знаю, как реализовать это в моем коде.

    Sub ListChange()
    Dim r As Range
    Dim MyList() As String
    Dim i As Long
    MyList = Split("segregation,investigation,treaty,accommodate,inheritance,tentative,utter,hijack,redundant,disrupt,conserve,lawsuit,graduate,handle,resolution,bewildered,fuss,confident,disguise,considerable,persistent,obligatory,expenses,initially,lecture,reluctance,extinct,toxic,precede,demolition,turnup,gap,disturb,independent,nerve,jusitification,turnout,compulsory,gathering,merciless,HomeOffice,impress,decline,diminish,essentially,deceive,advance,ambiguous,disposeof,disdain,apt,effort,famine,entirely,familiar,elderly,solution,commute,disproportionally,urge,obedience,retreat,merely,relief,distraction,principal,sanity,distortion,figure", ",")
    For i = 0 To UBound(MyList())
       Set r = ActiveDocument.Range
          With r.Find
             .Text = MyList(i)
             .Replacement.Font.Underline = wdUnderlineSingle
             .Execute Replace:=wdReplaceAll
          End With
    Next
    End Sub

Я хочу получить больше символов в одной строке.

Answer 1

Я не уверен, есть ли какое-либо ограничение в массиве String, хотя VBA накладывает ограничение на длину каждой строки.Вы можете продолжить то же самое утверждение, добавив подчеркивание '_' в конце.

Ниже приведена модифицированная версия вашей подпрограммы, я мог бы создать длинное предложение (скопировать вставленные предложения несколько раз) и смог сгенерировать более 700 слов.

Sub ListChange()
    Dim r As Range
    Dim MyList() As String
    Dim i As Long
    MyList = Split("segregation,investigation,treaty,accommodate,inheritance,tentative,utter,hijack,redundant,disrupt,conserve,lawsuit,graduate,handle,resolution,bewildered,fuss,confident,disguise,considerable,persistent,obligatory,expenses,initially,lecture,reluctance,extinct,toxic,precede,demolition,turnup,gap,disturb,independent,nerve,jusitification,turnout,compulsory,gathering,merciless,HomeOffice,impress,decline,diminish,essentially,deceive,advance,ambiguous,disposeof,disdain,apt,effort,famine,entirely,familiar,elderly,solution,commute,disproportionally,urge,obedience,retreat,merely,relief,distraction,principal,sanity,distortion,figure,welcome,world,hello,modification,activedocument,microsoft,hours,terminate,five,six,retinaeye,display,english,increase, " _
& "segregation , investigation, treaty, accommodate, inheritance, tentative, utter, hijack, redundant, disrupt, conserve, lawsuit, graduate, Handle, resolution, bewildered, fuss, confident, disguise, considerable, persistent, obligatory, expenses, initially, lecture, reluctance, extinct, toxic, precede, demolition, turnup, Gap, disturb, independent, nerve, jusitification, turnout, compulsory, gathering, merciless, HomeOffice, impress, decline, diminish, essentially, deceive, advance, ambiguous, disposeof, disdain, apt, effort, famine, entirely, familiar, elderly, solution, commute, disproportionally, urge, obedience, retreat, merely, relief, distraction, principal, sanity, distortion, figure, welcome, world, hello, modification, activedocument, microsoft, hours, Terminate, five, tw0" _
& "segregation , investigation, treaty, accommodate, inheritance, tentative, utter, hijack, redundant, disrupt, conserve, lawsuit, graduate, Handle, resolution, bewildered, fuss, confident, disguise, considerable, persistent, obligatory, expenses, initially, lecture, reluctance, extinct, toxic, precede, demolition, turnup, Gap, disturb, independent, nerve, jusitification, turnout, compulsory, gathering, merciless, HomeOffice, impress, decline, diminish, essentially, deceive, advance, ambiguous, disposeof, disdain, apt, effort, famine, entirely, familiar, elderly, solution, commute, disproportionally, urge, obedience, retreat, merely, relief, distraction, principal, sanity, distortion, figure, welcome, world, hello, modification, activedocument, microsoft, hours, Terminate, five, days" _
& "segregation , investigation, treaty, accommodate, inheritance, tentative, utter, hijack, redundant, disrupt, conserve, lawsuit, graduate, Handle, resolution, bewildered, fuss, confident, disguise, considerable, persistent, obligatory, expenses, initially, lecture, reluctance, extinct, toxic, precede, demolition, turnup, Gap, disturb, independent, nerve, jusitification, turnout, compulsory, gathering, merciless, HomeOffice, impress, decline, diminish, essentially, deceive, advance, ambiguous, disposeof, disdain, apt, effort, famine, entirely, familiar, elderly, solution, commute, disproportionally, urge, obedience, retreat, merely, relief, distraction, principal, sanity, distortion, figure, welcome, world, hello, modification, activedocument, microsoft, hours, Terminate, five, days" _
& "segregation , investigation, treaty, accommodate, inheritance, tentative, utter, hijack, redundant, disrupt, conserve, lawsuit, graduate, Handle, resolution, bewildered, fuss, confident, disguise, considerable, persistent, obligatory, expenses, initially, lecture, reluctance, extinct, toxic, precede, demolition, turnup, Gap, disturb, independent, nerve, jusitification, turnout, compulsory, gathering, merciless, HomeOffice, impress, decline, diminish, essentially, deceive, advance, ambiguous, disposeof, disdain, apt, effort, famine, entirely, familiar, elderly, solution, commute, disproportionally, urge, obedience, retreat, merely, relief, distraction, principal, sanity, distortion, figure, welcome, world, hello, modification, activedocument, microsoft, hours, Terminate, five, days" _
& "segregation , investigation, treaty, accommodate, inheritance, tentative, utter, hijack, redundant, disrupt, conserve, lawsuit, graduate, Handle, resolution, bewildered, fuss, confident, disguise, considerable, persistent, obligatory, expenses, initially, lecture, reluctance, extinct, toxic, precede, demolition, turnup, Gap, disturb, independent, nerve, jusitification, turnout, compulsory, gathering, merciless, HomeOffice, impress, decline, diminish, essentially, deceive, advance, ambiguous, disposeof, disdain, apt, effort, famine, entirely, familiar, elderly, solution, commute, disproportionally, urge, obedience, retreat, merely, relief, distraction, principal, sanity, distortion, figure, welcome, world, hello, modification, activedocument, microsoft, hours, Terminate, five, days" _
& "segregation , investigation, treaty, accommodate, inheritance, tentative, utter, hijack, redundant, disrupt, conserve, lawsuit, graduate, Handle, resolution, bewildered, fuss, confident, disguise, considerable, persistent, obligatory, expenses, initially, lecture, reluctance, extinct, toxic, precede, demolition, turnup, Gap, disturb, independent, nerve, jusitification, turnout, compulsory, gathering, merciless, HomeOffice, impress, decline, diminish, essentially, deceive, advance, ambiguous, disposeof, disdain, apt, effort, famine, entirely, familiar, elderly, solution, commute, disproportionally, urge, obedience, retreat, merely, relief, distraction, principal, sanity, distortion, figure, welcome, world, hello, modification, activedocument, microsoft, hours, Terminate, five, days" _
& "segregation , investigation, treaty, accommodate, inheritance, tentative, utter, hijack, redundant, disrupt, conserve, lawsuit, graduate, Handle, resolution, bewildered, fuss, confident, disguise, considerable, persistent, obligatory, expenses, initially, lecture, reluctance, extinct, toxic, precede, demolition, turnup, Gap, disturb, independent, nerve, jusitification, turnout, compulsory, gathering, merciless, HomeOffice, impress, decline, diminish, essentially, deceive, advance, ambiguous, disposeof, disdain, apt, effort, famine, entirely, familiar, elderly, solution, commute, disproportionally, urge, obedience, retreat, merely, relief, distraction, principal, sanity, distortion, figure, welcome, world, hello, modification, activedocument, microsoft, hours, Terminate, five, days" _
& "segregation , investigation, treaty, accommodate, inheritance, tentative, utter, hijack, redundant, disrupt, conserve, lawsuit, graduate, Handle, resolution, bewildered, fuss, confident, disguise, considerable, persistent, obligatory, expenses, initially, lecture, reluctance, extinct, toxic, precede, demolition, turnup, Gap, disturb, independent, nerve, jusitification, turnout, compulsory, gathering, merciless, HomeOffice, impress, decline, diminish, essentially, deceive, advance, ambiguous, disposeof, disdain, apt, effort, famine, entirely, familiar, elderly, solution, commute, disproportionally, urge, obedience, retreat, merely, relief, distraction, principal, sanity, distortion, figure, welcome, world, hello, modification, activedocument, microsoft, hours, Terminate, five, stack" _
& "segregation , investigation, treaty, accommodate, inheritance, tentative, utter, hijack, redundant, disrupt, conserve, lawsuit, graduate, Handle, resolution, bewildered, fuss, confident, disguise, considerable, persistent, obligatory, expenses, initially, lecture, reluctance, extinct, toxic, precede, demolition, turnup, Gap, disturb, independent, nerve, jusitification, turnout, compulsory, gathering, merciless, HomeOffice, impress, decline, diminish, essentially, deceive, advance, ambiguous, disposeof, disdain, apt, effort, famine, entirely, familiar, elderly, solution, commute, disproportionally, urge, obedience, retreat, merely, relief, distraction, principal, sanity, distortion, figure, welcome, world, hello, modification, activedocument, microsoft, hours, Terminate, five, one", ", ")
    For i = 0 To UBound(MyList())
       Debug.Print (MyList(i))
    Next
    Debug.Print ("No of words found in sentence " & UBound(MyList()) + 1)
End Sub

Примечание: Я только печатаю слова (удалил часть вашего кода).Надеюсь, это то, что вы ищете ..