1

Тема: Как перенести таблицу Excel в Word

Добрый день подскажите,
как правильно перенести таблицу Excel в Word, чтоб можно было в дальнейшем корретировать её.

2

Re: Как перенести таблицу Excel в Word

корректировать в Excel ее собираетесь??? или в Word???

3

Re: Как перенести таблицу Excel в Word

Скопируйте диапазон в Excel, перейдите в Word и вставьте его через специальную вставку, выбрав опцию "Связать". Изменения в таблице Excel будут отражаться в таблице, вставленной в Word

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

4

Re: Как перенести таблицу Excel в Word

В моей любимой книге “Word 2003/2007. Народные советы” на стр.152 написано:
Как вставить таблицу Excel в документ
Этот способ может пригодиться тем пользователям, которые периодически используют в своих документах широкоформатные таблицы, созданные в программе Microsoft Excel.
К сожалению, обычный способ копирования таблицы из Excel и вставки ее в документ Word имеет существенные недостатки. Самые очевидные — по ширине таблица выходит за пределы страницы, а ее формат (шрифт, интервал) отличается от используемого формата документа.
Однако можно избавиться от этих недостатков, если вставить таблицу в документ как графический объект.
В редакторе Word 2003
1.    В меню Вставка выберите команду Объект. Откроется диалоговое окно Вставка объекта.
2.    Перейдите на вкладку Создание из файла.
3.    Нажмите кнопку Обзор, чтобы найти и выбрать файл таблицы Excel. После того как в поле Имя файла появится строка местоположения найденного файла, нажмите кнопку ОК.
Таблица будет вставлена в документ как рисунок. Вы можете изменять его размеры, перемещать и выполнять иные действия. Если дважды щелкнуть мышью по рисунку таблицы, то вы сможете отредактировать исходные данные вашей таблицы прямо в документе Word. При этом окно редактора изменится и примет вид программы Excel. После редактирования исходных данных щелкните указателем мыши за пределами таблицы, чтобы вернуться в режим редактирования документа Word.
В редакторе Word 2007
1.    Перейдите на вкладку ленты Вставка.
2.    В группе команд Текст нажмите кнопку Вставить объект. Откроется диалоговое окно Вставка объекта.
3.    Нажмите кнопку Обзор, чтобы найти и выбрать файл таблицы Excel. После того как в поле Имя файла появится строка местоположения найденного файла, нажмите кнопку ОК.

5

Re: Как перенести таблицу Excel в Word

Спасибо за ответы  !!!!
Здорово всё получилось!!!!!!!!
Спасибо!!!!!!

Отредактировано Вулк (04.06.2010 12:51:15)

6

Re: Как перенести таблицу Excel в Word

Подскажите, как можно в Excel или в Wordе  при вводе числа получить значение данного числа  прописью

Например: 45 - сорок пять и т.д.

С уважением Владимир.

7

Re: Как перенести таблицу Excel в Word

Читайте на сайте (и пользуйтесь поиском): Число или сумма прописью.

8

Re: Как перенести таблицу Excel в Word

а можно использовать и макросы других авторов (найдено в инете, в открытом доступе, насколько я помню на VBstreet):

Sub SummaString(Summa$, source As Long, Rod%, w1$, w2to4$, w5to10$)
'
' "Сумма прописью":
'  преобразование числа из цифрого вида в символьное
' ==================================================
' Исходные данные:
'  Source - число от 0 до 2147483647 (2^31-1)
   ' Eсли нужно оперировать с числами > 2 147 483 647
   ' замените описание переменных Source и TempValue на "AS DOUBLE"
'
'    далее нужно задать информацию о единице изменения
'  Rod%   = 1 - мужской, = 2 - женский, = 3 - средний
'     название единицы изменения:
'  w1$     - именительный падеж единственное число (= 1)
'  w2to4$  - родительный падеж единственное число (= 2-4)
'  w5to10$ - родительный падеж множественное число ( = 5-10)
'
'  Rod% должен быть задано обязательно, название единицы может быть
'       не задано = ""
' ———————————————-
' Результат: Summa$ - запись прописью
'
'================================
   Dim TempValue As Long
   '
   If source& = 0 Then
     Summa$ = RTrim$("ноль " + w5to10$): Exit Sub
   End If
   '
   TempValue = source: Summa$ = ""
   ' единицы
   Call SummaStringThree(Summa$, TempValue, Rod%, w1$, w2to4$, w5to10$)
   If TempValue = 0 Then Exit Sub
   ' тысячи
   Call SummaStringThree(Summa$, TempValue, 2, "тысяча", "тысячи", "тысяч")
   If TempValue = 0 Then Exit Sub
   ' миллионы
   Call SummaStringThree(Summa$, TempValue, 1, "миллион", "миллиона", "миллионов")
   If TempValue = 0 Then Exit Sub
   ' миллиардов
   Call SummaStringThree(Summa$, TempValue, 1, "миллиард", "миллиарда", "миллиардов")
   If TempValue = 0 Then Exit Sub
   '
   ' Eсли нужно оперировать с числами > 2 147 483 647
   ' измените тип переменных (см. выше) и добавьте эту строку для триллионов:
   ' CALL SummaStringThree(Summa$, TempValue#, 1, "трилллион", "триллиона", "триллионов")
   ' IF TempValue# = 0 THEN EXIT SUB
   '
   ' Что идет после триллионов, я плохо представляю...
   '
