Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
suede
1 / 1 / 0
Регистрация: 22.02.2014
Сообщений: 50
1

Записать значения выражения на лист текстового документа Word

16.10.2015, 21:34. Просмотров 884. Ответов 3
Метки нет (Все метки)

Нужно для n=1...46 найти значения выражения и записать их на лист документа.Программа работает,только выводит значения в порядка убывания,как сделать,чтоб выводись в порядке возрастания?
Visual Basic
1
2
3
4
5
6
7
Sub Summa()
For k = 1 To 46 Step 1
sum = sum + k ^ 3
Documents(1).Paragraphs.Add Documents(1).Paragraphs(n + 1).Range
Documents(1).Paragraphs(n + 1).Range.Text = Str(k) & ": " & sum & Chr(13) + Chr(10)
Next k
End Sub
0
Миниатюры
Записать значения выражения на лист текстового документа Word  
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.10.2015, 21:34
Ответы с готовыми решениями:

Написать подпрограмму для вычисления для n=1.46 значений выражения,записать на лист текст.документа
Написать подпрограмму на VBA для вычисления для n=1...46 значений выражения \sum_{k=1}^{n}k^3...

Word 2013, cделать рамку только на 1 лист в середине документа
Как в Word 2013 cделать рамку только на 1 лист в середине документа?

Есть ли в Делфи компонент, который представляет из себя лист документа Word?
всем привет! подскажите есть ли в Делфи компонент,который представляет из себя лист документа ворд?

WORD Удалить последний в документе разрыв страницы, чтобы убрать пустой лист в конце документа
Удаляю из шаблона не нужные страницы Selection.GoTo wdGoToPage, wdGoToAbsolute, <номер страницы>...

Получить определенные значения из документа word макросом
Здравствуйте! Подскажите, пожалуйста, можно ли макросом произвести поиск по ключевому слову в...

3
Апострофф
Заблокирован
16.10.2015, 22:03 2
suede, вам давали решение - чем оно не устроило?
Visual Basic
1
2
3
4
5
6
Sub Summa()
  For s = 1 To 46
    sum = sum + s ^ 3
    ActiveDocument.Range.InsertAfter s & ": " & sum & vbCr
  Next s
End Sub
0
suede
1 / 1 / 0
Регистрация: 22.02.2014
Сообщений: 50
16.10.2015, 22:15  [ТС] 3
Мне нужно сделать записать именно так ,как в моем варианте.Так требует преподаватель
0
Апострофф
Заблокирован
16.10.2015, 22:29 4
Лучший ответ Сообщение было отмечено suede как решение

Решение

Visual Basic
1
2
3
4
5
6
Sub Summa1()
For k = 1 To 46 Step 1
sum = sum + k ^ 3
Documents(1).Paragraphs.Add.Range.Text = Str(k) & ": " & sum & Chr(13) + Chr(10)
Next k
End Sub
1
16.10.2015, 22:29
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.10.2015, 22:29

Получить значения из документа word по маске макросом в excel
Здравствуйте! Подскажите, пожалуйста, можно ли макросом произвести поиск по маске в документах...

На оборотной стороне документа word в правой части документа, текст съезжает за границу документа
Добрый вечер. Есть код, который формирует документ из шаблона. И все вроде бы, но происходит что...

Выделить из двух последних строк на странице документа Word цифры и записать их в строковую переменную
Есть несколько типов документов в rtf, каждый на ~1000 страниц, внутри счета и квитанции. Есть...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.