Импорт данных с Excel в Word - очередное...

[Mint86]

Здравствуйте, знаю что тема неоднократно поднималась и обсуждалась, но все просмотренные темы результата не дали (согласен, может плохо смотрел). В общем нужна помощь.

Задача:
Во вложенном файле реализован договор купли продажи (пример). Мне необходимо импортировать данные в документ Word. Для этого я копирую определенный диапазон ячеек. Создаю объект Word (документ). Вставляю скопированный диапазон (таблицу) как Неформатированный текст (как в пункте MS Word - Правка/Специальная вставка). Копирую следующий необходимый диапазон ячеек и также вставляю.

После таких манипуляций между текстами образуется множество знаков абзаца. Чтобы это дело подправить делаю поиск с заменой с помощью подстановочных знаков найти ^0013{2;} (два и более подряд идущих абзаца) заменить на ^0013 (один абзац).

После того как текст отформатирован копирую и просто вставляю как таблицу уже другой диапазон (данные по товарам и реквизиты сторон). Чтобы найти куда вставлять данные таблицы заранее пишу в нужных местах документа ворд слова МЕТКА1 и МЕТКА2 (может это лишнее??)

Но, все что я пишу "делаю" означает на самом деле "хочется" но не получается...
Дополнительные данные написал в самом коде в комментариях.

Спасибо,

[staniiislav]

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

Здравствуйте, знаю что тема неоднократно поднималась и обсуждалась, но все просмотренные темы результата не дали (согласен, может плохо смотрел). В общем нужна помощь.

Задача:
Во вложенном файле реализован договор купли продажи (пример). Мне необходимо импортировать данные в документ Word. Для этого я копирую определенный диапазон ячеек. Создаю объект Word (документ). Вставляю скопированный диапазон (таблицу) как Неформатированный текст (как в пункте MS Word - Правка/Специальная вставка). Копирую следующий необходимый диапазон ячеек и также вставляю.

После таких манипуляций между текстами образуется множество знаков абзаца. Чтобы это дело подправить делаю поиск с заменой с помощью подстановочных знаков найти ^0013{2;} (два и более подряд идущих абзаца) заменить на ^0013 (один абзац).

После того как текст отформатирован копирую и просто вставляю как таблицу уже другой диапазон (данные по товарам и реквизиты сторон). Чтобы найти куда вставлять данные таблицы заранее пишу в нужных местах документа ворд слова МЕТКА1 и МЕТКА2 (может это лишнее??)

Но, все что я пишу "делаю" означает на самом деле "хочется" но не получается...
Дополнительные данные написал в самом коде в комментариях.

Спасибо,

посмотрите вот здесь:
http://excelvba.ru/code/CreateWordDocuments#attachments

[Mint86]

Спасибо, прочитал/посмотрел/попробовал, не получается отработать код вставки неформатированного текста и поиска с заменой...
Хочется чтобы код работал (если это возможно) без подключения references объекта Word

[staniiislav]

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

Спасибо, прочитал/посмотрел/попробовал, не получается отработать код вставки неформатированного текста и поиска с заменой...
Хочется чтобы код работал (если это возможно) без подключения references объекта Word

здесь посмотрите:
http://mirvba.ru/makrosi-excel/ekspo...schiu-vba.html

[Mint86]

Посмотрел, и на этом форуме смотрелhttp://www.sql.ru/forum/actualthread...507609#5093421 и http://www.cyberforum.ru/vba/thread284988.html посмотрел, но код вставки неформатированного текста не работает...
Ладно буду другие пути искать.

[Mint86]

В общем код

With objWord

         .Documents.Add
         .Visible = True
         .Parent.Selection.PasteAndFormat (wdFormatPlainText)
       
End With

и

With objWord
    .Selection.Find.ClearFormatting
    .Selection.Find.Replacement.ClearFormatting
        With objWord.Selection.Find
            .Text = "^0013{2;}"
            .Replacement.Text = "^0013"
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With
    .Selection.Find.Execute Replace:=wdReplaceAll
    
End With

Заработали только при включении references Word object librery что конечно же печально, так как если на компьютере не установлен данный reference код не будет работать...

[EducatedFool]

Заработали только при включении references Word object librery что конечно же печально

Если вы замените вордовские константы типа wdReplaceAll, wdFormatPlainText и wdFindAsk их числовыми значениями - подключать библиотеку будет совсем не обязательно )

[Mint86]

EducatedFool, спасибо, отсюда http://www.programmersforum.ru/showthread.php?t=58507 узнал что числовое значение wdReplaceAll это 2, где можно узнать числовые значения остальных констант? Чет найти не можется...

[Mint86]

Вот это правильно?

[nerv]

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

где можно узнать числовые значения остальных констант? Чет найти не можется...

открываете word, нажимаете alt+f11, затем f2. Далее поиск )