Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Коллеги, прошу Вас посоветовать.
Был сформирована макрос-процедура, обрабатывающая определенным образом текущий абзац в файле Word.
Как изменить макрос так, чтобы он обрабатывала все абзацы до конца файла?
Dim prg as Paragraph
For each prg in ActiveDocument.Paragraphs
With prg
.............. ' Команды обработки либо процедура использующая в качестве аргумента Paragraph
End With
Next prg
Пришлите макрос.......
Пришлите макрос.......
Это к вопросу http://wordexpert.ru/forum/viewtopic.php?id=938
Там макрос такой:
Sub Макрос1()
'
' Макрос1 - Перемещение последнего слова на первое место
' в текущей строке
'
Dim StringA, wordLast, wordsFirst As String
Dim xx1, xx2 As Integer
Selection.HomeKey Unit:=wdLine
Selection.Paragraphs(1).Range.Select
xx1 = 1
xx2 = 1
StringA = Selection.Paragraphs(1)
Do While xx1 > 0 And xx2 > 0
xx1 = InStr(xx1, Trim(StringA), " ")
xx2 = InStr(xx1 + 1, StringA, " ")
If xx2 > 0 Then
xx1 = xx2
End If
Loop
wordLast = Mid(Trim(StringA), xx1 + 1, Len(StringA) - xx1 - 1)
wordsFirst = Mid(StringA, 1, xx1)
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.TypeText (Trim(wordLast) & " " & Trim(wordsFirst))
End SubОн позволяет переместить последнее слово в абзаце на первое место.
Проблема состоит в том, чтобы сделать это для всех строк файла.
Макрос не доработан, нет учета регистра 1 знака 1 слова и 1 знака последнего слова, также есть другие условия.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Перебор абзацев с помощью макроса
Наверное, одна из самых востребованных программ пакета Microsoft – это редактор Microsoft Word, очень удобное мощное приложение с множеством функций. На портале о Microsoft Office Word вы узнаете про: как настроить в ворде абзац. Практически каждый владелец компьютера, хотя бы раз, но работал в этой программе. И, естественно, у новичков - возникает множество вопросов по работе с приложением, а у опытных пользователей - есть свой опыт и свои секреты по этой же работе. На портале о Microsoft Office Word вы узнаете про: как поставить страницы, чтобы первая была без номера. Одним нужны ответы и советы, а другие – могут ответить и посоветовать. Для таких случаев и создан сайт Ворд Эксперт. Наш сайт о Microsoft Office Word даст ответ про: замена одного текста на другие в разных файлах.
Cайт Ворд Эксперт предоставит вам всевозможную информацию по приложению Microsoft Word. В основном разделе сайта можно найти практически все - и общую информацию, и список рекомендуемой литературы, и ответы на более конкретные вопросы - по макросам и форматированию, по работе с текстом и картинкой, по редактированию и копированию, и т.п. На портале о Microsoft Office Word вы узнаете про: возможно ли защитить текст от копирования.
На случай, если вы совершенный новичок или же возникают серьезные затруднения в работе с приложением – вы всегда можете обратиться в раздел заказов. Наш сайт о Microsoft Office Word даст ответ про: гиперссылка в excel 2007. Вам напишут макросы, разработают шаблоны, или сделают иную работу в редакторе. Все, что вам нужно – это просто оставить заявку в разделе. На портале о Microsoft Office Word вы узнаете про: надстрочный знак word.
Без сомнения, и новичкам, и опытным пользователям будет интересно и полезно зайти на форум сайта, где можно пообщаться, поделиться мнениями и впечатлениями и о программе, и о самом сайте. Наш сайт о Microsoft Office Word даст ответ про: как не нумеровать первую страницу в word 2007.