Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Из Excel в Word через Bookmarks, Оптимизация кода макроса
 
#1
16.06.2017 16:40:55
Добрый день, форумчане!

Подскажите, пожалуйста, как правильно описать копирование в Word из Excel через закладки? Код у меня (найден в интернете) работает, но смущает, что я что-то лишнее написал :(

Если что, текст будет копироваться из разных ячеек, листов, а также целые таблицы (пока код только на ячейки с определенного листа).
Код
?
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
Sub OpenDocument()
  
Dim wda As Word.Application
  
Set wda = CreateObject("Word.Application")
  
With wda
.Visible = True
.Documents.Open "U:\Documentik.docx"
.ActiveDocument.Bookmarks("Pervaya").Select
End With
  
Worksheets("qwerty").Activate
Range("B1").Copy
wda.Selection.PasteSpecial
 
With wda
.Visible = True
.Documents.Open "U:\Documentik.docx"
.ActiveDocument.Bookmarks("Vtoraya").Select
End With
 
Range("C1").Copy
wda.Selection.PasteSpecial
  
End Sub
 
 
 
#2
17.06.2017 10:38:44
Код не мой, но работает

Код
?
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Sub CallDoc()
Call funOutputWord("" & ThisWorkbook.Path & "\temlate.dotx", "" & ThisWorkbook.Path & "\result.docx")
 
End Sub
 
 
'функция выгрузки в Word значений полей формы через закладки в шаблоне
Function funOutputWord(strPathDot As String, strPathWord As String) As Boolean
On Error GoTo Err_
 
Dim DlgUser As Integer, i As Long
 
    'проверяем наличие софрмированного ранее документа
    If Dir(strPathWord) <> "" Then 'если нашелся документ по заданому в strPathWord полному пути (вместе с именем)
        DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbYesNo, "Внимание !!!")
        If DlgUser = vbNo Then 'если пользователь выбрал Нет - то открываем прежний вариант документа
            Set app = CreateObject("Word.Application") 'создаем объект Word, чтобы можно было работать с его методами и свойствами
            With app
                .Visible = True 'запускаем приложение Word
                .Documents.Open strPathWord 'открываем документ (по пути в переменной strPathWord)
            End With
            Set app = Nothing 'уничтожаем переменную
        Else 'если пользователь выбрал Да - то есть согласился перезаписать документ
            GoTo nn 'переходим по метке nn
        End If
    Else 'если не нашлось документа по заданому в strPathWord полному пути
nn:
        Set app = New Word.Application 'делаем ссылку на объект Word для создания нового документа
        app.Visible = True 'запускаем приложение Word
        app.Documents.Add strPathDot 'присоединяем к объекту Word шаблон по заданому пути
        With app.ActiveDocument 'делаем ссылку на активный документ - в данном случае тот что формируется
            'находим закладку по имени в заменяем ее на текст из поля формы
             
            'общая часть
            .Bookmarks.Item("bookmark_1").Range.Text = IIf(IsNull(Sheets(1).Cells(1, 1).Value), "", Sheets(1).Cells(1, 1).Value)
            .Bookmarks.Item("bookmark_2").Range.Text = IIf(IsNull(Sheets(1).Cells(1, 2).Value), "", Sheets(1).Cells(1, 2).Value)
            'и так далее. Если все букмарки назвать однотипно, то можно завернуть в цикл
 
             
            'если в шаблоне нужно заполнить таблицу - запускаем соответсвующую функцию
            'если заполнять таблицу не нужно - убираем эту строку
            'Call funOutputTableWordQuery(strPathDot, strPathWord)
             
            'Чистим незаполненные закладки
            With .Bookmarks
                For i = .Count To 1 Step -1
                    'если имя Bookmark совпадает с его содержимым
                    If .Item(i).Name = .Item(i).Range.Text Then
                        'Удаляем содержимое (вместе с ним удаляется и сама Bookmark)
                        .Item(i).Range.Text = ""
                    End If
                Next i
            End With
 
            .SaveAs strPathWord 'сохраняем созданный документ по заданному пути strPathWord
        End With
        Set app = Nothing 'уничтожаем переменную
    End If
    funOutputWord = True 'ставим флаг успешного выполнения функции
     
