макрос

[elena]

всем здарсти не могу разобратся как изменить вот этот код. я хотела
из него зделать макрос, который копирует колонки из таблички xls, но как не пойму. сидела все выходные пыталась разобратся но так и не дошло.

Dim wdApp As Word.Application Dim wdDoc As Word.Document Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Open( _ Filename:="D:\1\Breitenstandard_d.doc") 'wdApp.Visible = True With wdDoc .Bookmarks("Bookmark1").Select wdApp.Selection.Text = Range("A1").Value .Bookmarks("Bookmark2").Select wdApp.Selection.Text = Range("A2").Value End With wdDoc.Close SaveChanges:=wdSaveChanges wdApp.Quit Set wdDoc = Nothing Set wdApp = Nothing

[Vladimir!]

elena, если код написан именно так, как в вашем сообщении, то Для начала структурируйте код правильно

[elena]

Vladimir!, спаибо за коментарии я вот не знаю так вы имели в виду :

Нет, он имел в виду так.

Код: Выделить всё

Dim wdApp As Word.Application
Dim wdDoc As Word.Document

Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open(Filename:="D:\1\Breitenstandard_d.doc")
'wdApp.Visible = Tru

With wdDoc
  .Bookmarks("Bookmark1").Select
  wdApp.Selection.Text = Range("A1").Value
  .Bookmarks("Bookmark2").Select
  wdApp.Selection.Text = Range("A2").Value
End With

wdDoc.Close SaveChanges:=wdSaveChanges
wdApp.Quit

Set wdDoc = Nothing
Set wdApp = Nothing

[$€rg]

и не забыть указать ссылку на библиотеку объектов Microsoft Word 11.0(9.0, 10.0) Object Library

[GSerg]

elena
Из приведённого кода, с учётом его целиком, не ясно, что требуется получить. Можно словами и подробно?

[elena]

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

[$€rg]

скопированы несколько документов?
должна быть формула?
если значение одинаковое?


какие документы откуда и куда скопированы
какая формула
значение чего по сравнению с чем

[elena]

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

-да
вы совершенно правы так

[elena]

помогите плиз, ну очень нужно..

[Vladimir!]

Елена, что значит "скопированы несколько документов"? У Вас есть пустая книга с кнопкой. Это понятно. Не понятно, какие "несколько документов" Вы собираетесь в неё копировать:
Вы собираетесь брать информацию из других книг Excel, какой-либо БД или текстового документа?

[elena]

Елена, что значит "скопированы несколько документов"? У Вас есть пустая книга с кнопкой. Это понятно.

Не понятно, какие "несколько документов" Вы собираетесь в неё копировать:

Вы собираетесь брать информацию из других книг Excel, -
какой-либо БД или текстового документа?

- копирывать надо : Листы Excel, из разных книг, из одногй папки. НО так чтобы не было задвоенных данных.

[Igor_123]

А как узнать есть ли задвоенные данные на листах ???

[elena]

А как узнать есть ли задвоенные данные на листах ???

я это представляю так : листы копируются по очереди в один лист. для каждого листа нужно нажимать кнопочку при этом должна стработать формула "ЕСЛИ Знач. совподают, то их не копировать"

[Igor_123]

elena

"ЕСЛИ Знач. совподают, то их не копировать"

По какому критерию можно понять что Знач. совпадают.

[Antonariy]

Дежавю, блин

[Igor_123]

Antonariy
Елена должна сначала сформулировать, что её необходимо!

"Счастья! Для Всех и даром" (с) "Пикник на обочине"
это не наш метод

[elena]

[quote="Igor_123"]Antonariy
По какому критерию можно понять что Знач. совпадают.
ах я совсем забыла об этом ну конечно значения имеют код по нему и нужно определять.

[Igor_123]

можно кусочек данных с пояснениями, где уникальный код, где данные для обработки

[elena]

можно кусочек данных с пояснениями, где уникальный код,

уникальные коды в колонках в екселе :
"A " C D E F G- в этих колонках текст со писанием кода
MCF003007A
MCF007022A
MCS001001A
MCS001002A

"B"
L
L
M
M

код в А может быть одинаковым но при этом В другим
пример:
A
MCF003007A
MCF003007A
"B"
L
M
где данные для обработки

- данне есть код по которому должно происходить сравнение и выбор.

[Igor_123]

код в А может быть одинаковым но при этом В другим
пример:
A B
MCF003007A L
MCF003007A M

- это будет считаться повторяющимися данными или нет?

[elena]

код в А может быть одинаковым но при этом В другим
пример:
A B
MCF003007A L
MCF003007A M

- это будет считаться повторяющимися данными или нет?

- да это уже повторяющие данные.
извините что я так плохо объясняю.

[Igor_123]

Кстрока должна содержаться в результате?

[elena]

Кстрока должна содержаться в результате?

где есть M ту нежно будет перенять.

[Nicky]

Кстрока должна содержаться в результате?

где есть M ту нежно будет перенять.

Как-как перенять?

[elena]

Как-как перенять? [/quote] -

заменить сроку с похожим названием.

[alibek]

У нас конечно не форум филологов, но нельзя же настолько неграмотно писать? Замечание.
Может быть имеет смысл проверять текст в Word?

[Ramzes]

alibek
Лучше б помог... вот я неграмотно пишу, а еще ни одного замечания не было... дискриминация блин! Ты ж наверное помнишь, у меня даже подпись была: "Простите за безграмотность и очепятки"

[Nicky]

alibek
Да и мне просто понравилась фраза: "Нежно перенять"
Такое услышишь только от женщины.
Никакого хмыка с моей стороны не предполагалось.
Будь суров, но справедлив!

[alibek]

Про Германию я проглядел. Замечание снимаю.
Но все-же просьба формулировать фразы тщательнее. Хотя бы в Word проверять, он большинство ошибок исправит.
Читать тяжело.

[elena]

Про Германию я проглядел. Замечание снимаю.
Но все-же просьба формулировать фразы тщательнее. Хотя бы в Word проверять, он большинство ошибок исправит.
Читать тяжело.

очень стыдно . но как же мне быть с моей задачкой? так ни кто не поможет ?