Vba word последняя строка таблицы

lina
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 11.06.2004 (Пт) 13:10

номер последней строки в таблице WORD

Имеется таблица в WORDе. Необходимо определить номер последней строки этой таблицы. :roll:

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 19.10.2004 (Вт) 10:06

table.rows.count???

Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

lina
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 11.06.2004 (Пт) 13:10

Сообщение lina » 19.10.2004 (Вт) 15:16

Не получается, ругается Object reguired

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 19.10.2004 (Вт) 15:38

Ну так нужно же указать, какую таблицу…

Например, tables(1).rows.count…

Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

lina
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 11.06.2004 (Пт) 13:10

Сообщение lina » 20.10.2004 (Ср) 8:23

Спасибо Шаман. Я сама после двух месяцев ничегонеделания не знаю чего хочу. У меня раньше в программе уже определялось количество строк, поэтому программа и ругалась.

Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Источник

I have a large Table in MS Word 2007 (spanning several pages) and each row contains a lot of text.

Is there a keyboard shortcut in Word 2007 to directly jump to the last line of the current table cell to add text at the «bottom» of the cell?

If there is not, how could I do that with VBA?

asked Oct 1, 2012 at 9:07

MostlyHarmless's user avatar

MostlyHarmlessMostlyHarmless

4452 gold badges10 silver badges21 bronze badges

Use Alt+PgDown to go to the last row in the current table (in the same column).

The equivalent in VBA:

Selection.EndKey Unit:=wdColumn

EDIT

(Updated after new information in the question)

Sorry, I misunderstood. OK, then, try the following to find the end of the cell in VBA:

Selection.EndOf Unit:=wdCell

I don’t know if it can be done with keyboard shortcuts, maybe someone else knows?

answered Oct 1, 2012 at 9:36

Olle Sjögren's user avatar

Olle SjögrenOlle Sjögren

5,2653 gold badges31 silver badges51 bronze badges

3

A combination of keys are possible but I’m not sure it will work in every case:

  • Tab (to jump to the next cell), Left, Left,
  • Or Tab, Shift+Tab (current cell selected), Right (end of selection = end of current cell)

answered Nov 9, 2013 at 15:16

Exertus's user avatar

Wouldn’t the best way in VBA be to just refer to the last row?

table.Cell(table.rows.count, yourColumnNumberToUpdate).Range.Text = table.Cell(table.rows.count, yourColumnNumberToUpdate).Range.Text + "What ever you want to add to the bottom of the cell"

Of course if there was text already in the cell you would want to add a carriage return so the added text was at the bottom of the cell.

answered Dec 31, 2014 at 16:29

C J's user avatar

Источник

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Сообщений [ 5 ]

1 21.11.2016 13:47:15

  • Pavel_U
  • рядовой
  • Неактивен
  • Зарегистрирован: 10.11.2016
  • Сообщений: 2

Тема: Найти последнюю строку таблицы в документе word

Файл с несколькими таблицами, таблицы разорваны и имеют разное форматирование с объединенными ячейками. Как перейти к последней строке последней таблицы в документе, или допустим к строке №3 последней таблицы?

2 Ответ от yshindin 21.11.2016 14:33:39

  • yshindin
  • генерал-полковник
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.05.2012
  • Сообщений: 447
  • Поблагодарили: 171

Re: Найти последнюю строку таблицы в документе word

Pavel_U пишет:

Файл с несколькими таблицами, таблицы разорваны и имеют разное форматирование с объединенными ячейками. Как перейти к последней строке последней таблицы в документе, или допустим к строке №3 последней таблицы?

Попробуйте такой VBA-код:

Sub GotoLastRowOfLastTable()
Dim tbl As Table
Dim tbl_cnt As Long
tbl_cnt = ActiveDocument.Tables.Count
If tbl_cnt > 0 Then
    Set tbl = ActiveDocument.Tables(tbl_cnt)
    tbl.Rows(tbl.Rows.Count).Cells(1).Select
End If
End Sub

3 Ответ от yshindin 21.11.2016 14:38:52

  • yshindin
  • генерал-полковник
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.05.2012
  • Сообщений: 447
  • Поблагодарили: 171

Re: Найти последнюю строку таблицы в документе word

Pavel_U пишет:

… или допустим к строке №3 последней таблицы?

Например, так:

