Vba word символ разрыва страницы

Обновлено: 22.01.2025

Репутация: 8
Всего: 59

Попытался найти ответ и-и-и. мне это тоже интересно стало. Какой же код символа переноса строки у Word? Кто знает?
Если тебе плюют в спину, значит ты впереди.

Репутация: 19
Всего: 99

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Репутация: 2
Всего: 2

Selection.Find.ClearFormatting
With Selection.Find
.Text = "address"
.Replacement.Text = ""

End With
Selection.TypeParagraph
Selection.Text = "Country" & Chr(13) & "av. Aseerte, 123"
Selection.Find.Execute
End Sub

Может ты вот так попробуешь ?

Selection.TypeParagraph - это метод, он знает как переводить строку.
Вся беда в том, что вообще, то что я написал в вопросе, работает. Не работает это в случае если [address] стоит в последней строке в ячейке таблицы. Если поставить знак переноса после него (т.е. сделать так чтоб он был не в последней строке ячейки), то все работает. Но ведь ворд как-то может ставить перенос строки, даже если слово в последней строке ячейки. Как он это делает? Какой же символ переносит строку независимо от того, где она находится?

Репутация: 2
Всего: 2

В Word сделана Счет-фактура. Для того чтобы разметить в каких областях листа, что находиться, я использую таблицу без видимых границ. Вообще весь файл - это шаблон. Потом, из VB, я работаю с этим шаблоном, т.е. ищу метасимволы, и заменяю их на соответствующие значения из прораммы. Но если метасимвол в последней строке ячейки, то он не хочет переносить строку. В других местах переносит, а тут нет.

Репутация: 19
Всего: 99

День добрый форумчане.
СПАСАЙТЕ плииз.
Возможно ли в выделенной строке Word определить наличие разрыва страницы (^m) .

Через поиск по спецсимволу ^m придумать ничего не могу
(макрос пишется на коленях с большой скоростью, поэтому не критикуйте пожалуйста сильно)
Задача:
при сборе информации в массив производится перебор всех строк. Возможно ли на этой стадии определить имеется ли разрыв страницы?
В примере необходимо удалить ПЕРВЫЙ разрыв страницы и одну пустую строку следом за ним. Разрыв страницы в конце документа трогать нельзя.
В реальности таких разрывов внутри документов может попадаться много.

Или еще вариант: выделить документ по закладкам и внутри выделения убрать разрыв страницы и одну пустую строку следом за ним.

Подскажите пожалуйста. Как реализовать следующее поведение: из 1С в ворде необходимо найти нужное слово, удалить его и вместо этого слова вставить разрыв страницы.

Так же как и при интерактивной работе, программно любое слово можно заменить на специальный символ – абзац или разрыв страницы.
Разрыв страницы это "^m": Так же как и при интерактивной работе, программно любое слово можно заменить на специальный символ – абзац или разрыв страницы.
Разрыв страницы это "^m":

(2) не подходит коллекция Fields у меня пустая, возможно из за того, что файл открывается новый еще не сохраненный.
Нашел такой вариант, но хотелось бы выделить всю строку, а не одно слово.

For Each i In myDocument.Words() do
f i.text = "Слово" then
myDocument.Range(i.Start, i.End).Select();
endif;
EndDo;

wdColumnBreak 8 Column break at the insertion point.
wdLineBreak 6 Line break.
wdLineBreakClearLeft 9 Line break.
wdLineBreakClearRight 10 Line break.
wdPageBreak 7 Page break at the insertion point.
wdSectionBreakContinuous 3 New section without a corresponding page break.
wdSectionBreakEvenPage 4 Section break with the next section beginning on the next even-numbered page. If the section break falls on an even-numbered page, Word leaves the next odd-numbered page blank.
wdSectionBreakNextPage 2 Section break on next page.
wdSectionBreakOddPage 5 Section break with the next section beginning on the next odd-numbered page. If the section break falls on an odd-numbered page, Word leaves the next even-numbered page blank.
wdTextWrappingBreak 11 Ends the current line and forces the text to continue below a picture, table, or other item. The text continues on the next blank line that does not contain a table aligned with the left or right margin. (3)вы как раз описали тот вариант который я нашел. Но как выделить всю строку?

Разрыв работает из любой "точки" строки (позиции)

Примерно:
Область = Док.Range(0,0);
Область.InsertBreak(2); //наверно "2" (в кавычках) - не помню точно

(6)
Тоже использую, на мой взгляд самый удобный способ.

Вообще на будущее ТС, в самом Word: Вид->Макросы->Запись макроса
И потом можно посмотреть код исполнения данного действия в макросе по кнопке изменить .

Репутация: нет
Всего: нет

Такая проблема, помогите;))

Открываю делфёй вордовский документ: каждую страницу надо записать в отдельный вордовский документ. Когда я говорю, каждую страницу, я имею в виду текст до разрыва страницы, он может быть и на пять страниц, и на 5 строчек.
Как это сделать?
В принципе проблема у меня:
1. как найти разрыв страницы;
2. как "взять" весь текст между разрывами (подозреваю, что можно через characters);

Кто-нибудь, подскажите что-нибудь

Репутация: нет
Всего: 50

1. Делай поиск спец символа "разрыв страницы" - "^m"
2. Выделяешь все от разрыва страницы до начала документа, вырезаешь, вставляешь в новый документ
3. goto 1

Репутация: нет
Всего: нет

Кстати, заодно спрошу: откуда вы все берёте эти спецсимволы? Где-то есть такой док?

Репутация: 15
Всего: 108

в большинстве случаев методом экпериментов. по крайней мере я. документации на Ворд я не нашёл.
"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Репутация: нет
Всего: нет

А как мне это всё выделить, я что-то не могу сообразить??

Вот так вот я наверное найду разрыв страницы:

. и после этого курсор стоит перед разрывом, да?
Как мне теперь выделить??

Репутация: 15
Всего: 108

это выделит весь текст, а не искомый.

в третьих, если эта страница вставлена, не через команду -> вставка -> разрыв -> новую страницу, то этого символа в тексте не найдёшь.

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Репутация: нет
Всего: 50

Берутся легко.
Делаешь соответствующий макрос и его код переносишь в Delphi (естественно с синтаксисом)

Репутация: 15
Всего: 108

упс. у меня не находило. но оказалось, что это был глюк самого ворда. как я этот глюк убрал. всё стало находить без проблем.
"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Репутация: нет
Всего: нет

Ага, начинаю понимать.

. только HomeKey ругается, говорит: "Неверный параметр"!!
Почему?

И, вот ещё какой вопрос, у меня

- это TWordApplication, в нём открыто два документа, объект Selection - это курсор в том документе, который на данный момент является активным, так?

Репутация: нет
Всего: 50

Опечатка
p2:=wdExtend;

Точно не знаю, но я всегда активизурую нужный мне документ (doc.Activate) потом Selection указывает на него.

Репутация: нет
Всего: нет

Ой-ой-ой
Прошу прощения за оплошность.

Репутация: 15
Всего: 108

это выделение. Если ничего не выделено, то оно находится в позиции курсора. А так это может быть картинка, кусок текста и т.д. и т. п.
"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

[ Время генерации скрипта: 0.1423 ] [ Использовано запросов: 21 ] [ GZIP включён ]

Читайте также: