Automatyczne generowanie ebooków dla partnerów

Przykładowo mając sklep wędkarski możesz napisać ebooka: 25 skutecznych trików na łowienie ryb. Pewnie do wykorzystania niektórych trików trzeba będzie kupić jakiś tani przyrząd z Twojego sklepu internetowego. Nawet jeśli nie uda się Tobie w treści ebooka przemycić linków to zawsze na początku ebooka możesz zamieścić kilka informacji o sobie (tj., że jesteś właścicielem sklepu wędkarskiego). Teraz możesz zachęcić partnerów aby rozdawali Twoje ebooki - nie jest to trudne gdyż obiecasz partnerom, że w ebooku będą ich linki partnerskie i taki partner bardzo chętnie będzie rozdawał ebooka (np. zamieści na swojej stronie internetowej). Jednak takie generowanie ebooków nie jest wygodne - szczególnie wtedy gdy dany ebook zawiera dużo linków lub wtedy gdy chcesz rozdawać kilka ebooków. Jednak jest na to rada: napisałem makro w OpenOffice Basic które robi następujące rzeczy:

1. Tworzy katalog o nazwie
2. Otwiera szablon ebooka
3. Podmienia linki
4. Zapisuje w tym katalogu zmodyfikowany plik
5. Generuje plik PDF i zapisuje go w katalogu
6. Jeśli jest kilka ebooków to wraca do kroku nr 2 a jeśli już się skończyły ebooki to otwiera folder w którym są zapisane wygenerowane ebooki

Pobierz makro (3 KB)

Makro było pisane dla mnie i wymaga kilku przeróbek. Nie jest jakieś super ekstra, ale na moje potrzeby w zupełności wystarcza. Po pierwsze w oryginalnej wersji na dysku d: w folderze !ebooki-ententa należy zapisać szablony ebooków (najlepiej w nazwach plików nie używać polskich liter i spacji). Pliki muszą mieć rozszerzenie odt Makro w tym folderze tworzy podfoldery o nazwie i tam wrzuca wygenerowane pliki (makro na wszelki wypadek nie usuwa plików odt aby można było we własnym zakresie np. dokonać innych zmian edycyjnych) Makro działa tak, że skanuje dokument w poszukiwaniu linków i jeśli w linku jest słowo damian to podmienia je na wprowadzoną nazwę partnera. Makro również ma możliwość zmiany linku partnerskiego do PP ZłoteMyśli (gdyż w jednym ebooku Ententy była reklama ebooka z ZłotychMyśli) w tym celu makro szuka ciągu znaków ententa.p i zamienia je na podany login partnera w ZM. Jeśli w ebooku nie ma linków partnerskich do ZM to możesz w funkcji zmienlink usunąć linijkę X=replace(X,"/ententa.p","/"+IDZM+".p") Makro jest prymitywne ale fajnie działa. Warto ebooka napisać w OpenOffice, gdyż nie zawsze po zaimportowaniu pliku DOC OpenOffice odwzoruje plik w 100%. W przypadku jednego ebooka który był pisany w Wordzie a później edytowany w OpenOffice musiałem usunąć i na nowo utworzyć stopkę, gdyż z niewiadomych mi przyczyn makro nie podmieniało linków w stopce. Aha - makro nie podmienia linków w obrazkach.

Mam nadzieję, że to makro spowoduje wzrost obrotów w Twoim programie partnerskim. Przykładowe ebooki wygenerowane przez to makro możesz ściągnąć klikając w ten link (450 KB)