По теме из базы знаний
- Когда шаблоны рвутся, или Вывод в Word по-простому
- Заметка о некоторых приемах форматирования макета в MS Word при разработке печатной формы
- Печать дополнительного соглашения в ЗУП 2.5
- Доработка визуализации ЭП для 1С:Документооборот государственного учреждения КОРП
- Печать в docx методами БСП без COM объекта
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Ориентироваться в методах, перечислениях и прочем помогает описание объектной модели от MS:
(2) не подходит коллекция Fields у меня пустая, возможно из за того, что файл открывается новый еще не сохраненный.
Нашел такой вариант, но хотелось бы выделить всю строку, а не одно слово.
For Each i In myDocument.Words() do
f i.text = "Слово" then
myDocument.Range(i.Start, i.End).Select();
endif;
EndDo;
Нашел такой вариант, но хотелось бы выделить всю строку, а не одно слово.
For Each i In myDocument.Words() do
f i.text = "Слово" then
myDocument.Range(i.Start, i.End).Select();
endif;
EndDo;
Word = Новый COMОбъект("Word.Application");
...
Для каждого Слово Из Область.Words Цикл
СловоДляПроверки = СокрЛП(Слово.Text);
...
InsertBreak(Word.WdBreakType _
.wdSectionBreakNextPage)
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.
(5)
Не понял зачем...
Разрыв работает из любой "точки" строки (позиции)
Примерно:
Область = Док.Range(0,0);
Область.InsertBreak(2); //наверно "2" (в кавычках) - не помню точно
P.S.ПоследнийПараграф=Док.Range().Paragraphs.Add (Док.Range().Characters.Last);
P.P.S.
Но как выделить всю строку?
Не понял зачем...
Разрыв работает из любой "точки" строки (позиции)
Примерно:
Область = Док.Range(0,0);
Область.InsertBreak(2); //наверно "2" (в кавычках) - не помню точно
P.S.ПоследнийПараграф=Док.Range().Paragraphs.Add (Док.Range().Characters.Last);
P.P.S.
word = Новый COMОбъект("Word.Application");
word.Caption="Личные данные.doc";
word.Visible=1;
doc = word.Documents;
newdoc = doc.Add();
selection = word.Selection;
table = newdoc.Tables.Add(selection.Range(),40,2,1,0);
Selection.MoveDown(5,49);
Selection.InsertBreak(7);
selection = word.Selection;
table = newdoc.Tables.Add(selection.Range(),40,2,1,0);
Selection.MoveDown(5,48);
Selection.InsertBreak(7);
selection = word.Selection;
table = newdoc.Tables.Add(selection.Range(),40,2,1,0);//сохранение д-та
doc.SaveAs("d:\Личные данные.doc");
doc = 0;
word.quit(0);
word = 0;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот