1

Тема: Макро команды.Работа с таблицами в Word

Ребята такая проблема.У меня есть таблица,мне нужно пройтись по ней и вывести на экран то что находится в  ячейках.Тут я скинул табличку,посмотрите ее.Да вот еще.Нужно чтобы первые две строки он просто пробежал,а с ячейки где   "Изменить"   ,он начал выводить на экран. smileВ таблице присудствуют объединеные ячейки.  Вот я скинул табличку....посмотрите в приклепленном документе

Отредактировано Саша (25.08.2010 12:20:48)

Post's attachments

куа.docx 12.91 Кб, 5 скачиваний с 2010-08-25 

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

2

Re: Макро команды.Работа с таблицами в Word

Задание явно не тянет на разработку:)
Даю основу.

Sub Макрос1()
  Dim i As Integer
  Dim s As String
  Dim oCell As Cell
  ActiveDocument.Tables(1).Cell(1, 1).Select 'Выделяем первую ячейку
  Selection.Collapse 'Сжимаем выделение
  Selection.MoveDown wdLine, 2 'Переходим на две строки вниз
  'Пока курсор находится в таблице
  Do While Selection.Information(wdWithInTable)
    Set oCell = Selection.Cells(1) 'Первая ячейка в строке
    i = oCell.RowIndex 'Индекс строки, в которой находимся
    'Собираем содержимое ячеек в строку
    Do While oCell.RowIndex = i
      s = s & Left(oCell.Range.Text, Len(oCell.Range.Text) - 2) & vbTab
      Set oCell = oCell.Next
      'Если дальше нет ячеек, то выходим из цикла.
      If oCell Is Nothing Then Exit Do
    Loop
    If Not oCell Is Nothing Then s = s & vbCr
    Selection.MoveDown wdLine
  Loop
  'Сформированное сообщение
  MsgBox s
End Sub

Тему переношу в раздел "Автоматизация"

Лучше день потерять — потом за пять минут долететь!

3

Re: Макро команды.Работа с таблицами в Word

А как сделать что бы он по отдельности выводил на экран каждую ячеку? smile Начиная с "Изменить"......Да вот еще ,в этой программе он выводит криво данные,не большое расхождение.Но все равно огромное спасибо smile

4

Re: Макро команды.Работа с таблицами в Word

Вместо вот этой строки

s = s & Left(oCell.Range.Text, Len(oCell.Range.Text) - 2) & vbTab

Записать вывод сообщения

Лучше день потерять — потом за пять минут долететь!

5

Re: Макро команды.Работа с таблицами в Word

Я немного не допонял sad ...можете написать? smile

6

Re: Макро команды.Работа с таблицами в Word

А вот еще проблемка ....у меня есть еще табличка,но она намного больше по строкам....и когда запускаю макрос команду то на экран выводятся не все данные...из за чего?Что нужно поменять или дописать?

7

Re: Макро команды.Работа с таблицами в Word

Не всё выводится, потому что сообщение имеет ограничение на количество выводимых символов.
Мне кажется, что ыы преследуете какую-то свою цель, но идёте как-то в обход. Что вам нужно в конечном итоге? Может это можно сделать иначе? Изложите суть проблемы, тогда её решение займёт меньше времени и вашего и моего.

Лучше день потерять — потом за пять минут долететь!

8

Re: Макро команды.Работа с таблицами в Word

.Как приконэктица к Microsoft Office Access 2007 ? smile

Отредактировано Саша (30.08.2010 08:59:01)