Sub GotoThirdRowOfLastTable()
Dim tbl As Table
Dim tbl_cnt As Long
Dim tbl_rows_cnt As Long
tbl_cnt = ActiveDocument.Tables.Count
If tbl_cnt > 0 Then
    Set tbl = ActiveDocument.Tables(tbl_cnt)
    tbl_rows_cnt = tbl.Rows.Count
    If tbl_rows_cnt >= 3 Then
        tbl.Rows(3).Cells(1).Select
    End If
End If
End Sub

4 Ответ от Pavel_U 21.11.2016 14:43:06

  • Pavel_U
  • рядовой
  • Неактивен
  • Зарегистрирован: 10.11.2016
  • Сообщений: 2

Re: Найти последнюю строку таблицы в документе word

в первом случае выдает ошибку
tbl.Rows(tbl.Rows.Count).Cells(1).Select

во втором
tbl.Rows(3).Cells(1).Select

5 Ответ от yshindin 21.11.2016 14:48:43

  • yshindin
  • генерал-полковник
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.05.2012
  • Сообщений: 447
  • Поблагодарили: 171

Re: Найти последнюю строку таблицы в документе word

Pavel_U пишет:

в первом случае выдает ошибку
tbl.Rows(tbl.Rows.Count).Cells(1).Select

во втором
tbl.Rows(3).Cells(1).Select

Выложите, пжл, ваш документ. Пример документа, на котором я проверял код — во вложении.

Post’s attachments

Lastrow.docm 62.72 Кб, 2 скачиваний с 2016-11-21 

You don’t have the permssions to download the attachments of this post.

Сообщений [ 5 ]

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Похожие темы

  • Найти в документе Word все картинки (и отсечь формулы)
  • Автоматический перенос слов на следующую строку таблицы в Word 2007
  • найти дату в документе и скопировать в имя файла
  • Как в таблице Word по табуляции — не создавать новую строку.
  • Проблема при очередном обновлении связанной таблицы Excel в документе
  • Найти и подчеркнуть каждое n-ное слово в тексте MS Word 2003
  • как удалать эту строку ?
  • Перенос слов на новую строку.

Найти последнюю строку таблицы в документе word

Работа в Microcoft Word чем-то напоминает езду по дорогам нашей страны. Можно ехать по главным трассам с указателями и добраться, в конце концов, до нужного места, а можно значительно сократить путь, выбрав оптимальный маршрут. Наш сайт о Microsoft Office Word даст ответ про: чем форматировать файлы rtf в pdf.
Но тут не обойтись без подсказок опытного человека, знающего, где лучше свернуть и по какой дороге поехать. Наш сайт о Microsoft Office Word даст ответ про: как защитить документ word 2003 от печати.
Для работы с программой таким штурманом вам послужит форум сайта Ворд Эксперт.

Основное внимание на форуме уделено автоматизации. Наш сайт о Microsoft Office Word даст ответ про: могу ли я обновить офис с 2007 на 2010 бесплатно.
Здесь вы освоите написание макросов и шаблонов, разберетесь с настройками версий, сможете получить дельный совет или позаимствовать готовое решение. На портале о Microsoft Office Word вы узнаете про: где находится в формате автоформат.
Если у вас нет времени самому разбираться с какой-то проблемой, можно подать заявку, участники сделают это для вас. На портале о Microsoft Office Word вы узнаете про: как в word писать в бланке поверх черты.

Источник

0 / 0 / 0

Регистрация: 15.03.2019

Сообщений: 138

1

Word

Выделить последнюю строку таблицы жирным шрифтом

14.10.2021, 10:25. Показов 1705. Ответов 5

Студворк — интернет-сервис помощи студентам

Подскажите пожалуйста, как сделать так чтобы при открытие документа word, выделялась последняя строка таблицы жирным цветом



0

Narimanych

2630 / 1636 / 744

Регистрация: 23.03.2015

Сообщений: 5,141

14.10.2021, 10:41

2

anton24,

Для 1-ой таблицы:
В модуль Document_Open

Visual Basic 
1
2
3
4
5
6
7

Private Sub Document_Open()
Set tbl = ActiveDocument.Tables(1)
With tbl
      ActiveDocument.Range .Rows(.Rows.Count).Range.Select
      Selection.Font.Bold = True
    End With
End Sub



1

0 / 0 / 0

Регистрация: 15.03.2019

Сообщений: 138

14.10.2021, 11:38

 [ТС]

3

Ответ правильный, но не в моем случае:
я сначала создаю форму в котором есть таблица(к примеру из двух строк). И я не знаю сколько в ней будет строк.
Потом открываю программу, в которой расписаны составы продуктов. При нажатии кнопки(создается новый документ с моей формой(модуль Document_new)()). И новом документе с этим кодом, начиная со второй строки все строки жирные, потому что изначально было две строки, а сейчас их больше. Нужно чтоб только последняя строка таблицы была жирная



0

2630 / 1636 / 744

Регистрация: 23.03.2015

Сообщений: 5,141

14.10.2021, 11:50

4

anton24,

Цитата
Сообщение от anton24
Посмотреть сообщение

как сделать так чтобы при открытие документа word, выделялась последняя строка таблицы жирным цветом

Это был ваш вопрос
Сейчас вы пишите:

Цитата
Сообщение от anton24
Посмотреть сообщение

И новом документе с этим кодом, начиная со второй строки все строки жирные, потому что изначально было две строки, а сейчас их больше. Нужно чтоб только последняя строка таблицы была жирная

Разницу чувствуете?
Вопрос вам: ПОЧЕМУ СРАЗУ С ПЕРВОГО РАЗА НЕ ПИШИТЕ ТО, ЧТО НАДО?

пЫ.сЫ Если хотите ответ- прикрепите 2 файла свашими кодами внутри, что есть и 2-ой файл- что хотите получить…



0

anton24

0 / 0 / 0

Регистрация: 15.03.2019

Сообщений: 138

14.10.2021, 12:03

 [ТС]

5

код в первом файле (снимок 35)

Visual Basic 
1
2
3
4
5
6
7

Private Sub Document_New()
Set tbl = ActiveDocument.Tables(1)
With tbl
      ActiveDocument.Range .Rows(.Rows.Count).Range.Select
      Selection.Font.Bold = True
    End With
End Sub

во втором файле последняя строка жирная, что должно получится

Миниатюры

Выделить последнюю строку таблицы жирным шрифтом
 

Выделить последнюю строку таблицы жирным шрифтом
 



0

2630 / 1636 / 744

Регистрация: 23.03.2015

Сообщений: 5,141

14.10.2021, 13:05

6

anton24,
Вы не ответили на вопрос:

Цитата
Сообщение от Narimanych
Посмотреть сообщение

ПОЧЕМУ СРАЗУ С ПЕРВОГО РАЗА НЕ ПИШИТЕ ТО, ЧТО НАДО?

Мне просто интересно…



0
Источник

Узнай цену своей работы

Формулировка задачи:

Как перейти на последнюю строку таблицы WORD???

Код к задаче: «Последняя строка в таблице WORD»

textual

Листинг программы 

ActiveDocument.Tables(<font color="darkblue"><b>1</b></font>).Rows.Last.<font color="blue">Select</font>

    ActiveDocument.Tables(<font color="darkblue"><b>1</b></font>).Rows.Last.Cells(<font color="darkblue"><b>1</b></font>).<font color="blue">Select</font>

Полезно ли:

6   голосов , оценка 4.167 из 5

Похожие ответы

  1. Как при загрузке формы, передать последнюю строку из таблицы (DBgrid) в тескстовое поле (text1)?
  2. Скопировать таблицу Word
  3. Как выравнивать текст в ячейках таблицы Word?!
  4. Вычислить суммы элементов первого столбца и последней строки матрицы
  5. Как удалить из текстового файла последнюю строку
  6. Как указать, какая строка в таблице выделена для удаления?
  7. Перейти на последнюю строку в файле
  8. Как увеличить элементы указанного столбца матрицы на значение минимального элемента последней строки
  9. Первые четыре строки массива заполняются целыми случайными числами в диапазоне 0…20, а каждый элемент последней строки должен быть равен минимальному
  10. В прямоугольной матрице найти сумму элементов, принадлежащих первой строке, последней строке, первому столбцу и последнему столбцу
  11. Вывод строки из таблицы Access на лист Excel по запросу

Источник

Like this post? Please share to your friends:
  • Vba word поля страницы
  • Vba word номер ячейки таблицы
  • Vba word поля документа
  • Vba word номер строки
  • Vba word положение курсора