Форум программистов, компьютерный форум, киберфорум
MS Office Word
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 21.01.2020
Сообщений: 24
1

Фиксированный текст на всех листах

03.06.2021, 15:40. Показов 1064. Ответов 6

Здравствуйте форумчане. Может кто ни будь сталкивался с подобным. Имеется ворд документ с 1000 листами. На каждой странице однотипная таблица с заполненными данными. Таблицы не связаны между собой, то есть каждая страница это отдельная таблица. Есть ли возможность разместить на каждой странице в каждой таблице в первой строке определенный тест??
Может кто ни будь уже столкнулся с таким...
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2021, 15:40
Ответы с готовыми решениями:

Изменени столбцов во всех листах
Добрый день. Имеется вот такой код. Sub AA() Dim i, j As Double For i = 2 To Cells(Rows.Count,...

Выполнение макроса на всех листах
Доброй ночи. Помогите разобраться почему макрос выполняется только на первом листе и выдает ошибку.

Удаление всей информации во всех листах Excel
Добрый день. Подскажите пожалуйста. Есть файл экселя в нем имеется 128 листов, в каждом листе...

Удаление Строк С нулевыми значениями во всех листах
Здравствуйте. Я не давно начал познавать мир VBA, поэтому испытываю некоторые трудности. Имеется...

6
734 / 436 / 148
Регистрация: 22.12.2015
Сообщений: 1,311
03.06.2021, 16:19 2
Adordin, попробуйте код ниже:
Visual Basic
1
2
3
4
5
6
7
8
9
Public Sub text_table()
Dim tblObj As Table
For Each tblObj In ActiveDocument.Tables
        tblObj.Cell(1, 1).Range = "Текст первой ячейки"
        tblObj.Cell(1, 2).Range = "Текст второй ячейки"
        tblObj.Cell(1, 3).Range = "Текст третьей ячейки"
Next tblObj
 
End Sub
0
0 / 0 / 0
Регистрация: 21.01.2020
Сообщений: 24
08.06.2021, 08:58  [ТС] 3
Добавлено через 55 минут
я конечно не силен в макросах. Но не подскажите ли вы, что если это будет заготовленные текст из другого файла ворд. Может есть способы это сделать?
0
734 / 436 / 148
Регистрация: 22.12.2015
Сообщений: 1,311
08.06.2021, 09:16 4
Цитата Сообщение от Adordin Посмотреть сообщение
Имеется ворд документ с 1000 листами.
То есть документ в количестве одной штуки.
Цитата Сообщение от Adordin Посмотреть сообщение
если это будет заготовленные текст из другого файла ворд. Может есть способы это сделать?
Перенесите текст из вашего файла в код и запустите - столбцов у вас в таблице вряд ли больше 10 шт.
0
0 / 0 / 0
Регистрация: 21.01.2020
Сообщений: 24
08.06.2021, 09:52  [ТС] 5
Прилагаю образец. Может появится идеи)) Шапку разместить не могу в ячейку 2.2
0
Вложения
Тип файла: docx Таблицы.docx (24.5 Кб, 9 просмотров)
Тип файла: doc Шапка.doc (637.0 Кб, 18 просмотров)
734 / 436 / 148
Регистрация: 22.12.2015
Сообщений: 1,311
08.06.2021, 10:42 6
Лучший ответ Сообщение было отмечено Adordin как решение

Решение

Цитата Сообщение от Adordin Посмотреть сообщение
разместить на каждой странице в каждой таблице в первой строке определенный тест??
То есть есть некий набор букв, если я правильно интерпретирую слово "тест".
Цитата Сообщение от Adordin Посмотреть сообщение
Шапку разместить не могу в ячейку 2.2
Набор букв вдруг превратился в таблицу с вставленной картинкой.
Цитата Сообщение от Adordin Посмотреть сообщение
Может появится идеи
Сформулируйте внятно, что нужно делать.
Цитата Сообщение от Adordin Посмотреть сообщение
Шапку разместить не могу в ячейку 2.2
Сделайте в четком порядке следующие действия:
1. Скопируйте код в файл "Таблицы".
2. В файле "Шапка" выделите и скопируйте таблицу шапки.
3. Запустите код.
Visual Basic
1
2
3
4
5
6
Public Sub tbl_copy()
Dim tblObj As Table
For Each tblObj In ThisDocument.Tables
    tblObj.Cell(2, 2).Range.PasteAsNestedTable
Next tblObj
End Sub
1
0 / 0 / 0
Регистрация: 21.01.2020
Сообщений: 24
08.06.2021, 11:05  [ТС] 7
Чувак это работает. Спасибо тебе большое))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2021, 11:05

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Форматирование диаграмм во всех листах книги по образцу
Добрый день друзья, коллеги! Помогите пожалуйста с решением следующей задачи: Имеется файл с...

Задать(изменить) шрифт во всех листах книги
Добрый день. Подскажите макрос, которым можно во всех листах книги изменить шрифт на Times New...

Как LibreOffice Writer повторять шаблон на всех листах?
Доброго вечера. Не знаю как в LibreOffice Writer сделать так что бы на каждом листе документа...

Обнуляем все формулы, во всех листах в нужном диапазоне
здравствуйте как программно это сделать??, листы 1-12, столбцы 2-60, строки 6-50 для меня не...

Поиск значения во всех листах по диапазону даты и идентификатору
Доброго времени суток. Столкнулся с задачей, но в Excel почти "0" =) Если может кто...

Нужно чтоб одна кнопка работала на всех листах.
Первая просьба - http://www.relib.com/forums/thread881181.aspx... Я ввёл Вас в заблуждение: я...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.