Экспорт в Word

@sloniha · Регистрация: 24.07.2011

Студворк — интернет-сервис помощи студентам

При экспорте поля отчета в Word и последующем открытии документа Word, появляются ненужные знаки табуляции и перевода строки. Как от них избавиться? Необходимо, чтобы информация этого поля, была в одну строку.

@BoNiM · 06.05.2007, 20:07

Мое мнение, что Вам нужно самому(ой) писать экспорт в Word. Примеры экспорта с шаблоном и без можно посмотреть здесь, файл la_automat.mdb

@sloniha · 06.05.2007, 22:45 **[ТС]**

1.

Visual Basic
1
Dim app As Word.Application

- на этом все заканчивается (неопределенная функция)

2. Есть некий набор записей который должен попасть в документ (фильтруется пользователем).

@BoNiM · 06.05.2007, 23:16

sloniha (06.05.2007)
Dim app As Word.Application - на этом все заканчивается (неопределенная функция)

Наверное не "неопределенная" функция, а User-defined type not defined.

Надо подключить библиотеку. Зайдите в редактор VB, в любой модуль - меню Tools->References, в списке найдите Microsoft Word 11.0 Object Library, отметьте галочкой и нажмите Ok. В зависимости от установленного офиса, цифры (11.0) могут быть другие.

@sloniha · 07.05.2007, 00:44 **[ТС]**

С первым вопросом разобралась. Спасибо. А как быть со вторым? Как обойтись без создания шаблона Word при экспорте отфильтрованного пользователем отчета?

@BoNiM · 07.05.2007, 01:16

sloniha (06.05.2007)
Есть некий набор записей который должен попасть в документ (фильтруется пользователем).

Набор записей помещается в Word`овскую таблицу или как?

@sloniha · 07.05.2007, 01:26 **[ТС]**

BoNiM (06.05.2007)

sloniha (06.05.2007)
Есть некий набор записей который должен попасть в документ (фильтруется пользователем).

Набор записей помещается в Word`овскую таблицу или как?

Нет, текст. Из отчета в Word экспортируются три поля - номер рубрики и текст объявления(из запроса) и свободное поле нумирующее записи по порядку внутри рубрики.

@BoNiM · 07.05.2007, 02:40

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

Тогда вместо строки

app.Selection.Text = Me.Body ' Вставляем текст

