Добавляйте текст в начало, в конец или на другую позицию в ячейках Excel
Когда вам нужно вставить некий текст в каждую ячейку Excel, создавать функции или писать VBA может занять довольно много времени. Ещё сложнее, если, к примеру, вам нужно добавить текст в конкретную позицию в ячейке или до конкретного текста.
Инструмент «Добавить знаки» поможет добавить любую текстовую строку (буквы, числа, пробелы, запятые или любые другие знаки) в ячейки за секунды:
Добавить в начало или в конец каждой ячейки
Добавить в середину ячеек после указанного числа знаков
Добавить до или после заданного текста
Перед началом работы добавьте «Добавить знаки» в Excel
«Добавить знаки» – это один из 20+ инструментов в составе надстройки XLTools для Excel. Работает в Excel 2019, 2016, 2013, 2010, десктоп Office 365.
Скачать XLTools для Excel
– пробный период дает 14 дней полного доступа ко всем инструментам.
Как добавить знаки в начало ячеек
Нажмите кнопку Очистка данных на панели XLTools Вы выпадающем списке выберите Добавить знаки Откроется диалоговое окно.
Выберите диапазон, в котором вы хотите добавить знаки.
Совет: кликните по любой ячейке таблицы, и вся таблица будет выбрана автоматически.
Введите текст, который нужно вставить.
Выберите позицию в ячейке: в начало .
Нажмите ОК Готово, текст добавлен в начало каждой ячейки.
Как добавить знаки в конец ячеек
Нажмите кнопку Очистка данных на панели XLTools Вы выпадающем списке выберите Добавить знаки Откроется диалоговое окно.
Выберите диапазон, в котором вы хотите добавить знаки.
Совет: кликните по любой ячейке таблицы, и вся таблица будет выбрана автоматически.
Введите текст, который нужно вставить.
Выберите позицию в ячейке: в конец .
Нажмите ОК Готово, текст добавлен в конец каждой ячейки.
Как добавить знаки в середину ячеек
Нажмите кнопку Очистка данных на панели XLTools Вы выпадающем списке выберите Добавить знаки Откроется диалоговое окно.
Выберите диапазон, в котором вы хотите добавить знаки.
Совет: кликните по любой ячейке таблицы, и вся таблица будет выбрана автоматически.
Введите текст, который нужно вставить.
Выберите позицию в ячейке: после знака номер N Укажите число знаков от начала, куда нужно вставить текст.
Нажмите ОК Готово, текст добавлен в середину каждой ячейки.
Как добавить знаки до или после указанного текста в ячейках
Нажмите кнопку Очистка данных на панели XLTools Вы выпадающем списке выберите Добавить знаки Откроется диалоговое окно.
Выберите диапазон, в котором вы хотите добавить знаки.
Совет: кликните по любой ячейке таблицы, и вся таблица будет выбрана автоматически.
Введите текст, который нужно вставить.
Выберите позицию в ячейке: перед текстом или после текста Введите текст, который нужно найти (по умолчанию с учётом регистра).
Нажмите ОК Готово, текст добавлен перед или после заданного текста в те ячейки, где он был найден.
Задайте параметры вставки знаков в ячейки
По умолчанию инструмент «Добавить знаки» не обрабатывает ячейки с формулами, чтобы не повлиять на расчёты. Вы можете задать дополнительные параметры обработки данных:
Отметьте флажком Пропустить пустые ячейки Отметьте эту опцию, если вы не хотите добавлять знаки в пустые ячейки.
Отметьте флажком Пропустить нетекстовые ячейки Отметьте эту опцию, если вы хотите обработать только ячейки с текстом. Все ячейки с числовым, денежным форматом, форматом даты или другим форматом будут пропущены.
Отметьте флажком Пропустить строку заголовка Отметьте эту опцию, если вы не хотите обрабатывать первую строку с заголовком таблицы.
Вставить текст после таблицы Word
Создаю документ Word из Excel методами VBA
Создал документ
Вставил текст
После него вставил таблицу
Как после этой таблицы вставить текст и вторую таблицу?
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:
Вставить определенный текст в пустые ячейки таблицы word, поправить макрос
Добрый день, ребята выручайте! Часа 3 пытаюсь найти не получается. Задача — есть таблица word.
Как вставить текст из Word в Outlook
Добрый день! Столкнулся с проблемой, при попытке написать скрипт на Vb, копирующий информацию из.
Вставить изображение в ячейки таблицы Word
Добрый день! В документе Word есть таблица, состоит из 1 строки и двух ячеек. Нужно в каждую.
VBA Word Вставить форматированный текст в конец файла
Ребят, второй день голову ломаю. Как вставить в конец вордовского файла текст, который будет.
2697 / 1682 / 768
Регистрация: 23.03.2015
Сообщений: 5,315
AndreA SN,
1 2 3
With ThisDocument .Range.InsertAfter Chr(13) & "your text here" End With
1528 / 497 / 58
Регистрация: 10.04.2009
Сообщений: 8,382
Сообщение от AndreA SN
После него вставил таблицу
как? покажите код
1017 / 121 / 2
Регистрация: 26.08.2011
Сообщений: 1,130
Записей в блоге: 2
Неправильно я в прошлый раз здесь написал.
Вот как правильно
1 2 3 4 5
With nam_file_report_Word.Selection .EndKey Unit:=wdStory .TypeText Text:="Мой текст" .TypeParagraph End With
Добавлено через 10 минут
как после текста вставить таблицу показываю весь код
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
With nam_file_report_Word.Selection .TypeText Text:="Мой текст который до таблицы идет (заголовок документа таблицы и прочее" .TypeParagraph Const col_tbl = 8 ' создаем первую таблицу Set tbl = .Tables.Add(.Range, 10, col_tbl) ' создаем таблицу 10 строк/col_tbl столбцов ' форматируем таблицу tbl.Select .ParagraphFormat.Alignment = wdAlignParagraphLeft ' выравнивание по всей таблице вправо '.Cells.VerticalAlignment = wdCellAlignVerticalBottom ' прижимаем содержимое клетки вниз .Rows.Alignment = wdAlignRowLeft ' центрируем всю таблицу относительно страницы End With ' форматируем поля ячеек в таблице rs = tbl.Cell(1, 1).Range.Start ' устанавливаем стартовую ячейку re = tbl.Cell(10, col_tbl).Range.End ' устанавливаем финишную ячейку With tbl ' устанавливаем ширину колонок ' устанавливаем ширину колонок .Columns.Width = 20 .Columns(1).Width = 80 .Columns(2).Width = 60 .Columns(4).Width = 130 .Columns(5).Width = 70 .Columns(6).Width = 80 .Columns(8).Width = 470 .Cell(1, 1).Range.Text = "Текст 1" .Cell(1, 2).Range.Text = "Текст 2" .Cell(1, 3).Range.Text = "Текст 3" .Cell(1, 4).Range.Text = "Текст 4" .Cell(1, 5).Range.Text = "Текст 5" .Cell(1, 6).Range.Text = "Текст 6" .Cell(1, 7).Range.Text = "Текст 7" .Cell(1, 8).Range.Text = "Текст 8" .Cell(2, 1).Range.Text = "Оооооооочень длинный текст 1" ' это текстовые заготовки под сквозные строки .Cell(3, 1).Range.Text = "Оооооооочень длинный текст 2" .Cell(4, 1).Range.Text = "Оооооооочень длинный текст 3" 'объединяем сквозные строки For i = 2 To 4 rs = .Cell(i, 1).Range.Start ' устанавливаем стартовую ячейку re = .Cell(i, col_tbl - 1).Range.End ' устанавливаем финишную ячейку nam_file_rep_Word_Протокол.Range(rs, re).Select ' собственно выделяем диапазон со старта до финиша nam_file_report_Word.Selection.Cells.Merge nam_file_report_Word.Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter ' выравниваем содержимое клетки по вертикали Next i .Select End With 'форматируем границы таблицы With nam_file_report_Word.Selection.Borders(wdBorderTop) .LineStyle = Options.DefaultBorderLineStyle .LineWidth = Options.DefaultBorderLineWidth .Color = Options.DefaultBorderColor End With With nam_file_report_Word.Selection.Borders(wdBorderBottom) .LineStyle = Options.DefaultBorderLineStyle .LineWidth = Options.DefaultBorderLineWidth .Color = Options.DefaultBorderColor End With With nam_file_report_Word.Selection.Borders(wdBorderHorizontal) .LineStyle = Options.DefaultBorderLineStyle .LineWidth = Options.DefaultBorderLineWidth .Color = Options.DefaultBorderColor End With With nam_file_report_Word.Selection.Borders(wdBorderVertical) .LineStyle = Options.DefaultBorderLineStyle .LineWidth = Options.DefaultBorderLineWidth .Color = Options.DefaultBorderColor End With ' переход к следующей строке после таблицы Set rng = tbl.Range rng.Collapse wdCollapseEnd rng.Text = "текст который идет после таблицы" ActiveDocument.Bookmarks("\EndOfDoc").Select
Добавлено через 1 минуту
код конечно далек от совершенства. Если будут замечания, особенно касающиеся надежности работы кода — я буду рад их использовать.
Добавлено через 1 минуту
вот так создаю файл word из под excel
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
Dim rng As Word.Range If nam_file_rep_Word_Протокол Is Nothing Then Set nam_file_report_Word = CreateObject("Word.Application") 'Запускаем новый экземпляр программы Word. ' Даём этому экземпляру имя "nam_file_report_Word". Через это имя будем обращаться к программе Word. nam_file_report_Word.Visible = True 'Делаем программу "Word" видимой. Set nam_file_rep_Word_Протокол = nam_file_report_Word.Documents.Add 'Создаём в программе Word документ и даём этому документу имя "oDocument". With nam_file_rep_Word_Протокол .PageSetup.Orientation = wdOrientPortrait ' книжная ориентация .ActiveWindow.ActivePane.View.Zoom.Percentage = 100 ' показать документ в 100% .PageSetup.TopMargin = 28.36 + 28.36 + 15.16 'отступ сверху 2.54 см .PageSetup.LeftMargin = 28.36 + 28.36 + 28.36 + 5.6 'отступ слева 3.2 см .PageSetup.RightMargin = 28.36 + 17 'отступ справа 1.6 см .PageSetup.BottomMargin = 28.36 + 28.36 + 15.16 'отступ снизу 2.54 см .content.Font.Size = 8 .content.Font.Name = "Consolas" End With With nam_file_rep_Word_Протокол.content.ParagraphFormat .LeftIndent = 0 .RightIndent = 0 .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 End With
Таблицы в редакторе Word
Текстовые процессоры Word 6.0, 95, 97 и 2000 содержат мощные и удобные средства работы с таблицами различного типа (в том числе и с вычисляемыми ячейками).
Вот некоторые приемы работы с ними, которые практически идентичны во всех указанных версиях и отличаются в основном лишь названиями функций и пунктов меню.
Преобразование фрагмента текста в таблицу
Фрагмент текста можно легко преобразовать в таблицу. Для этого лучше включить режим отображения непечатаемых знаков: команда «Отобразить все» — кнопка «Непечатаемые знаки» на панели инструментов «Стандартная» или комбинация клавиш + . Но перед этим необходимо сделать следующее:
- наметьте будущие колонки, устанавливая в надлежащие позиции каждой строки фрагмента текста курсор и нажимая клавишу для вставки символов табуляции в качестве разделителей колонок будущей таблицы (вручную выравнивать символы табуляции по вертикали не требуется);
- выделите фрагмент текста;
- нажмите на панели инструментов кнопку «Добавить таблицу» или в Word 97 и 2000 укажите пункты «Таблица?Преобразовать? Преобразовать в таблицу»;
- перейдите к следующему пункту или поставьте курсор в любом месте прообраза таблицы и, щелкнув правой кнопкой мыши, вызовите контекстно-зависимое меню;
- укажите пункты «Таблица?Автоформат» или отметьте «Автоформат» в меню, если оно было предварительно вызвано;
- в диалоговом окне «Автоформат таблицы» выберите нужный формат, задайте дополнительные опции и нажмите ОК;
- если не требуется дальнейших преобразований, то «снимите» с таблицы выделение.
Создание таблицы в любом месте документа
Вид таблицы с вычисляемыми ячейками |
Вычисляемые ячейки таблиц
- установить текстовый курсор в любом месте этой ячейки;
- выбрать пункты «Таблица?Формула»;
- в соответствующих полях диалогового окна «Формула» задать необходимые параметры формулы и нажать кнопку OK.
- альтернативный формат с круглыми скобками означает, что отрицательные числа представляются в круглых скобках без минуса (лучше не применять);
- в качестве разделителя целой и дробной частей числа должен использоваться знак, предлагаемый в типовых форматах (зависит от установленного знака-разделителя чисел в разделе «Язык и стандарты» Windows);
- знаки #, пробел и другие символы бывают нужны для группировки цифр числа результата.
- обозначения арифметических операций («+», «-», «*», «/», «^») и знака процента (%);
- обозначения операций сравнения («=», « », «>=», «<>»);
- функции из списка «Функция» (Word 6) и «Вставить функцию» (Word 95, 97, 2000).
Как добавить таблицу на сайт
Для добавления таблицы на сайт подходит любая страница, на которой есть текстовый редактор. Добавить таблицу можно во время создания новой страницы или во время редактирования уже существующей.
Способ №1: Вставить на сайт таблицу, подготовленную в Word
Этот способ подходит для таблиц любого размера. Сначала скопируйте из текстового редактора таблицу, которую вы хотите поместить на сайт (для копирования воспользуйтесь сочетанием клавиш Ctrl+С или правой кнопкой мыши). Необходимо выделить и скопировать таблицу целиком, а не только текст в ячейках.
Затем зайдите в админку сайта, откройте страницу для редактирования и кликните мышью в том месте, где должна располагаться ваша скопированная таблица. После этого клика компьютер «запомнит» то место, куда таблица должна быть вставлена. Затем нажмите кнопку «Вставить». Она располагается над текстом. Не перепутайте ее с кнопкой «Вставить только текст», иначе Вы добавите на страницу только текст из строк и столбцов таблицы, а не ее саму.
Перед вами появится диалоговое окно. Вставьте таблицу в него, пользуясь сочетанием клавиш Ctrl+V или правой кнопкой мыши. После вставки нажмите кнопку «OK».
Система поинтересуется, желаете ли Вы очистить формат текста перед вставкой на сайт. Вы ведь знаете, для чего следует очищать текст перед публикацией на сайте? Если знаете, то подтвердите действие кнопкой «OK».
Таблица будет добавлена на сайт. Нажав на нее правой кнопкой мыши, Вы можете обратиться к свойствам и настроить оформление таблицы.
Способ №2: Создать таблицу на сайте с помощью текстового редактора
Этот способ подходит для небольших таблиц. При его использовании вам не придется копировать таблицу: вы с нуля создадите ее в текстовом редакторе.
Зайдите в админку сайта, откройте редактирование страницы и кликните мышью в том месте, где должна располагаться ваша скопированная таблица.
Затем кликните мышкой на значок таблицы в верхнем меню.
У вас появится диалоговое окно, в котором нужно указать параметры таблицы.
При создании новой таблицы обязательно задайте количество колонок и строк. При необходимости укажите остальные параметры, а затем сохраните таблицу, нажав кнопку «OK».
Таблица с пустыми ячейками будет добавлена.
Теперь в пустые ячейки можно добавить данные. Если вы планируете вставить в ячейки скопированный откуда-то тест, то воспользуйтесь общими правилами для добавления текста на сайт.
Чтобы добавленная таблица отобразилась на сайте, вам необходимо сохранить изменения на странице. Для этого нажмите внизу кнопку «Сохранить».
Добавление таблиц, как правило, вызывает у наших клиентов много вопросов. Если вы остались недовольны тем, как опубликована таблица, вы можете отредактировать ее или опубликовать ее заново с помощью программы «Реформатор».
- Как создать сайт самостоятельно
- Работа со страницами
- Наполнение страниц
- Работа с изображениями и файлами
- Фотогалереи
- Новости
- Каталог товаров
- Интернет-магазин
- Формы обратной связи
- Виджеты
- Функции продвижения
- Доступ в систему управления
- Внешние сервисы
- Дизайн