просьба создание отчета по word

[Arderun]

Хочется разобратся поверхостно с возможностью через макрос excel вставлять создавать отчет в ворд(на глубокое понимании сейчас просто нет времени).

Может ли кто нибуть набросать пример из серии

выделяются мышкой 3 ячейки(1,2,3)

на основании их генерируется отчет word с постоянным текстом, но в местах которого вместо переменных x1 x2 x3 появляются значения из этих ячеек.

причем х повторяются в разном порядке разное количество раз по тексту.

[VictorM]

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

[Arderun]

Эту тему я уже читал, слишком мног олишнего для понимания и в ключевом месте(кажется вашего поста) как раз тот пример за который благодарят не отображается, брать же ошибочные просто нет времени как и основательно порытся в поиске. Хотя с правилом "гугл знает все" знаком в достаточной мере.

[The_Prist]

Как некое учебное пособие:

Sub OpenWord()
    Dim oWrdApp As Object, oWrdDoc As Object
    'создаем новое приложение Word. Можно так же проверять открыто или нет приложение через GetObject
    Set oWrdApp = CreateObject("Word.Application")
    'открываем документ Word
    Set oWrdDoc = oWrdApp.documents.Open("c:\doc1.doc")
    'Здесь производим нужные действия по копированию из Excel и вставке в Word
    Range("A1:A10").Copy
    objWrdDoc.Range(1, 1).Paste
    'Если надо вставить в объект Закладки Word-а
    objWrdDoc.Bookmarks("Закладка1").Text = Range("A1")
    'закрываем документ Word с сохранением
    oWrdDoc.Close True    ' False - без сохранения
    'закрываем приложение Word - обязательно!
    oWrdApp.Quit
    'стираем переменные Word
    Set oWrdDoc = Nothing: Set oWrdApp = Nothing
End Sub

[IgorGO]

чуть по-медленнее, пожалуйста, я записываю...

[Arderun]

Спасибо за азы, но я хотел бы пока увидеть в действии работающий макрос чтобы от него и реакций как-то дальше двигатся поскольку чаще всего запинаться в таких делах приходится не на вещах значимых а на какихто абсолютно дурацких заковырках которые и яйца выеденного не стоят, но лишь при условии что ты хоть как-то осознаешь все вместе, а с последним как-раз таки проблемы.

в той теме более чем прекрасным для начинания(такое чуство что и начинать бы ничего не пришлось все сделано) увидеть в работе макрос Тесленко http://programmersforum.ru/showthread.php?t=83659 но по какой-то непонятной причине я его не могу запустить. вроде-бы и папку создал и файл правильно назвал и закладки в нем (надеюсь) правильно разставил вроде как и изменение библиотеки МВ с неимеющейся 11 на 10 в данном макросе роковым не должно быть, но макрос не запускается(тоест ьпоявляется форма договора с кнопкой но по нажатии ничего не происходит).


Был бы безмерно благодарен если бы кто-то смог выполнить коректно требуемые условия в данном макросе и где-нибыть выложил папочку работающего примера(папка с файлом ворда с вставленными закладками) чтобы абсолютные деревья могли нажать кнопку увидеть что таки работает и скопировав в другое место подобный макрос ковырятся в нем пошагово.

[Arderun]

Сообщение от The_Prist

Как некое учебное пособие:

'Здесь производим нужные действия по копированию из Excel и вставке в Word
Range("A1:A10").Copy
objWrdDoc.Range(1, 1).Paste
'Если надо вставить в объект Закладки Word-а
objWrdDoc.Bookmarks("Закладка1").Te xt = Range("A1")

и вот здесь можно описать работу objWrdDoc.Range(1, 1).Paste он берет что? первую ячейку масива? тогда что значит вторая единица?

[Arderun]

просьба из сообщение #6 все еще актуальна.

[shanemac51]

выложите типичный для вас отчет

-ворд-док с пометками типа
Договор <a1> от <b1>

Заключен между <с1> в лице <д1> и <е1> в лице <f1>
по поводу ................................... ..........

подписи
<c1> <e1>
<d1> <f1>

и соответствующий ексель-док

пока мы говорим на разных языках
-на примере лучше видно --что есть
- и что надо
-уровень требований по оформлению
-используются ли внутренние таблицы(например типа диапазон из екселя 5*7 клеток)
-соответствует ли порядок столбиков в екселе и ворде
-есть ли вычисления по строке и столбцам
-формирование по-штучное -1шаблон=1 документ ворда
-или для каждого работника сформировать ........что-то -1шаблон=много документов(листов) ворда

пока одна болтовня

что-сколько-как вы хотите получить из екселя в ворд

что формировала
-всевозможные списки (сплошные и по цехам)
-списки с итогами
-счета-фактуры и накладные м15 по списку деталей, в дополнительном столбике номер накладной причем не по-порядку

------------------------------------- ------------------------------
дата