Форум программистов, компьютерный форум, киберфорум
MS Office Word
Войти
Регистрация
Восстановить пароль
Другие темы раздела
MS Word поиск и добавление пробела https://www.cyberforum.ru/ms-word/thread177545.html
Есть файл с 1000+ символами, ну вот у каждого есть надстрочный и подстрочный знак. Нужно поставить пробел между надстрочным и подстрочным, если у кого нибудь есть варианты подскажите пожалуйста. ...
MS Word уравнение
не могу из ворда скопирывать уравнение.
MS Word Вопрос по настройке Word 2010
Здравствуйте, не знаю может этот вопрос обсуждался, но я не нашел ответа. Вопрос таков: Подскажите, пожалуйста, как сделать, что бы активное окно Word 2010 всегда было поверх остальных окон? ...
MS Word WORD 2007 исчезают оригиналы *.doc ! Проблема: Пользователь на локальном компьютере создает фаил word (*.doc, *.docx) присваивает ему имя (например "договор") записывает информация внутрь, сохраняет. В течении недели активно пользуется... https://www.cyberforum.ru/ms-word/thread176249.html
MS Word Как расположить таблицы и чертежи в ворде вертикально(формат книжный)? https://www.cyberforum.ru/ms-word/thread175938.html
Доброго времени суток. извините за оффтоп. Не нашел куда темку расположить корректно. Вот проблемка образовалась. Работаю с документом в ворде 2010. Документ состоит из текста, таблиц, чертежей,...
MS Word Сохранение данных формы без полей
Уважаемы знатоки, помогите решить ребус с вордовскими документами. Есть шаблон документа - защищенная форма с полями (защищена не из соображений безопасности, а чтоб работали поля для ввода)....
MS Word откроет ли microsoft office 2003, файл форматом rtf?
откроет ли microsoft office 2003, файл форматом rtf?
MS Word Ошибка при установке. Решил установить 10 офис. Установка проходит нормально, ход инсталляции также виден, однако по его завершении появляется уведомление: ошибка при установке 10 офиса. В чем проблема? До этого... https://www.cyberforum.ru/ms-word/thread174501.html
MS Word Когда я хочу попробовать активировать,то пишется "ошибка связи" https://www.cyberforum.ru/ms-word/thread174150.html
у меня такая проблема-мне надо заполнить анкету,которую мне прислали на е-мейл,а мой Microsoft Office Word не активирован,и функция "сохранить" отсутствует.Когда я хочу попробовать активировать,то...
MS Word Создание колонок Необходимо сделать так,чтобы когда меняешь размер шрифта текста в колонках на меньший,этот текст не перескакивал в первую колонку,а оставался в своей:( Помогите пожалуйста,Word 2007 :cry: https://www.cyberforum.ru/ms-word/thread173762.html
Busine2009
Заблокирован
19.10.2010, 10:57 0

Автоматический перенос данных между документами

19.10.2010, 10:57. Просмотров 8947. Ответов 12
Метки (Все метки)

Ответ

lazyal,
Visual Basic
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
Sub m_3()
    Dim oDocument1 As Word.Document
    Dim vИмяФайла As String
    Dim vОтмена As Long
    With Application.FileDialog(msoFileDialogFilePicker)
        vОтмена = .Show
        .AllowMultiSelect = False
        If vОтмена = 0 Then
            Exit Sub
        Else
            vИмяФайла = .SelectedItems(1)
        End If
    End With
    Set oDocument1 = GetObject(vИмяФайла)
    Set oDocument1Table1 = oDocument1.Tables(1)
    On Error GoTo metka
    ActiveDocument.Tables(1).Cell(1, 1).Range = Left(oDocument1Table1.Cell(30, 2).Range, _
        Len(oDocument1Table1.Cell(30, 2).Range) - 2)
    ActiveDocument.Tables(1).Cell(1, 2).Range = Left(oDocument1Table1.Cell(31, 2).Range, _
        Len(oDocument1Table1.Cell(31, 2).Range) - 2)
    ActiveDocument.Tables(1).Cell(1, 3).Range = Left(oDocument1Table1.Cell(32, 2).Range, _
        Len(oDocument1Table1.Cell(32, 2).Range) - 2)
    ActiveDocument.Tables(1).Cell(1, 4).Range = Left(oDocument1Table1.Cell(26, 7).Range, _
        Len(oDocument1Table1.Cell(26, 7).Range) - 2)
    oDocument1.Close
    Exit Sub
metka:
    oDocument1.Close
    MsgBox "Ошибка. Попробуйте ещё раз." & vbCr & _
        "Скорее всего таблицы не соответствуют шаблонам (отличается количество строк и столбцов)!", vbCritical
End Sub


Вернуться к обсуждению:
Автоматический перенос данных между документами
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.10.2010, 10:57

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Автоматический перенос с одной таблице в word в другую
Неделю ломаю голову как сделать. Есть онлайн программа, которая создает ценники по выбранному...

Автоматический перенос нового абзаца на новую страницу
Есть ли возможность настроить документ таким образом что бы новый абзац автоматически переносился...

Перенос данных между документами без использования буфера обмена
Имеется word-файл-шаблон, в который вставлены DocVariable(ы), Холсты, Закладки и т.п.. В открытом...

Автоматический перенос данных
Можно ли с помощью формулы переносить данные "в конце дня" на соответствующий календарю день ?

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