которая находится в процедуре butExecute_Click, создайте Recordset, источником записей которого будет источник записей отчета и, проходя в цикле по записям Recordset`а, выводите требуемую информацию.

@sloniha · 07.05.2007, 03:26 **[ТС]**

Как цикл организовать? У меня с рекордсетами не очень

@BoNiM · 07.05.2007, 04:27

Visual Basic
1
2
3
4
5
6
7
8
9
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset(источник, тип, параметры, блокировки)  'См.справку по методу OpenRecordset
Do Until rst.EOF
  app.Selection.Text = rst![Нужное_поле_1]
 
  '...
 
  rst.MoveNext
Loop

@sloniha · 07.05.2007, 04:41 **[ТС]**

Спасибо. Буду пробовать.

@sloniha · 09.05.2007, 06:24 **[ТС]**

Не получается прикрутить отчет с отобранными записями к Recordset. Как это сделать? Подскажите, пожалуйста.

@BoNiM · 09.05.2007, 11:57

sloniha (09.05.2007)
Не получается прикрутить отчет с отобранными записями к Recordset. Как это сделать? Подскажите, пожалуйста.

И не получится, такая прикрутка в принципе невозможна. Вы должны, как я уже писал, использовать источник записей отчета в качестве источника записей Recordset, при этом, необходимо учитывать фильтр, который, возможно, задается при открытии отчета методом OpenReport.

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

@sloniha · 15.05.2007, 03:15 **[ТС]**

<TABLE cellSpacing=0 cellPadding=0 width="100% <TBODY><TR><TD class=SmallTxt width="80% <DIV id=ctl03_ctlTopic_ctlPanelBar_ctlTopicsR epeater_ctl17_smAuthorName_SimpleMenuDiv Layer onmouseover="InstantASP_OpenMenuMouseOve r('ctl03_ctlTopic_ctlPanelBar_ctlTopicsR epeater_ctl17_smAuthorName','ctl03_ctlTo pic_ctlPanelBar_ctlTopicsRepeater_ctl17_ smAuthorName_SimpleMenuDivLayer','<table width=100% class=PanelBar_OuterTable cellspacing=0 cellpadding=0><tr><td><table width=100% cellspacing=1 cellpadding=7><tr><td class=TableCell_Light><a href=UserInfo3422.aspx Class= 'SmlLinks ' Title= 'View Members Profile '>View Member 's Profile</a></tr><tr><td class=TableCell_Light><a href=BuddyIgnoreList1.aspx?Username=BoNi M Class= 'SmlLinks ' Title= 'Add to Buddy List '>Add to Buddy List</a></tr><tr><td class=TableCell_Light><a href=javascript:__doPostBack( 'butSendPrivateMessage ', '3422 '); onMouseOver= 'window.status=window.location;return true; ' onMouseOut=window.status= ' 'return true; Class= 'SmlLinks ' Title= 'Send Private Message '>Send Private Message</a></tr><tr><td class=TableCell_Light><a href=javascript:__doPostBack( 'butSendEmail ', '3422 '); onMouseOver= 'window.status=window.location;return true; ' onMouseOut=window.status= ' 'return true; Class= 'SmlLinks ' Title= 'Send Email To Member '>Send Email To Member</a></tr><tr><td class=TableCell_Light><a href=javascript:__doPostBack( 'butShowMemberPosts ', '3422 '); onMouseOver= 'window.status=window.location;return true; ' onMouseOut=window.status= ' 'return true; Class= 'SmlLinks ' Title= 'Find All Members Posts '>Find All Member 's Posts</a></tr></td></tr></table></td></tr></table>','165px');" style="DISPLAY: inline" onclick="InstantASP_OpenMenu('ctl03_ctlT opic_ctlPanelBar_ctlTopicsRepeater_ctl17 _smAuthorName','ctl03_ctlTopic_ctlPanelB ar_ctlTopicsRepeater_ctl17_smAuthorName_ SimpleMenuDivLayer','<table width=100% class=PanelBar_OuterTable cellspacing=0 cellpadding=0><tr><td><table width=100% cellspacing=1 cellpadding=7><tr><td class=TableCell_Light><a href=UserInfo3422.aspx Class= 'SmlLinks ' Title= 'View Members Profile '>View Member 's Profile</a></tr><tr><td class=TableCell_Light><a href=BuddyIgnoreList1.aspx?Username=BoNi M Class= 'SmlLinks ' Title= 'Add to Buddy List '>Add to Buddy List</a></tr><tr><td class=TableCell_Light><a href=javascript:__doPostBack( 'butSendPrivateMessage ', '3422 '); onMouseOver= 'window.status=window.location;return true; ' onMouseOut=window.status= ' 'return true; Class= 'SmlLinks ' Title= 'Send Private Message '>Send Private Message</a></tr><tr><td class=TableCell_Light><a href=javascript:__doPostBack( 'butSendEmail ', '3422 '); onMouseOver= 'window.status=window.location;return true; ' onMouseOut=window.status= ' 'return true; Class= 'SmlLinks ' Title= 'Send Email To Member '>Send Email To Member</a></tr><tr><td class=TableCell_Light><a href=javascript:__doPostBack( 'butShowMemberPosts ', '3422 '); onMouseOver= 'window.status=window.location;return true; ' onMouseOut=window.status= ' 'return true; Class= 'SmlLinks ' Title= 'Find All Members Posts '>Find All Member 's Posts</a></tr></td></tr></table></td></tr></table>','165px'); Уважаемый BoNiM! Помогите, пожалуйста. Предмет в аттаче </DIV><NOSCRIPT><a title="View BoNiM's Profile..." class="SmlBoldLinks" href="UserInfo3422.aspx BoNiM</a></NOSCRIPT></TD><TD class=SmallTxt noWrap align=right width="20% </TD></TR></TBODY></TABLE>

@BoNiM · 17.05.2007, 03:08

Вы так все поскрывали, что я решил, что будет быстрее создать для демонстрации новую базу с Вашими данными (см. прикрепленный файл).

Открываете форму, жмете на кнопку, в каталоге C:InfoControl создается желаемый вордовский документ Proba.doc.

Обратите внимание, что после переноса кода процедуры Кнопка0_Click в свою рабочую базу, строки

'strFilter = ВыборОтчетностиПубликаций

'strName = "НиЦ на " & Me.ДатаС & " от " & Me.ВыборСотрудника.Column(1) & " отдела"

раскомментируйте, а строки

strFilter = ""

strName = "Proba"

удалите.

@sloniha · 18.05.2007, 19:46 **[ТС]**

Уважаемый BoNiM! Спасибо Вам огромное. Все получилось как надо. Не могли бы Вы мне выслать Ваши WMZ-реквизиты, для того, чтобы я имела возможность адекватно Вас отблагодарить? Спасибо.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@sloniha 0 / 0 / 0 Регистрация: 24.07.2011 Сообщений: 27

	Экспорт в Word 06.05.2007, 18:25. Показов 5802. Ответов 15 Метки нет (Все метки) При экспорте поля отчета в Word и последующем открытии документа Word, появляются ненужные знаки табуляции и перевода строки. Как от них избавиться? Необходимо, чтобы информация этого поля, была в одну строку. 0

@BoNiM 7 / 7 / 1 Регистрация: 06.12.2006 Сообщений: 329
	06.05.2007, 20:07
	Мое мнение, что Вам нужно самому(ой) писать экспорт в Word. Примеры экспорта с шаблоном и без можно посмотреть здесь, файл la_automat.mdb 0

@sloniha 0 / 0 / 0 Регистрация: 24.07.2011 Сообщений: 27
	07.05.2007, 00:44 [ТС]
	С первым вопросом разобралась. Спасибо. А как быть со вторым? Как обойтись без создания шаблона Word при экспорте отфильтрованного пользователем отчета? 0

@BoNiM 7 / 7 / 1 Регистрация: 06.12.2006 Сообщений: 329
	07.05.2007, 02:40
	Если Вы скачали файл, который я советовал, то у вас есть пример создания документа Word без шаблона. Тогда вместо строки app.Selection.Text = Me.Body ' Вставляем текст которая находится в процедуре butExecute_Click, создайте Recordset, источником записей которого будет источник записей отчета и, проходя в цикле по записям Recordset`а, выводите требуемую информацию. 0

