Changinf рекордное количество (dblink) с макро Keaven Boies - 06-11-2009
привет !
Я в здании, что я только к изменению рекордное число некоторые текстовые шаблоны.
Есть ли кто-нибудь, кто знает, как делать это с макро.
прямо сейчас, Я делаю это вручную, но это так долго !
Re: Changinf рекордное количество (dblink) с макро Erik Hammack - 06-12-2009
присоединиться к группе chyronduetdesigners на Yahoo и скачать dblinkfortheblind макросы. Похоже, вы хотите, что это делает.
Попробуйте это, Я получил от этой группы Yahoo он работает хорошо Shawn Humphrey - 06-17-2009
этот макрос предполагает несколько вещей: Во-первых, вашей базы страница хранится на 501. Затем она принимает отчет поля в базе данных и авансы сообщение номера соответственно. Она будет строить и петли страниц до тех пор, пока он не достигнет в 'делать до тех пор, пока messagenumber' местоположение. Все эти вещи могут быть изменены в макро. Вы можете добавлять и удалять шаблоны на макроуровне в зависимости от того, сколько dblink-ных шаблонов в ваше сообщение.
Dim messagenumber
Dim recordnumber
Messagenumber = 502
записьnumber = 2
делать до тех пор, пока messagenumber = 506
лирический.Сообщение 501
лирический.читать
установить Templatep = activecanvas.Сцена.Selectedtemplate (0)
Templatep.Setactive
Templatep.Dblink.записьnumber = recordnumber
установить Templatep = activecanvas.Сцена.Selectedtemplate (1)
Templatep.Setactive
Templatep.Dblink.записьnumber = recordnumber
установить Templatep = activecanvas.Сцена.Selectedtemplate (2)
Templatep.Setactive
Templatep.Dblink.записьnumber = recordnumber
установить Templatep = activecanvas.Сцена.Selectedtemplate (3)
Templatep.Setactive
Templatep.Dblink.записьnumber = recordnumber
установить Templatep = activecanvas.Сцена.Selectedtemplate (4)
Templatep.Setactive
Templatep.Dblink.записьnumber = recordnumber
установить Templatep = activecanvas.Сцена.Selectedtemplate (5)
Templatep.Setactive
Templatep.Dblink.записьnumber = recordnumber
установить Templatep = activecanvas.Сцена.Selectedtemplate (6)
Templatep.Setactive
Templatep.Dblink.записьnumber = recordnumber
лирический.Сообщение messagenumber
лирический.запись
Messagenumber = messagenumber + 1
записьnumber = recordnumber + 1
петля
