Как выйти из таблицы в ворде
Argument ‘Topic id’ is null or empty
Сейчас на форуме
© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru
Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.
| ООО «Планета Эксел» ИНН 7735603520 ОГРН 1147746834949 |
ИП Павлов Николай Владимирович ИНН 633015842586 ОГРНИП 310633031600071 |
Удаление границ таблицы в Word для Mac
При вставке таблицы или ее создании в программе Word автоматически добавляются границы черного цвета. Вы можете изменить границы или удалить их.
Удаление всех границ
- Щелкните любую ячейку, чтобы отобразить маркер перемещения таблицы
Совет: Обязательно выберите пункт Границы, а не Стили границ.
Удаление только некоторых границ
- Выделите ячейки, для которых необходимо удалить некоторые границы.
- На вкладке Конструктор таблиц щелкните стрелку параметра Границы и выберите нужные параметры.
Совет: Обязательно выберите пункт Границы, а не Стили границ.
Удаление отдельных границ
- Щелкните любую ячейку, чтобы отобразить вкладку Конструктор таблиц.
- На вкладке Конструктор таблиц в поле Тип линии выберите пункт Без границ. Курсор превратится в кисточку, с помощью которой вы сможете стереть отдельные границы.
Как после вставки таблицы в ворде выйти из таблицы
В Майкрософт офис 2013 всё, что выше не работает.
Мне помогло это:
Перед таблицей ставите курсор, нажимаете Enter, если таблица на несколько страниц он перебросит вас на следующую страницу перед продолжением таблицы, далее нажимаете ещё раз Enter, и курсор будет в конце таблицы. В фото снизу указано.
Помогло не Alt+Enter, а Ctrl+Enter (видимо, эти кнопки как и со сменой шрифта, работают у каждого «индивидуально))
Марианна АнатольевнаУченик (161) 9 месяцев назад
Setzen Sie statt der Punkte die entsprechende Präposition ein.
Ich lerne deutsch… 2 Jahren
seit
bis
entgegen
nach
Как выйти из таблицы в ворде
Как выйти из режима работы с таблицей при выгрузке в 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);
КонецЕсли;