Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / WORD слияние из кода и ещё кое-что / 8 сообщений из 8, страница 1 из 1
13.01.2005, 10:17:56
    #32862524
Vw
Vw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WORD слияние из кода и ещё кое-что
есть такой код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim WordApp As Word.Application
Dim DocWord As Word.Document
Set WordApp = New Word.Application
WordApp.Visible = True
Set DocWord = WordApp.Documents.Open("С:\rpt.doc")
Dim strConnection As String
 strConnection = "DSN=MS Access Databases;"
With DocWord.MailMerge
        .OpenDataSource _
        Name:="C:\проектпилигрим\Baza_Rez+.mdb", _
        ReadOnly:=True, LinkToSource:=True, AddToRecentFiles:=False, Connection:=strConnection, SQLStatement:="SELECT * FROM [отчёт]"
     .Execute
End With
DocWord.Close
Set WordApp = Nothing
Set DocWord = Nothing
полсле его выполнения а точнее после EXECUT открывается документ rpt.doc и ещё один называется Формы1 в первом в полях слияния нет данных тока имена полей а второй всё как надо. А мне надо один документ но с данными.
Чё я ни так сделал????
...
Рейтинг: 0 / 0
13.01.2005, 10:44:05
    #32862617
WORD слияние из кода и ещё кое-что
Может програмно закрывать документ rpt.doc после слияния?
...
Рейтинг: 0 / 0
13.01.2005, 10:47:52
    #32862628
Vw
Vw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WORD слияние из кода и ещё кое-что
зыкрывал - это не выход остается документ формы1, как-то коряво
да и если сохранитьиз ворда потребуется то имя он ему формы1 присваевает
...
Рейтинг: 0 / 0
13.01.2005, 11:03:50
    #32862671
Vw
Vw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WORD слияние из кода и ещё кое-что
а какой команде соответствует кнопка в ворде
на панели слияния "поля/данные" ?
...
Рейтинг: 0 / 0
13.01.2005, 11:08:46
    #32862687
WORD слияние из кода и ещё кое-что
Попробуй вот так:

Код: plaintext
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
...
Рейтинг: 0 / 0
13.01.2005, 11:25:48
    #32862743
Vw
Vw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WORD слияние из кода и ещё кое-что
Всё ! спасибо то чо нада !
...
Рейтинг: 0 / 0
13.01.2005, 11:31:12
    #32862759
WORD слияние из кода и ещё кое-что
В итоге как сделал?
...
Рейтинг: 0 / 0
13.01.2005, 12:10:04
    #32862875
Vw
Vw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WORD слияние из кода и ещё кое-что
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
вместо
With DocWord.MailMerge
        .OpenDataSource _
        Name:="C:\проектпилигрим\Baza_Rez+.mdb", _
        ReadOnly:=True, LinkToSource:=True, AddToRecentFiles:=False, Connection:=strConnection, SQLStatement:="SELECT * FROM [отчёт]"
     .Execute
End With

поставил
With DocWord.MailMerge
        .OpenDataSource _
        Name:="C:\проектпилигрим\Baza_Rez+.mdb", _
        ReadOnly:=True, LinkToSource:=True, AddToRecentFiles:=False, Connection:=strConnection, SQLStatement:="SELECT * FROM [отчёт]"
     .ViewMailMergeFieldCodes = wdToggle
Execute
End With
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / WORD слияние из кода и ещё кое-что / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]