@sloniha 0 / 0 / 0 Регистрация: 24.07.2011 Сообщений: 27
	07.05.2007, 03:26 [ТС]
	Как цикл организовать? У меня с рекордсетами не очень 0

@sloniha 0 / 0 / 0 Регистрация: 24.07.2011 Сообщений: 27
	07.05.2007, 04:41 [ТС]
	Спасибо. Буду пробовать. 0

@sloniha 0 / 0 / 0 Регистрация: 24.07.2011 Сообщений: 27
	09.05.2007, 06:24 [ТС]
	Не получается прикрутить отчет с отобранными записями к Recordset. Как это сделать? Подскажите, пожалуйста. 0

@sloniha 0 / 0 / 0 Регистрация: 24.07.2011 Сообщений: 27
	15.05.2007, 03:15 [ТС]
	<TABLE cellSpacing=0 cellPadding=0 width="100% <TBODY><TR><TD class=SmallTxt width="80% <DIV id=ctl03_ctlTopic_ctlPanelBar_ctlTopicsR epeater_ctl17_smAuthorName_SimpleMenuDiv Layer onmouseover="InstantASP_OpenMenuMouseOve r('ctl03_ctlTopic_ctlPanelBar_ctlTopicsR epeater_ctl17_smAuthorName','ctl03_ctlTo pic_ctlPanelBar_ctlTopicsRepeater_ctl17_ smAuthorName_SimpleMenuDivLayer','<table width=100% class=PanelBar_OuterTable cellspacing=0 cellpadding=0><tr><td><table width=100% cellspacing=1 cellpadding=7><tr><td class=TableCell_Light><a href=UserInfo3422.aspx Class= 'SmlLinks ' Title= 'View Members Profile '>View Member 's Profile</a></tr><tr><td class=TableCell_Light><a href=BuddyIgnoreList1.aspx?Username=BoNi M Class= 'SmlLinks ' Title= 'Add to Buddy List '>Add to Buddy List</a></tr><tr><td class=TableCell_Light><a href=javascript:__doPostBack( 'butSendPrivateMessage ', '3422 '); onMouseOver= 'window.status=window.location;return true; ' onMouseOut=window.status= ' 'return true; Class= 'SmlLinks ' Title= 'Send Private Message '>Send Private Message</a></tr><tr><td class=TableCell_Light><a href=javascript:__doPostBack( 'butSendEmail ', '3422 '); onMouseOver= 'window.status=window.location;return true; ' onMouseOut=window.status= ' 'return true; Class= 'SmlLinks ' Title= 'Send Email To Member '>Send Email To Member</a></tr><tr><td class=TableCell_Light><a href=javascript:__doPostBack( 'butShowMemberPosts ', '3422 '); onMouseOver= 'window.status=window.location;return true; ' onMouseOut=window.status= ' 'return true; Class= 'SmlLinks ' Title= 'Find All Members Posts '>Find All Member 's Posts</a></tr></td></tr></table></td></tr></table>','165px');" style="DISPLAY: inline" onclick="InstantASP_OpenMenu('ctl03_ctlT opic_ctlPanelBar_ctlTopicsRepeater_ctl17 _smAuthorName','ctl03_ctlTopic_ctlPanelB ar_ctlTopicsRepeater_ctl17_smAuthorName_ SimpleMenuDivLayer','<table width=100% class=PanelBar_OuterTable cellspacing=0 cellpadding=0><tr><td><table width=100% cellspacing=1 cellpadding=7><tr><td class=TableCell_Light><a href=UserInfo3422.aspx Class= 'SmlLinks ' Title= 'View Members Profile '>View Member 's Profile</a></tr><tr><td class=TableCell_Light><a href=BuddyIgnoreList1.aspx?Username=BoNi M Class= 'SmlLinks ' Title= 'Add to Buddy List '>Add to Buddy List</a></tr><tr><td class=TableCell_Light><a href=javascript:__doPostBack( 'butSendPrivateMessage ', '3422 '); onMouseOver= 'window.status=window.location;return true; ' onMouseOut=window.status= ' 'return true; Class= 'SmlLinks ' Title= 'Send Private Message '>Send Private Message</a></tr><tr><td class=TableCell_Light><a href=javascript:__doPostBack( 'butSendEmail ', '3422 '); onMouseOver= 'window.status=window.location;return true; ' onMouseOut=window.status= ' 'return true; Class= 'SmlLinks ' Title= 'Send Email To Member '>Send Email To Member</a></tr><tr><td class=TableCell_Light><a href=javascript:__doPostBack( 'butShowMemberPosts ', '3422 '); onMouseOver= 'window.status=window.location;return true; ' onMouseOut=window.status= ' 'return true; Class= 'SmlLinks ' Title= 'Find All Members Posts '>Find All Member 's Posts</a></tr></td></tr></table></td></tr></table>','165px'); Уважаемый BoNiM! Помогите, пожалуйста. Предмет в аттаче </DIV><NOSCRIPT><a title="View BoNiM's Profile..." class="SmlBoldLinks" href="UserInfo3422.aspx BoNiM</a></NOSCRIPT></TD><TD class=SmallTxt noWrap align=right width="20% </TD></TR></TBODY></TABLE> 0

@BoNiM 7 / 7 / 1 Регистрация: 06.12.2006 Сообщений: 329
	17.05.2007, 03:08
	Вы так все поскрывали, что я решил, что будет быстрее создать для демонстрации новую базу с Вашими данными (см. прикрепленный файл). Открываете форму, жмете на кнопку, в каталоге C:InfoControl создается желаемый вордовский документ Proba.doc. Обратите внимание, что после переноса кода процедуры Кнопка0_Click в свою рабочую базу, строки 'strFilter = ВыборОтчетностиПубликаций 'strName = "НиЦ на " & Me.ДатаС & " от " & Me.ВыборСотрудника.Column(1) & " отдела" раскомментируйте, а строки strFilter = "" strName = "Proba" удалите. 0

@sloniha 0 / 0 / 0 Регистрация: 24.07.2011 Сообщений: 27
	18.05.2007, 19:46 [ТС]
	Уважаемый BoNiM! Спасибо Вам огромное. Все получилось как надо. Не могли бы Вы мне выслать Ваши WMZ-реквизиты, для того, чтобы я имела возможность адекватно Вас отблагодарить? Спасибо. 0