adding HTML code to macro

G

goofy78270

Well-known Member
Joined
May 16, 2007
Messages
555
I currently have a macro that exports all worksheets in a workbook to a word document. I would like to add a javascript function to the document and between each page to offer a slide effect to the word document before publishing the document as a web file.

Here is the script that I would add at the beginning of the file:
Code: 
<TABLE><TBODY><TR><TD class=number><CODE>01</CODE></TD><TD class=content><CODE class="jscript keyword">function</CODE> <CODE class="jscript plain">doSlide(id){ </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>02</CODE></TD><TD class=content><CODE class="jscript plain">timeToSlide = 50; </CODE><CODE class="jscript comments">// in milliseconds </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>03</CODE></TD><TD class=content><CODE class="jscript plain">obj = document.getElementById(id); </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>04</CODE></TD><TD class=content><CODE class="jscript keyword">if</CODE><CODE class="jscript plain">(obj.style.display == </CODE><CODE class="jscript string">"none"</CODE><CODE class="jscript plain">){ </CODE><CODE class="jscript comments">// if it's allready hidden we slide it down </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>05</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript plain">obj.style.visibility = </CODE><CODE class="jscript string">"hidden"</CODE><CODE class="jscript plain">; </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>06</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript plain">obj.style.display = </CODE><CODE class="jscript string">"block"</CODE><CODE class="jscript plain">; </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>07</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript plain">height = obj.offsetHeight; </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>08</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript plain">obj.style.height=</CODE><CODE class="jscript string">"0px"</CODE><CODE class="jscript plain">; </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>09</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript plain">obj.style.visibility = </CODE><CODE class="jscript string">"visible"</CODE><CODE class="jscript plain">; </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>10</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript plain">slideDown(obj,0,height,Math.ceil(height/timeToSlide)); </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>11</CODE></TD><TD class=content><CODE class="jscript plain">} </CODE><CODE class="jscript keyword">else</CODE> <CODE class="jscript plain">{ </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>12</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript plain">slideUp(obj,Math.ceil(obj.offsetHeight/timeToSlide),obj.offsetHeight); </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>13</CODE></TD><TD class=content><CODE class="jscript plain">} </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>14</CODE></TD><TD class=content><CODE class="jscript plain">} </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>15</CODE></TD><TD class=content><CODE class=spaces> </CODE> </TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>16</CODE></TD><TD class=content><CODE class="jscript keyword">function</CODE> <CODE class="jscript plain">slideDown(obj,offset,full,px){ </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>17</CODE></TD><TD class=content><CODE class="jscript keyword">if</CODE><CODE class="jscript plain">(offset < full){ </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>18</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript plain">obj.style.height = offset+</CODE><CODE class="jscript string">"px"</CODE><CODE class="jscript plain">; </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>19</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript plain">offset=offset+px; </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>20</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript plain">setTimeout((</CODE><CODE class="jscript keyword">function</CODE><CODE class="jscript plain">(){slideDown(obj,offset,full,px);}),1); </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>21</CODE></TD><TD class=content><CODE class="jscript plain">} </CODE><CODE class="jscript keyword">else</CODE> <CODE class="jscript plain">{ </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>22</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript plain">obj.style.height = full+</CODE><CODE class="jscript string">"px"</CODE><CODE class="jscript plain">; </CODE><CODE class="jscript comments">//If the data inside is updated on runtime you can use auto instead... </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>23</CODE></TD><TD class=content><CODE class="jscript plain">} </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>24</CODE></TD><TD class=content><CODE class="jscript plain">} </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>25</CODE></TD><TD class=content><CODE class=spaces> </CODE> </TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>26</CODE></TD><TD class=content><CODE class="jscript keyword">function</CODE> <CODE class="jscript plain">slideUp(obj,px,full){ </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>27</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript keyword">if</CODE><CODE class="jscript plain">((obj.offsetHeight-px) > 0){ </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>28</CODE></TD><TD class=content><CODE class=spaces>      </CODE><CODE class="jscript plain">obj.style.height = obj.offsetHeight-px+</CODE><CODE class="jscript string">"px"</CODE><CODE class="jscript plain">; </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>29</CODE></TD><TD class=content><CODE class=spaces>      </CODE><CODE class="jscript plain">setTimeout((</CODE><CODE class="jscript keyword">function</CODE><CODE class="jscript plain">(){slideUp(obj,px,full);}),1); </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>30</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript plain">} </CODE><CODE class="jscript keyword">else</CODE> <CODE class="jscript plain">{ </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>31</CODE></TD><TD class=content><CODE class=spaces>      </CODE><CODE class="jscript plain">obj.style.height=full+</CODE><CODE class="jscript string">"px"</CODE><CODE class="jscript plain">; </CODE><CODE class="jscript comments">// we reset the height if we were to slide it back down </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>32</CODE></TD><TD class=content><CODE class=spaces>      </CODE><CODE class="jscript plain">obj.style.display = </CODE><CODE class="jscript string">'none'</CODE><CODE class="jscript plain">; </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>33</CODE></TD><TD class=content><CODE class=spaces>   </CODE><CODE class="jscript plain">} </CODE></TD></TR></TBODY></TABLE>
<TABLE><TBODY><TR><TD class=number><CODE>34</CODE></TD><TD class=content><CODE class="jscript plain">}</CODE></TD></TR></TBODY></TABLE>

Then I would simple add an anchor tag to each section around each page as is is imported to the word document.

Has anyone done anything like this? Should I be looking in another direction for such a project?
 

Excel Facts

Save Often
If you start asking yourself if now is a good time to save your Excel workbook, the answer is Yes
You must log in or register to reply here.

Similar threads

D
  • Solved
VBA Function to Paste Table into Outlook Email Resulting in HTML language in Email
Replies
8
Views
613
smozgur
smozgur
D
  • Question Question
Can't get MailMerge to work through VBA
Replies
0
Views
286
DetroitJimBurke
D
M
  • Question Question
Removing right-click menu items
Replies
4
Views
287
mcomp72
M
D
  • Solved
Count total award value per unique supplier
Replies
4
Views
123
Fluff
Fluff
J
  • Question Question
Power Query editor OR VBA to extract data from Grants.gov
Replies
3
Views
376
Jagadeshrao
J

Forum statistics

Threads
1,224,506
Messages
6,179,159
Members
452,892
Latest member
yadavagiri

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top