Работа со строками...

[muter]

Как делаются такие вот задания...

Ввести фрагмент текста (3-10 строк). Отцентрировать строки.


Ввести фрагмент текста (3-10 строк). Отформатировать строки, с выравниванием их по левому и правому краям.

с помощью функций mid b и других или используя свойства объекта Range?

[Ramzes]

Код: Выделить всё

mid(str$,3,7)

Центрируй где хош и как хош, средством записи макросов, потому как я не знаю гнде тебе надо их отчентрировть или выровнять по краю

[GSerg]

Код: Выделить всё

dim t as long

with documents.add.range
  .insertafter "Длинный текст"
  .paragraphformat.alignment=wdAlignParagraphCenter
  .insertparagraphafter
  .collapse wdCollapseEnd
  t=.start
  .insertafter "Другой длинный текст"
  .parent.range(t, .end).paragraphformat.alignment=wdAlignParagraphJustify
end with

[muter]

Ввести фрагмент текста (3-10 строк). Отформатировать строки, с выравниванием их по левому и правому краям.

а как это задание сделать с помощью mid и других функций, реально это сделать в переменной или только на листе?

[GSerg]

А что, в твоём понимании, означает выравнивание текста в переменной?

[FaKk2]

muter
Мне тоже интересно...

[muter]

хм.. ну я думаю как и в ячеёке! подсчитываем кол-во пробелов с одной и сдругой стороны удаляем так, что бы строчка была в центре!!
вообще бред какой-то! странные задания! наверно их надо делать в ячейке, но тогда не понятно как это отформатировать по левому краю и по правому,это чё одновременно надо делать или постепенно и зачем мне не понятно... здесь наверно 2 задачи в одной?

[GSerg]

Ты определись сначала...
Хотя бы тем, word у тебя или excel


А форматировать строки пробелами - это действие, за которое пользователям Ворда надо отрывать... что-нибудь, чтобы неповадно было

[muter]

Эти задания надо сделать в Excel! Я думаю их надо сделать в ячейке!
разместить 2 кнопки одна выравнивает справа другая слева, и выравнивание будет происходит в ячейке с помощью св-в объекта Range и др-х.. Такой вариант устроит для выполнения задания?

[Sedge]

Код: Выделить всё


Range("a1").Value = "По левому краю"
Range("a1").HorizontalAlignment = xlLeft
Range("b1").Value = "По центру"
Range("b1").HorizontalAlignment = xlCenter
Range("c1").Value = "По правому краю"
Range("c1").HorizontalAlignment = xlRight


[muter]

а выравнивание в переменной... может здесь надо с помощью функций LTrim и RTrim?

[FaKk2]

muter
Гыыыыыы!!!!!!

Ржу Ни Магу!