Exit_:
    Exit Function
Err_:
    funOutputWord = False
    Err.Clear
    app.Quit
    Resume Exit_
End Function
Изменено: panix1111 - 17.06.2017 10:40:05
Мы в Екселе не работаем, мы в нём живём!
 
 
 
#3
19.06.2017 13:02:56
panix1111,большое Вам спасибо! Попробую адаптировать под свой шаблон:)
 
 
 
#4
21.03.2018 16:44:29
Замечательный код, вот только у меня подтягивает из екселя значение созданное формулой, и у меня получается число с 8 знаками после запятой... Как мне изменить этот код для вставки форматированного текста ?
Код
?
1
.Bookmarks.Item("bookmark_1").Range.Text = IIf(IsNull(Sheets(1).Cells(1, 1).Value), "", Sheets(1).Cells(1, 1).Value)
 
 
 
#5
21.03.2018 16:51:05
Дмитрий Князев, попробуйте заменить value на text.
P.S. только второе :)
Изменено: Hugo - 21.03.2018 16:51:56
 
 
 
#6
21.03.2018 17:03:43
Не получается, в екселе 4,494 в ворд вытянуло 449,4....

ПыСы Интересно именно форматирование, потому что и суммы выводит без нулей, а как целые числа. При чем не пойму логику, одни с нулями другие без ((
Изменено: Дмитрий Князев - 21.03.2018 17:07:41
 
 
 
#7
21.03.2018 19:59:52
Дмитрий Князев, придайте нужный формат с помощью функции ТЕКСТ на листе или Format в VBA.
Цитата
Дмитрий Князев написал:
IIf(IsNull(Sheets(1).Cells(1, 1).Value),...
Значение ячейки не может быть Null, так что это лишнее.
 
 
 
#8
05.03.2020 16:11:26
Добрый день всем!

Macedon опубликовал простой макрос. Но в моем случае я открываю шаблон WORD'овского файла.

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

Можете подсказать, как сделать, чтобы создавался новый документ?

Заранее благодарю.
 
 
 
 
#9
05.03.2020 16:25:10
Доброе время суток
Цитата
zmike77 написал:
и шаблон остается не тронутым
Код
?
1
With wda.Documents.Add(Template:="d:\path\templateName.dotx")
 
 
 
#10
28.04.2023 19:17:18
Подскажите, пожалуйста, а как / можно ли при изменении текста закладок в документе и последующем
Код
?
1
ActiveDocument.Fields.Update

избежать последовательного появления выпадающих окон с подтверждением нового значения текста закладок?
Изменено: AlexV1 - 28.04.2023 19:18:00
 
 
 
#11
28.04.2023 19:26:09
AlexV1, Вы уверены что обновляются закладки, а не поля? Это совершенно другой вопрос и другая тема.
По вопросам из тем форума, личку не читаю.
 
 
 
#12
28.04.2023 19:35:50
Цитата
Вы уверены что обновляются закладки, а не поля? Это совершенно другой вопрос и другая тема.


Ну да, сначала изменяется текст закладок, .затем надо обновить соответствующие поля. Вышеуказанная строка в коде вызывает последовательное появление окошек, аки при "ручном" нажатии "обновить поля" в документе, хотелось бы обойтись без них. : )
Изменено: AlexV1 - 28.04.2023 19:36:33
 
 
 
#13
28.04.2023 19:38:25
ну поля и закладки как правило разные вещи. Без примера уверенности нет но
Код
?
1
2
3
application.DisplayAlerts=wdAlertsNone
 
application.DisplayAlerts=wdAlertsAll
По вопросам из тем форума, личку не читаю.
 
 
 
#14
28.04.2023 19:58:10
Цитата
написал:
ну поля и закладки как правило разные вещи. Без примера уверенности нет но
Код
?
1
    [URL=#]?[/URL]       1  2  3      application.DisplayAlerts=wdAlertsNone       application.DisplayAlerts=wdAlertsAll  
 
Увы, не помогло..
 
 
 
#15
28.04.2023 19:59:45
тогда составляйте маленький пример и отдельную тему.
По вопросам из тем форума, личку не читаю.
 
 
 
Страницы: 1
Читают тему
Loading...