Как выйти из таблицы в ворде
Argument ‘Topic id’ is null or empty
Сейчас на форуме
© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru
Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.
| ООО «Планета Эксел» ИНН 7735603520 ОГРН 1147746834949 |
ИП Павлов Николай Владимирович ИНН 633015842586 ОГРНИП 310633031600071 |
Как сделать таблицу в Word
Таблицы в современном текстовом процессоре являются мощным и универсальным средством, позволяющим не только наглядно и компактно разместить информацию, но и придать странице любую структуру.
Здесь изложены ключевые моменты использования таблиц в текстовом редакторе Microsoft Word.
Таблица в Ворде. Основные моменты
1. Таблица – это структура, состоящая из горизонтальных строк и вертикальных столбцов, пересечением которых образуются ячейки.
2. Для вставки таблицы в документ необходимо поставить курсор в место, где должна быть таблица, в меню Word на вкладке «Вставка» нажать кнопку «Таблица». Дальше действовать можно 3 способами (см. рисунок справа, щелкните по нему мышкой для увеличения):
• в открывшемся подменю мышкой указать структуру будущей таблицы, выделив необходимое количество ячеек на макете;
• в открывшемся меню выбрать пункт «Вставить таблицу», указать необходимое число строк и столбцов, затем нажать ОК;
• в открывшемся меню выбрать пункт «Нарисовать таблицу». Указатель мышки превратится в своеобразный карандаш, которым таблицу в документе можно начертить. Чтобы выйти из режима рисования, нужно опять нажать кнопку «Нарисовать таблицу»;
3. Текст в каждой ячейке таблицы в Ворде форматируется как обычный текст на странице. Можно задавать тип и размер шрифта, отступы от края и др. Одновременно можно форматировать содержимое нескольких ячеек. Для этого нужно выделить ячейки (см. рисунок):
• для выделения всех ячеек вертикального столбца – подвести указатель мышки в верхнюю часть верхней ячейки столбца. Когда указатель превратится в черную стрелку, повернутую в низ — щелкнуть левой кнопкой мышки;
• для выделения всех ячеек горизонтальной строки – поставить указатель мышки левее крайней левой ячейки строки. Когда указатель развернется вправо – щелкнуть левой кнопкой мышки;
• мышкой одновременно можно выделять ячейки из разных строк и столбцов, если удерживать нажатым левый Ctrl.
4. Существующую таблицу в Ворде очень удобно форматировать при помощи конструктора. Чтобы его открыть, необходимо установить курсор в одну из ячеек таблицы и перейти на вкладку «Конструктор», появившуюся в меню Word. Здесь собраны все необходимые инструменты для работы с таблицами, а также готовые шаблоны таблиц (см. рисунок).
5. Соседние ячейки (две или больше) можно объединить в одну, меняя таким образом структуру таблицы. Для этого нужно выделить эти ячейки, щелкнуть по ним правой кнопкой мышки и в открывшемся контекстном меню выбрать пункт «Объединить ячейки» (см. рисунок).
Многие параметры таблицы можно изменять в ее свойствах – щелкнуть правой кнопкой по таблице и в открывшемся контекстном меню выбрать пункт «Свойства таблицы».
ПОДЕЛИТЬСЯ:
НАПИСАТЬ АВТОРУ
Как выйти из таблицы в ворде
Как выйти из режима работы с таблицей при выгрузке в word из 1с?
Прочел все топики за два дня и не могу выйти из таблиц
Док1.Tables.Add(Док1.Paragraphs(к).Range, т.количествоСтрок(), 2);
Потом
т.Выбратьстроки();
тута цикл из таких вот строк
Док1.Tables(1).Cell(i, 1).Range.Text = «всяка хрень»;
А как перейти к дальнейшему печатанию текста.
до этого я делал это так:
к=к+1;
СтрТекст=Секция.Область(«R21C1:R21C11»).Текст;
Док1.Paragraphs(к).Range().InsertAfter(СтрТекст);
Теперь же эта конструкция лезет в первую колонку таблицы замещая собой то что в ней находиться и текст после таблицы не печатается ни в какую
У кого нить есть под рукой книжка «системное программирование на 1с»? там этот вопрос разобран но она у меня дома а я в отпуске в Пензе, помогите а то 15 на работу надо с уже готовой прогой приходить
InsertParagraphAfter(); попробуй
или
Док1.Tables(1).Cell(Счетчик,4).Range().InsertAfter(«всяко»);
а почему Док1.Tables(1).Cell(Счетчик,4).Range().InsertAfter(«всяко»);
число 4. у меня таблица n на 2
попробовал
Док1.InsertParagraphAfter();
Ругается
не правильный совет:
во втором случае пишет неправильный номер семейства
как сделать как в макросе:
Selection.EscapeKey .
т. е Selection.EndKey .
(8) может это поможет : http://www.gotdotnet.ru/LearnDotNet/NETFramework/22156.aspx
Док1.Paragraphs.Add();
Док1.Words.Last.Text = «bkjbhjk»;
Всем спасибо! Все гораздо проще:
Док1.Paragraphs.Add(); и все.
дальше надо было просто правильно спозиционироваться, чего я не сделал , поэтому я попадал в первый столбец первой колонки, надо было
ИндСтроки=Документ1.Paragraphs.Count();
Ниче не понял.
Перем ВыгрузкаВВорд,ТекстСтр,Документ1,W,Инд, ИндСтроки;
Перем ПаспортПокупатель;
Перем ПаспортПокупатель1;
Перем ПаспортПокупатель2;
Процедура Сформировать(Инд,ТекстСтр,Жирн)
//**********Непосредственно печать текстовой строки
Документ1.Paragraphs(Инд).Range().InsertAfter(ТекстСтр);
Сообщить(«инд= «+инд+» как на самом деле: «+ Документ1.Paragraphs.Count() ) ;
Если Жирн=0 Тогда
Документ1.Paragraphs(Документ1.Paragraphs.Count()).Range.Font.Bold=0;
Документ1.Paragraphs(Документ1.Paragraphs.Count()).Range.ParagraphFormat.Alignment = 0;
ИначеЕсли Жирн=1 Тогда
Документ1.Paragraphs(Документ1.Paragraphs.Count()).Range.Font.Bold=1;
Документ1.Paragraphs(Документ1.Paragraphs.Count()).Range.ParagraphFormat.Alignment = 1;
ИначеЕсли Жирн=2 Тогда
Документ1.Paragraphs(Документ1.Paragraphs.Count()).Range.Font.Bold=1;
Документ1.Paragraphs(Документ1.Paragraphs.Count()).Range.ParagraphFormat.Alignment = 0;
Иначе
Документ1.Paragraphs(Документ1.Paragraphs.Count()).Range.Font.Bold=1;
Документ1.Paragraphs(Документ1.Paragraphs.Count()).Range.ParagraphFormat.Alignment = 0;
КонецЕсли;
//*******************************************
Процедура СформироватьПечать()
Таб = СоздатьОбъект(«Таблица»);
Таб.ИсходнаяТаблица(«Таблица1»);
ИндСтроки=1;
//*****************************************************
Если ВыгрузкаВВорд=1 Тогда
Попытка
W=СоздатьОбъект(«Word.Application»);
W.Visible=1;
Исключение
Предупреждение(«Не возможно создать документ — приложение Microsoft Word не установлено. «,60);
Возврат;
КонецПопытки;
W.Documents.Add();
Документ1=W.ActiveDocument();
ТекстСтр=»»;
Сформировать(ИндСтроки,ТекстСтр,0);
//*************************************** закончили с инициализацией
Секция = Таб.ПолучитьСекцию(«Шапка»);
//********** Таблица ************************
Документ1.Tables.Add(Документ1.Paragraphs(ИндСтроки).Range, График.КоличествоСтрок(), 2);
Документ1.Tables(1).Cell(НомерСтроки+1, 1).Range.Text = Секция.Область(«R19C1:R19C11»).Текст;;
Документ1.Tables(1).Cell(НомерСтроки+1, 2).Range.Text = Секция.Область(«R20C1:R20C11»).Текст;;
Документ1.Tables(1).Rows.Add();
График.ВыбратьСтроки();
Пока График.ПолучитьСтроку() = 1 Цикл
НомерСтроки=НомерСтроки+1;;
Документ1.Tables(1).Cell(НомерСтроки+1, 1).Range.Text = » «+СокрЛП(Формат( График.Сумма,»Ч15 ‘»))+» («+СокрЛП(Формат( График.Сумма,»ЧПДС»)) +»).»;
Документ1.Tables(1).Cell(НомерСтроки+1, 2).Range.Text = » «+ Нрег(Формат(График.ДатаОплаты ,»Д (0)ДДММММГГГГ»)) ;
//Документ1.Tables(1).Rows.Add();
КонецЦикла;
Документ1.Paragraphs.Add(); //Выход из таблицы
ИндСтроки=Документ1.Paragraphs.Count();
Таб.ВывестиСекцию(«Шапка2»);
Таб.Опции(0,0,0,0,»СохрАкт»);
Таб.Показать();
КонецПроцедуры
//*****************************************************************************
Процедура ПриВыбореЗакладки(Номер,Значение) //предопределенная
Если Значение = 1 Тогда
Форма.ИспользоватьСлой(«Основной»);
Иначе
Форма.ИспользоватьСлой(«Покупатели»);
КонецЕсли;
КонецПроцедуры //ПриВыбореЗакладки
//*******************************************
Процедура ПриОткрытии()
Форма.ИспользоватьЗакладки(1);
Форма.Закладки.ДобавитьЗначение(1,»Основной режим»);
Форма.Закладки.ДобавитьЗначение(2,»еще покупатели» );
Форма.ИспользоватьСлой(«Основной»);
График.НоваяКолонка(«НомерПП»,»Число»,3,,»№ п/п» );
График.НоваяКолонка(«ДатаОплаты»,»Дата». «Дата гр» );
График.НоваяКолонка(«Сумма»,»Число»,15,2,»сумма пл» );
НомерДоговора=Объект1.НомерДоговора;
ДатаДоговора=Объект1.ДатаДок;
СрокДоговора=Объект1.СрокДоговора;
ВыгрузкаВВорд=Объект1.ВыгрузкаВВорд;
СуммаДоговора=Объект1.СумаДоговора;
Если Объект1.КоличествоКлиентов=0 Тогда
Организация=СокрЛП(Объект1.Покупатель.Наименование);
Иначе
Организация=СокрЛП(Объект1.Покупатель.Наименование);
Организация=Организация+»;»+СокрЛП(Объект1.Покупатель1.Наименование);
Организация=Организация+»;»+СокрЛП(Объект1.Покупатель2.Наименование);
Организация=Организация+»;»+СокрЛП(Объект1.Покупатель3.Наименование);
Организация=Организация+»;»+СокрЛП(Объект1.Покупатель4.Наименование);
Организация=Организация+»;»+СокрЛП(Объект1.Покупатель5.Наименование);
Организация=Организация+»;»+СокрЛП(Объект1.Банк.Наименование);
КонецЕсли;
Если Объект1.КоличествоКлиентов=0 Тогда
ПочтовыйАдрес=СокрЛП(Объект1.Покупатель.ПочтовыйАдрес);
Иначе
ПочтовыйАдрес=ПочтовыйАдрес+»;»+СокрЛП(Объект1.Покупатель1.ПочтовыйАдрес);
ПочтовыйАдрес=ПочтовыйАдрес+»;»+СокрЛП(Объект1.Покупатель2.ПочтовыйАдрес);
ПочтовыйАдрес=ПочтовыйАдрес+»;»+СокрЛП(Объект1.Покупатель3.ПочтовыйАдрес);
ПочтовыйАдрес=ПочтовыйАдрес+»;»+СокрЛП(Объект1.Покупатель4.ПочтовыйАдрес);
ПочтовыйАдрес=ПочтовыйАдрес+»;»+СокрЛП(Объект1.Покупатель5.ПочтовыйАдрес);
ПочтовыйАдрес=ПочтовыйАдрес+»;»+СокрЛП(Объект1.Банк.ПочтовыйАдрес);
КонецЕсли;
Если Объект1.КоличествоКлиентов=0 Тогда
ДокументСерия=СокрЛП(Объект1.Покупатель.ДокументСерия);
ДокументНомер=СокрЛП(Объект1.Покупатель.ДокументНомер);
ДокументДатаВыдачи=Объект1.Покупатель.ДокументДатаВыдачи;
ДокументКемВыдан=СокрЛП(Объект1.Покупатель.ДокументКемВыдан);
ДокументДатаРождение=Объект1.Покупатель.ДатаРождения;
ПаспортПокупатель=»Гр. Российской Федерации «+СокрЛП(Объект1.Покупатель.Наименование);
ПаспортПокупатель=ПаспортПокупатель+», дата рождения: «+ (Формат(ДокументДатаРождение,»ДДДММГГГГ»))+»г., паспорт: «+ДокументСерия+» «+ДокументНомер;
ПаспортПокупатель=ПаспортПокупатель+», выдан: «+ДокументКемВыдан+»; дата выдачи: «+(Формат(ДокументДатаВыдачи,»ДДДММГГГГ»))+»г.,»;
ПаспортПокупатель=ПаспортПокупатель+»зарегистрирован(а) по адресу:»+СокрЛП(Объект1.Покупатель.ПочтовыйАдрес);
ПаспортПокупатель=ПаспортПокупатель+»Подпись: _____________________/»+СокрЛП(Объект1.Покупатель.Наименование)+»/»;
Иначе
//*** Покупатель
ДокументСерия=СокрЛП(Объект1.Покупатель.ДокументСерия);
ДокументНомер=СокрЛП(Объект1.Покупатель.ДокументНомер);
ДокументДатаВыдачи=Объект1.Покупатель.ДокументДатаВыдачи;
ДокументКемВыдан=СокрЛП(Объект1.Покупатель.ДокументКемВыдан);
ДокументДатаРождение=Объект1.Покупатель.ДатаРождения;
//*** Покупатель 1
ДокументСерия1=СокрЛП(Объект1.Покупатель1.ДокументСерия);
ДокументНомер1=СокрЛП(Объект1.Покупатель1.ДокументНомер);
ДокументДатаВыдачи1=Объект1.Покупатель1.ДокументДатаВыдачи;
ДокументКемВыдан1=СокрЛП(Объект1.Покупатель1.ДокументКемВыдан);
ДокументДатаРождение1=Объект1.Покупатель1.ДатаРождения;
//*** Покупатель 2
ДокументСерия2=СокрЛП(Объект1.Покупатель2.ДокументСерия);
ДокументНомер2=СокрЛП(Объект1.Покупатель2.ДокументНомер);
ДокументДатаВыдачи2=Объект1.Покупатель2.ДокументДатаВыдачи;
ДокументКемВыдан2=СокрЛП(Объект1.Покупатель2.ДокументКемВыдан);
ДокументДатаРождение2=Объект1.Покупатель2.ДатаРождения;
ПаспортПокупатель=»Гр. Российской Федерации «+СокрЛП(Объект1.Покупатель.Наименование);
ПаспортПокупатель=ПаспортПокупатель+», дата рождения: «+(Формат(ДокументДатаРождение,»ДДДММГГГГ»))+»г., паспорт: «+ДокументСерия+» «+ДокументНомер;
ПаспортПокупатель=ПаспортПокупатель+», выдан: «+ДокументКемВыдан+»; дата выдачи: «+(Формат(ДокументДатаВыдачи,»ДДДММГГГГ»))+»г.,»;
ПаспортПокупатель=ПаспортПокупатель+»зарегистрирован(а) по адресу:»+СокрЛП(Объект1.Покупатель.ПочтовыйАдрес);
ПаспортПокупатель=ПаспортПокупатель+»Подпись: _____________________/»+СокрЛП(Объект1.Покупатель.Наименование)+»/»;
ПаспортПокупатель1=»Гр. Российской Федерации «+СокрЛП(Объект1.Покупатель1.Наименование);
ПаспортПокупатель1=ПаспортПокупатель1+», дата рождения: «+(Формат(ДокументДатаРождение1,»ДДДММГГГГ»))+»г., паспорт: «+ДокументСерия1+» «+ДокументНомер1;
ПаспортПокупатель1=ПаспортПокупатель1+», выдан: «+ДокументКемВыдан1+»; дата выдачи: «+(Формат(ДокументДатаВыдачи1,»ДДДММГГГГ»))+»г.,»;
ПаспортПокупатель1=ПаспортПокупатель1+»зарегистрирован(а) по адресу:»+СокрЛП(Объект1.Покупатель1.ПочтовыйАдрес);
ПаспортПокупатель1=ПаспортПокупатель1+»Подпись: _____________________/»+СокрЛП(Объект1.Покупатель1.Наименование)+»/»;
Если ПустоеЗначение(Объект1.Покупатель2)=1 Тогда
Иначе
ПаспортПокупатель2=»Гр. Российской Федерации «+СокрЛП(Объект1.Покупатель2.Наименование);
ПаспортПокупатель2=ПаспортПокупатель2+», дата рождения: «+(Формат(ДокументДатаРождение2,»ДДДММГГГГ»))+»г., паспорт: «+ДокументСерия2+» «+ДокументНомер2;
ПаспортПокупатель2=ПаспортПокупатель2+», выдан: «+ДокументКемВыдан2+»; дата выдачи: «+(Формат(ДокументДатаВыдачи2,»ДДДММГГГГ»))+»г.,»;
ПаспортПокупатель2=ПаспортПокупатель2+»зарегистрирован(а) по адресу:»+СокрЛП(Объект1.Покупатель2.ПочтовыйАдрес);
ПаспортПокупатель2=ПаспортПокупатель2+»Подпись: _____________________/»+СокрЛП(Объект1.Покупатель2.Наименование)+»/»;
КонецЕсли;
КонецЕсли;
НомерПоБТИ=СокрЛП(Объект1.Квартира.НомерПоБТИ);
Адрес=СокрЛП(Объект1.Квартира.Наименование);
ПлощадьБТИ=Объект1.Квартира.ПлощадьБТИ;
Типкв=Объект1.Квартира.ТипКвартиры;
Этаж=Объект1.Квартира.Этаж;
Объект1.ВыбратьСтроки();
СтрокаГрафик=»»;
Пока Объект1.ПолучитьСтроку()=1 Цикл
График.НоваяСтрока();
График.НомерПП=Объект1.НомерСтроки;
График.ДатаОплаты=Объект1.ДатаПл;
График.Сумма=Объект1.СумаПлатежа;
СтрокаГрафик=СтрокаГрафик+СокрЛП(Формат( График.Сумма,»Ч15 ‘»))+» («+СокрЛП(Формат( График.Сумма,»ЧПДС»)) +»).»+» — до «+ Нрег(Формат(График.ДатаОплаты ,»Д (0)ДДММММГГГГ»)) ;
Если ПустоеЗначение(Организация)=1 Тогда
Предупреждение(«пропущен реквизит — Покупатель»);
СтатусВозврата(0);
КонецЕсли;
Вопрос Word
Люди добрые подскажите пишу контрольную в Word 7 в Таблице всё написала ______________________а теперь мне нужно выти за границы таблицы что бы написать за таблицей внизу «конец» но палочка эта не выходит за таблицу как выйти. помогите что нужно сделать
Лучший ответ
тыкни в таблицу мылшкой — открой вкладку «консртруктор » — там справа где-то есть инструмент «ластик» вот возьми и удали ненужную границу ячейки..
Остальные ответы
объедини ячейки в таблице
а мышкой курсор за границу таблицы переместить пробовали?
вот такой указатель вынесите мышкой за пределы таблицы и щелкните там, где надо
Похожие вопросы