powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разработка макросов в MS Word
62 сообщений из 62, показаны все 3 страниц
Разработка макросов в MS Word
    #36952245
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите пожалуйста написать программу : Взять текст,состоящий из M слов по N символов. В словах с четным номером изменить порядок букв на обратный. М ≥ 20, N ≥ 6.
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952252
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Опять "напишите за меня"?
А учиться кто будет?

задавайте конкретные вопросы - получите ответы
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952283
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

да,я прошу написать за меня. Надеюсь кто-нибудь поможет
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952286
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АмосенькаShocker.Pro,

да,я прошу написать за меня. Надеюсь кто-нибудь поможет

вы в своем учебном заведении стипендию получаете или сами платите?
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952294
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,
я учусь на бюджете и стипендию не получаю)))
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952305
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенька,

Взять текст,состоящий из M слов по N символов
Откуда взять, то ???
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952312
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

любые слова)))
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952319
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АмосенькаShocker.Pro,
я учусь на бюджете и стипендию не получаю)))
То есть мы, налогоплательщики, занимаемся вашим халявным обучением, а вы еще и учиться не хотите? не пойдет так дело!

ЗЫ: Вот Эндрю подключился. Через какой-то месяц он напишет вам программку.
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952328
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

если сказать честно,то программирование ни на одном языке не понимаю на том уровне котором требуют. но так как я уже дожила до 4 курса,бросать учебу и переводиться не хочется. вот и прошу чтоб мне помогли
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952350
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенькани на одном языке не понимаю
Еще и не один язык? И какой же факультет, позвольте спросить?
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952360
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,
прикладная математика
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952372
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АмосенькаShocker.Pro,
прикладная математика

видимо вы неправильно выбрали факультет, раз у вас проблемы с такими задачками
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952379
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Konst_One,

ооо да,я этого совсем не отрицаю. ошиблась я конкретно. но не хочется переводиться и отчисляться тем более. дотянуть бы до конца как-нибудь....
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952387
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АмосенькаKonst_One,

ооо да,я этого совсем не отрицаю. ошиблась я конкретно. но не хочется переводиться и отчисляться тем более. дотянуть бы до конца как-нибудь....

трудно будет

а по теме: вы бы сначала формализовали свою задачу. определились бы с входными данными, расписали бы алгоритм, а уж программирование на каком-нибудь языке - это дело десятое
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952440
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Konst_Oneтрудно будет

а по теме: вы бы сначала формализовали свою задачу. определились бы с входными данными,
И это трудно будет
Заметь, ЦЭ задал грамотный вопрос, однако, вменяемого ответа так и не последовало.
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952466
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенька, деочка, ты меня удивляешь уже дожила до 4 курса,бросать учебу и переводиться не хочется. вот и прошу чтоб мне помогли
Давай пример
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952472
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
почитай
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
'зеркальное отражение текста функция StrReverse$, изначально текст должен быть выделенным после чего
'перевёрнутый текст появляется на месте выделенного текста
Dim parArr() As String
Dim myArr() As String
Dim par As Integer
Dim i As Integer

'Ниже:разбиваем текст на параграфы
parArr = Split(Selection.Text, vbCr)

For par =  0  To UBound(parArr)
'Ниже:текст параграфа бьём на слова
myArr = Split(parArr(par), " ")

'Ниже:переворачиваем каждое слово
For i =  0  To UBound(myArr)
myArr(i) = StrReverse$(myArr(i))
Next i

'Ниже:собираем параграф назад
parArr(par) = Join(myArr, " ")
Next par

'Ниже:собираем весь текст
Selection.Text = Join(parArr, vbCr)

...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952491
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

спасибо,попробую разобраться
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952539
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

а как сделать чтоб переворачивались только слова с четным номером?(то есть втрое слово,четвертое,шестое.....)
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952555
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенька, девочка
в этом отрезке:
Код: plaintext
1.
2.
3.
4.
5.
'Ниже:переворачиваем каждое слово
For i =  0  To UBound(myArr)
myArr(i) = StrReverse$(myArr(i))
Next i

Надо поставить условие если i чётное то переворачивать, а точнее сделать цикл с шагом через 1
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952559
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вроде так:
Код: plaintext
1.
2.
3.
4.
5.
'Ниже:переворачиваем каждое слово
For i =  1  To UBound(myArr), Step  1 
myArr(i) = StrReverse$(myArr(i))
Next i

...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952579
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
пишет что в этой строчке For i = 1 To UBound(myArr), Step 1 синтаксическая ошибка. как её исправить? я убрала запятую,ради интереса,и он из 20 слов не перевернул только два (1-ое и 11-ое)
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952585
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенька, девочка, зпятую убрать шаг = 2
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952595
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

спасибо большое!!!!! а можно еще вопросик по этой программе?
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952601
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенька, девочка 13 строк скрипта это программа?
спрашивай, если смогу помогу
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952608
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

для меня это программа))) как сделать чтоб я свои словечки вводила в форму(на форме поставлю textbox1),а не в ворде? и соответственно результат тоже вывести на форму в другой textbox2.
надеюсь написала понятно
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952625
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Будем с удовольствием наблюдать за топиком :)
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952638
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенька, девочка это рюшечки
parArr = Split(Selection.Text, vbCr)
меняешь на
parArr = Split(Имя_формы.Текст_бокс1.Value, vbCr)
и
Selection.Text = Join(parArr, vbCr)
на
Имя_формы.Текст_бокс2.Value = Join(parArr, vbCr)
Если не ошибаюсь
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952643
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AndreTMБудем с удовольствием наблюдать за топиком :)
Завистники, дайте девочку склеить! Диплом я так понимаю пополам, Амосенька, девочка?
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952662
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович ЭндрюАмосенька, девочка это рюшечки
parArr = Split(Selection.Text, vbCr)
меняешь на
parArr = Split(Имя_формы.Текст_бокс1.Value, vbCr)
и
Selection.Text = Join(parArr, vbCr)
на
Имя_формы.Текст_бокс2.Value = Join(parArr, vbCr)
Если не ошибаюсь
кажется ошибка всё же есть
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952663
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

я не та которую можно склеить
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952665
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенька, девочка так ты начни с простого создай форму с текстбоксом добейся как в неё ввести текст, там вероятно будет так -Me.далеее как фантазия работает, например так ЦЭ
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952666
АмосенькаЦипихович Эндрю,

я не та которую можно склеить
сварка, клепка, резьбовые соединения ?
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952668
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АмосенькаЦипихович Эндрю,

я не та которую можно склеить

Прекращаю клеить, могла бы и подиграть, пока
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952696
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

у меня не получается. для текстбоксов отдельно нужно что то прописывать?
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952703
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

я исправила. работает!!!!! спасибо вам большое!!!!
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952707
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенька, девочка, так вылож скрипт, может кому надо
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952711
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Private Sub CommandButton1_Click()
'зеркальное отражение текста функция StrReverse$, изначально текст должен быть выделенным после чего
'перевёрнутый текст появляется на месте выделенного текста
Dim parArr() As String
Dim myArr() As String
Dim par As Integer
Dim i As Integer

'Ниже:разбиваем текст на параграфы
parArr = Split(TextBox1.Value, vbCr)

For par = 0 To UBound(parArr)
'Ниже:текст параграфа бьём на слова
myArr = Split(parArr(par), " ")

'Ниже:переворачиваем каждое слово
For i = 1 To UBound(myArr) Step 2
myArr(i) = StrReverse$(myArr(i))
Next i


'Ниже:собираем параграф назад
parArr(par) = Join(myArr, " ")
Next par

'Ниже:собираем весь текст
TextBox2.Value = Join(parArr, vbCr)

End Sub

Private Sub CommandButton2_Click()
Application.Quit
End Sub

Private Sub TextBox1_Change()
'parArr = Split(Word.Value, vbCr)
End Sub

Private Sub TextBox2_Change()
'Word.TextBox2.Value = Join(parArr, vbCr)
End Sub

убрала только одно слово
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952719
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всё-таки нашелся человек который мне помог. Спасибо Вам Эндрю Ципихович!!!
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952720
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенька, девочка, ощути разницу в оформлении
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
Private Sub CommandButton1_Click()
'зеркальное отражение текста функция StrReverse$, изначально текст должен быть выделенным после чего
'перевёрнутый текст появляется на месте выделенного текста
Dim parArr() As String
Dim myArr() As String
Dim par As Integer
Dim i As Integer

'Ниже:разбиваем текст на параграфы
parArr = Split(TextBox1.Value, vbCr)

For par =  0  To UBound(parArr)
'Ниже:текст параграфа бьём на слова
myArr = Split(parArr(par), " ")

'Ниже:переворачиваем каждое слово
For i =  1  To UBound(myArr) Step  2 
myArr(i) = StrReverse$(myArr(i))
Next i


'Ниже:собираем параграф назад
parArr(par) = Join(myArr, " ")
Next par

'Ниже:собираем весь текст
TextBox2.Value = Join(parArr, vbCr)

End Sub

Private Sub CommandButton2_Click()
Application.Quit
End Sub

Private Sub TextBox1_Change()
'parArr = Split(Word.Value, vbCr)
End Sub

Private Sub TextBox2_Change()
'Word.TextBox2.Value = Join(parArr, vbCr)
End Sub
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952724
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
что за вторая кнопка??
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952726
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

Да,согласна,разница есть)))
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952728
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

вторая кнопка это выход из приложения
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952734
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АмосенькаЦипихович Эндрю,

вторая кнопка это выход из приложения

зачем?
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952738
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

так удобнее))) да и форма не совсем пустая
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952739
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенька, хозяин барин
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952741
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АмосенькаЦипихович Эндрю,

так удобнее))) да и форма не совсем пустая
Я форму не вижу в упор!!!!!!!
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952755
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович ЭндрюAndreTMБудем с удовольствием наблюдать за топиком :)
Завистники, дайте девочку склеить! Диплом я так понимаю пополам, Амосенька, девочка?
Эндрю, это ты у нас "спец по Word". Мне так даже лень разбираться (ну, конечно, не в сплит-джойне), хватает и того, что с Экзелем достают. Так что завистники отсутствуют...
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952763
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

хм... вот этот скрипт,как вы называете, я написала для кнопки commandbutton, которую я назвала обработкой
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952781
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АмосенькаЦипихович Эндрю,

хм... вот этот скрипт,как вы называете, я написала для кнопки commandbutton, которую я назвала обработкой
ничего не понял, что я называю, что Вы называете????
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952784
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

слово "скрипт" я имею ввиду. вместо него я говорю "код")))
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952785
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенька, согласен можно поставить знак равенства
А где же Ваша форма?? я её не вижу!!
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952796
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

а здесь картинку нельзя вставить? показала бы как выглядит моя форма
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952804
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенька, там даже по скрипту понятно что её нет
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952811
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

выходит я не знаю что такое форма?? как так....
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952824
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АмосенькаЦипихович Эндрю,

выходит я не знаю что такое форма?? как так....
Вот не задача, там можно к сообщению файл прикреплять
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952831
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я называю "это" формой)))
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952836
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Амосенька,

так вроде форма, только я не пойму, вроде должно быть вместо
TextBox2.Value = Join(parArr, vbCr)
Me.TextBox2.Value = Join(parArr, vbCr)
Не знаю?????
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952843
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

да,правильный вариант 1-й
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952848
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

а Вы на паскале еще случайно программы не пишите?
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952850
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АмосенькаЦипихович Эндрю,

а Вы на паскале еще случайно программы не пишите?

только ВБА и никакого ВБ
...
Рейтинг: 0 / 0
Разработка макросов в MS Word
    #36952857
Амосенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ципихович Эндрю,

ясно,спасибо
...
Рейтинг: 0 / 0
62 сообщений из 62, показаны все 3 страниц
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разработка макросов в MS Word
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]