End Sub
Sub SummaStringThree(Summa$, TempValue As Long, Rod%, w1$, w2to4$, w5to10$)
'
'  Формирования строки для трехзначного числа:
'  (последний трех знаков TempValue
   ' Eсли нужно оперировать с числами > 2 147 483 647
   ' замените в описании на  TempValue AS DOUBLE
'====================================
   Dim Rest%, Rest1%, EndWord$, s1$, s10$, s100$
   '
   Rest% = TempValue& Mod 1000
   TempValue& = TempValue& \ 1000
   If Rest% = 0 Then    ' последние три знака нулевые
     If Summa$ = "" Then Summa$ = w5to10$ + " "
     Exit Sub
   End If
   '
   ' начинаем подсчет с Rest
   EndWord$ = w5to10$
   ' сотни
   Select Case Rest% \ 100
     Case 0: s100$ = ""
     Case 1: s100$ = "сто "
     Case 2: s100$ = "двести "
     Case 3: s100$ = "триста "
     Case 4: s100$ = "четыреста "
     Case 5: s100$ = "пятьсот "
     Case 6: s100$ = "шестьсот "
     Case 7: s100$ = "семьсот "
     Case 8: s100$ = "восемьсот "
     Case 9: s100$ = "девятьсот "
   End Select
   '
   ' десятки
   Rest% = Rest% Mod 100: Rest1% = Rest% \ 10
   s1$ = ""
   Select Case Rest1%
     Case 0: s10$ = ""
     Case 1  ' особый случай
       Select Case Rest%
         Case 10: s10$ = "десять "
         Case 11: s10$ = "одиннадцать "
         Case 12: s10$ = "двенадцать "
         Case 13: s10$ = "тринадцать "
         Case 14: s10$ = "четырнадцать "
         Case 15: s10$ = "пятнадцать "
         Case 16: s10$ = "шестнадцать "
         Case 17: s10$ = "семнадцать "
         Case 18: s10$ = "восемнадцать "
         Case 19: s10$ = "девятнадцать "
       End Select
     Case 2: s10$ = "двадцать "
     Case 3: s10$ = "тридцать "
     Case 4: s10$ = "сорок "
     Case 5: s10$ = "пятьдесят "
     Case 6: s10$ = "шестьдесят "
     Case 7: s10$ = "семьдесят "
     Case 8: s10$ = "восемьдесят "
     Case 9: s10$ = "девяносто "
   End Select
   '
   If Rest1% <> 1 Then  ' единицы
     Select Case Rest% Mod 10
       Case 1
         Select Case Rod%
           Case 1: s1$ = "один "
           Case 2: s1$ = "одна "
           Case 3: s1$ = "одно "
         End Select
         EndWord$ = w1$
       Case 2
         If Rod% = 2 Then s1$ = "две " Else s1$ = "два "
         EndWord$ = w2to4$
       Case 3: s1$ = "три ": EndWord$ = w2to4$
       Case 4: s1$ = "четыре ": EndWord$ = w2to4$
       Case 5: s1$ = "пять "
       Case 6: s1$ = "шесть "
       Case 7: s1$ = "семь "
       Case 8: s1$ = "восемь "
       Case 9: s1$ = "девять "
     End Select
   End If
   '
   ' сборка строки
   Summa$ = RTrim$(RTrim$(s100$ + s10$ + s1$ + EndWord$) + " " + Summa$)
End Sub

Ну а это для теста приведенных выше процедур

Sub tttttest()
Dim source As Long
Dim Summa As String
source = 2010
Call SummaString(Summa, source, 1, "", "", "")
Mid$(Summa$, 1) = Chr$(Asc(Summa$) - 32)
MsgBox Summa
End Sub

9

Re: Как перенести таблицу Excel в Word

benoni пишет:

В моей любимой книге “Word 2003/2007. Народные советы” на стр.152 написано:
Как вставить таблицу Excel в документ


Доброго времени суток, народ!
А кто-нибудь может посоветовать, как вставить таблицу из Excel в Word 2010/2012?

Буду премного благодарен!

10

Re: Как перенести таблицу Excel в Word

DIMSON пишет:
benoni пишет:

В моей любимой книге “Word 2003/2007. Народные советы” на стр.152 написано:
Как вставить таблицу Excel в документ


Доброго времени суток, народ!
А кто-нибудь может посоветовать, как вставить таблицу из Excel в Word 2010/2012?

Буду премного благодарен!

Вы имеете в виду Word 2013?
Так же, как и для версии 2007:

В редакторе Word 2007
1.    Перейдите на вкладку ленты Вставка.
2.    В группе команд Текст нажмите кнопку Вставить объект. Откроется диалоговое окно Вставка объекта.
3.    Нажмите кнопку Обзор, чтобы найти и выбрать файл таблицы Excel. После того как в поле Имя файла появится строка местоположения найденного файла, нажмите кнопку ОК.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

11

Re: Как перенести таблицу Excel в Word

Alex_Gur пишет:

Вы имеете в виду Word 2013?
Так же, как и для версии 2007:

В редакторе Word 2007
1.    Перейдите на вкладку ленты Вставка.
2.    В группе команд Текст нажмите кнопку Вставить объект. Откроется диалоговое окно Вставка объекта.
3.    Нажмите кнопку Обзор, чтобы найти и выбрать файл таблицы Excel. После того как в поле Имя файла появится строка местоположения найденного файла, нажмите кнопку ОК.

Премного благодарен!
Но, как говорил герой одного фильма, или я дурак, или лыжи не едут....
ей-Богу, получается вот такая ерунда:

Post's attachments

Безымянный.jpg 118.66 Кб, 1 скачиваний с 2014-09-04 

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

12

Re: Как перенести таблицу Excel в Word

вы лучше выложите образец ексель файла, который надо преобразовать в ворд

например , ыв вставили ексель в ворд
--вам нужна вставка как фиксированное состояние на час ХХ
--или должны осслеживаться изменения , производимые в екселе в будущем

13

Re: Как перенести таблицу Excel в Word

DIMSON пишет:
Alex_Gur пишет:

Вы имеете в виду Word 2013?
Так же, как и для версии 2007:

В редакторе Word 2007
1.    Перейдите на вкладку ленты Вставка.
2.    В группе команд Текст нажмите кнопку Вставить объект. Откроется диалоговое окно Вставка объекта.
3.    Нажмите кнопку Обзор, чтобы найти и выбрать файл таблицы Excel. После того как в поле Имя файла появится строка местоположения найденного файла, нажмите кнопку ОК.

Премного благодарен!
Но, как говорил герой одного фильма, или я дурак, или лыжи не едут....
ей-Богу, получается вот такая ерунда:

Это что, такие мелкие символы получаются? Сколько раз копировал из Excel в Word, но никогда раньше у меня такого не было.
Выложите, пожалуйста, файл Excel.

Нужно ли Вам, чтобы файл Word изменялся вслед за изменением файла Ecxel?  Это будет сложнее.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

14

Re: Как перенести таблицу Excel в Word

Какую я интересную тему нашел!
Как раз то, что мне крайне важно в настоящий момент.
Вопрос:
Что бы создать простую таблицу с предположим тремя ячейками A, B, C.
Ячейки A,B заполняются от руки, а в ячейке С должна выходить "сумма A+B"
надо действительно брать Exell и вставлять такую таблицу как объект или
можно написать макрос и нажимать на выбранное сочетание клавиш
или есть внутренние возможности Word2003?
Я подозреваю что есть раз существует тема в блоге http://wordexpert.ru/page/makros-podsch … v-tablitse.
Подскажите с чего начать в этом случае, так как вычисления не планируются сложные и будут всегда ограничены максимум 8 ячейками, а минимум тремя вышеуказанными.

Stupid is as stupid does!

15

Re: Как перенести таблицу Excel в Word

Увидев призрачную надежду решить ещё одну из проблем облегчить нудный набор текста спешу выложить иллюстрацию к написанному выше.
В примере та самая таблица. Действующих ячеек три. Простое сложение ничего больше.
Пока не лез в Exell, там знаю решается просто Указываешь в третьей ячейке С формулу - "знак суммы и координаты ячеек А и В".
Вопрос 1 Работает ли такой принцип в Word? Ну судя по ранее написанному Да.
Вопрос 2 Как правильно указать координаты ячеек. Ну вероятнее всего как в Exell строка 1 ячейка A строка 2 ячейка B. А объединённая ячейка вероятнее всего будет "строка 3 единственная ячейка А"
А формулу из чего взять - вероятнее всего тупо открыть Exell и переписать от туда?
К сожалению я "механический программист"  sad так что прошу отнестись к этим рассуждением снисходительно. smile

Stupid is as stupid does!

16

Re: Как перенести таблицу Excel в Word

Vank Про использование формул в таблицах Word неплохие статьи можно прочитать здесь:
внешняя ссылка
внешняя ссылка
На wordexpert можно посмотреть здесь:
http://wordexpert.ru/page/kak-vklyuchit … -tablitsyi
http://wordexpert.ru/page/table-word2
http://wordexpert.ru/page/table-autosumma

17

Re: Как перенести таблицу Excel в Word

Boris_R пишет:

Vank Про использование формул в таблицах Word неплохие статьи можно прочитать здесь:

Пришел майор Boris_R притащил 3 удочки и 2 спининга... big_smile
Спасибо большое, потому, что когда нет уверенности, что цель достижима, да ещё и искать не знаешь где...будем искать.

Stupid is as stupid does!

18

Re: Как перенести таблицу Excel в Word

Сокровенные знания полученные от Boris_R не удержавшись использованы сразу с потрясающем успехом. Что характерно всё великолепно работает ан W2003 Exell абсолютно не нужен и есть ощущение что ты Венец творения! Короче ура! Пример снизу

Post's attachments

Таблица имени майора Бориса.doc 27.5 Кб, 1 скачиваний с 2015-03-21 

You don't have the permssions to download the attachments of this post.
Stupid is as stupid does!

19

Re: Как перенести таблицу Excel в Word

К несчастью, радость моя была преждевременной!
Я воспользовался советом из этого раздела http://wordexpert.ru/page/table-word2
Всё вроде встало (таблицу выбрал простейшую в 4 клетки) по-началу и в конце защитил форму.
Проблема: формулу А1+В1 не вычисляет при повторном введении показателей. Так и остается сумма выставленная в начале. Если снять защиту, просто открыть свойство поля ничего не менять, просто закрыть, то поле обновляется до нового результата.
В чем проблема?
Кто знает гляньте! sad

Post's attachments

TABLE1.dot 26 Кб, 2 скачиваний с 2015-03-22 

You don't have the permssions to download the attachments of this post.
Stupid is as stupid does!

20

Re: Как перенести таблицу Excel в Word

Ну, на самом деле я посчитал, что поля при внесении в них информации будут так же как в Excel вести, напишешь и само собой суммируется. Я даже начал вопросы писать, на самом деле это не так и вероятнее всего и не могло быть иначе. Во внешних ссылках от Boris_R  как раз и содержится подробная информация как обзываются поля и как обновлять из и с какой стороны они выполняют простейшие действия. Пока нет времени, но займусь обязательно...

Stupid is as stupid does!

21

Re: Как перенести таблицу Excel в Word

Несказанную радость доставил результат осознанного big_smile прочтения этой ссылки http://wordexpert.ru/page/table-word2
Правда "прямой путь не всегда самый короткий", так и у меня получилось. Серия вопросов возникла после первого прочтения а какие формулы бывают, а как при вставке "поле" выбрать числовое значение там их много всяких и главное - ошибка я не понял сразу, "Формула" ищется в совсем другом меню "Таблица"на основной панели, а не на панели таблица... sad
Распечатка и изучение внешних ссылок с сайта MS прояснила многое даже такому "механическому" программисту как я и в результате между строк "Народных советов" засияло Сокровенное знание! smile
Дай Бог удачи этому замечательному человеку и тем неравнодушным людям, которые пришли и поддерживают огонь в его сайте.
Тут надо прослезиться! smile
Короче. В чём смысл сказанного вариант с защищённой формой самый и самый подходящий.
Думать и размышлять в каком формате писать цифру и на какую клавишу нажимать - обновлять поле явно не для нас истинных ценителей Word.
Всё должно вписываться без вариантов, быть защищено и считать само!
И главное - без привлечения всяких там Excellей!
В результате вышла обновлённая таблица имени Boris_R, а у меня повод гордиться
этим маленьким успехом!
Ура короче.

Post's attachments

Таблица имени майора Бориса.doc 26 Кб, файл не был скачан. 

You don't have the permssions to download the attachments of this post.
Stupid is as stupid does!

22

Re: Как перенести таблицу Excel в Word

Да, "если ситуация улучшается, значит вы чего-то не заметили"!
Фигня вышла...
Чуяло моё сердце. Ещё по шапочному знакомству с Acces помню что образование "Форма" это крайне негибкая структура предназначенная для того, что бы чужие шаловливые ручки ничего не испортили кривым введением данных.
Когда я поместил свою таблицу в документ и нажал "защитить форму" вдруг все кнопочки на собственных панелях и даже о ужас на основной панели вдруг стали белёсыми и перестали нажиматься, более того в соседней табличке стало так же невозможно вводить данные - ведь там я никаких полей не назначал и всё благолепие накрылось!
Видимо без волшебной клавиши F9 не обойтись, а может и без Exellя будь он неладен...
Нету в жизни счастья. sad

Stupid is as stupid does!