-
Notifications
You must be signed in to change notification settings - Fork 5
/
macro
189 lines (176 loc) · 11.5 KB
/
macro
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
Option Explicit
Sub ToReveal()
'where to save the reveal
Dim rootFolder As String
rootFolder = "D:\"
Dim sld As slide, shp As Shape
Dim textSlide As String
Dim p As Presentation
Set p = ActivePresentation
Dim name As String
name = p.name
If (InStr(1, p.name, ".") > 1) Then
name = Mid(name, 1, InStr(1, p.name, ".") - 1)
End If
Dim NameFolder As String
NameFolder = rootFolder + name + "_reveal"
ActivePresentation.SaveCopyAs NameFolder, ppSaveAsJPG
Dim Sections As String, i As Integer, max As Integer
max = p.Slides.Count
For i = 1 To max
Sections = Sections + vbCrLf
Sections = Sections + "<section>"
Sections = Sections + "<img src='Slide" & i & ".jpg'>"
Sections = Sections + "</section>"
Next i
Dim str As String
str = OriginalReveal()
str = Replace(str, "#PPTName#", p.name)
str = Replace(str, "#section#", Sections)
Dim fileName As String, textRow As String, fileNo As Integer
fileName = NameFolder + "\index.html"
fileNo = FreeFile 'Get first free file number
Open fileName For Output As #fileNo
Print #fileNo, str
Close #fileNo
End Sub
Function OriginalReveal() As String
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + "<!doctype html>" + vbCrLf
OriginalReveal = OriginalReveal + "<html lang='en'>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " <head>" + vbCrLf
OriginalReveal = OriginalReveal + " <meta charset='utf-8'>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " <title>#PPTName#</title>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " <meta name='description' content='Exporter from Powerpoint to reveal'>" + vbCrLf
OriginalReveal = OriginalReveal + " <meta name='author' content='Andrei Ignat'>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " <meta name='apple-mobile-web-app-capable' content='yes'>" + vbCrLf
OriginalReveal = OriginalReveal + " <meta name='apple-mobile-web-app-status-bar-style' content='black-translucent'>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " <meta name='viewport' content='width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no, minimal-ui'>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " <link rel='stylesheet' href='http://lab.hakim.se/reveal-js/css/reveal.css'>" + vbCrLf
OriginalReveal = OriginalReveal + " <link rel='stylesheet' href='http://lab.hakim.se/reveal-js/css/theme/black.css' id='theme'>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " <!-- Code syntax highlighting -->" + vbCrLf
OriginalReveal = OriginalReveal + " <link rel='stylesheet' href='http://lab.hakim.se/reveal-js/lib/css/zenburn.css'>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " <!-- Printing and PDF exports -->" + vbCrLf
OriginalReveal = OriginalReveal + " <script>" + vbCrLf
OriginalReveal = OriginalReveal + " var link = document.createElement( 'link' );" + vbCrLf
OriginalReveal = OriginalReveal + " link.rel = 'stylesheet';" + vbCrLf
OriginalReveal = OriginalReveal + " link.type = 'text/css';" + vbCrLf
OriginalReveal = OriginalReveal + " link.href = window.location.search.match( /print-pdf/gi ) ? 'http://lab.hakim.se/reveal-js/css/print/pdf.css' : 'http://lab.hakim.se/reveal-js/css/print/paper.css';" + vbCrLf
OriginalReveal = OriginalReveal + " document.getElementsByTagName( 'head' )[0].appendChild( link );" + vbCrLf
OriginalReveal = OriginalReveal + " </script>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " <!--[if lt IE 9]>" + vbCrLf
OriginalReveal = OriginalReveal + " <script src='http://lab.hakim.se/reveal-js/lib/js/html5shiv.js'></script>" + vbCrLf
OriginalReveal = OriginalReveal + " <![endif]-->" + vbCrLf
OriginalReveal = OriginalReveal + " </head>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " <body>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " <div class='reveal'>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " <div class='slides'>" + vbCrLf
OriginalReveal = OriginalReveal + " #section#" + vbCrLf
OriginalReveal = OriginalReveal + " " + vbCrLf
OriginalReveal = OriginalReveal + " " + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " </div>" + vbCrLf
OriginalReveal = OriginalReveal + " </div>" + vbCrLf
OriginalReveal = OriginalReveal + " <style>" + vbCrLf
OriginalReveal = OriginalReveal + " /* Social sharing */" + vbCrLf
OriginalReveal = OriginalReveal + " .share-reveal a {" + vbCrLf
OriginalReveal = OriginalReveal + " display: inline-block;" + vbCrLf
OriginalReveal = OriginalReveal + " height: 34px;" + vbCrLf
OriginalReveal = OriginalReveal + " line-height: 32px;" + vbCrLf
OriginalReveal = OriginalReveal + " padding: 0 10px;" + vbCrLf
OriginalReveal = OriginalReveal + " color: #fff;" + vbCrLf
OriginalReveal = OriginalReveal + " font-family: Helvetica, sans-serif;" + vbCrLf
OriginalReveal = OriginalReveal + " text-decoration: none;" + vbCrLf
OriginalReveal = OriginalReveal + " font-weight: bold;" + vbCrLf
OriginalReveal = OriginalReveal + " font-size: 12px;" + vbCrLf
OriginalReveal = OriginalReveal + " vertical-align: top;" + vbCrLf
OriginalReveal = OriginalReveal + " text-transform: uppercase;" + vbCrLf
OriginalReveal = OriginalReveal + " box-sizing: border-box;" + vbCrLf
OriginalReveal = OriginalReveal + " }" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " .share-reveal .share-reveal-editor {" + vbCrLf
OriginalReveal = OriginalReveal + " line-height: 30px;" + vbCrLf
OriginalReveal = OriginalReveal + " }" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " .share-reveal svg {" + vbCrLf
OriginalReveal = OriginalReveal + " vertical-align: middle;" + vbCrLf
OriginalReveal = OriginalReveal + " }" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " .share-reveal a + a {" + vbCrLf
OriginalReveal = OriginalReveal + " margin-left: 10px;" + vbCrLf
OriginalReveal = OriginalReveal + " }" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " .share-reveal-editor {" + vbCrLf
OriginalReveal = OriginalReveal + " border: 2px solid #fff;" + vbCrLf
OriginalReveal = OriginalReveal + " }" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " .share-reveal-twitter," + vbCrLf
OriginalReveal = OriginalReveal + " .share-reveal-follow {" + vbCrLf
OriginalReveal = OriginalReveal + " background-color: #00aced;" + vbCrLf
OriginalReveal = OriginalReveal + " }" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " .share-reveal-facebook {" + vbCrLf
OriginalReveal = OriginalReveal + " background-color: #4B71B8;" + vbCrLf
OriginalReveal = OriginalReveal + " }" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " /* Advertising */" + vbCrLf
OriginalReveal = OriginalReveal + " #carbonads {" + vbCrLf
OriginalReveal = OriginalReveal + " width: 370px;" + vbCrLf
OriginalReveal = OriginalReveal + " min-height: 100px;" + vbCrLf
OriginalReveal = OriginalReveal + " font-size: 18px;" + vbCrLf
OriginalReveal = OriginalReveal + " border: 1px solid rgba(255, 255, 255, 0.2);" + vbCrLf
OriginalReveal = OriginalReveal + " padding: 10px;" + vbCrLf
OriginalReveal = OriginalReveal + " margin: 40px auto 0 auto;" + vbCrLf
OriginalReveal = OriginalReveal + " font-size: 16px;" + vbCrLf
OriginalReveal = OriginalReveal + " z-index: 10;" + vbCrLf
OriginalReveal = OriginalReveal + " text-align: left;" + vbCrLf
OriginalReveal = OriginalReveal + " }" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " #carbonads .carbon-img img {" + vbCrLf
OriginalReveal = OriginalReveal + " float: left;" + vbCrLf
OriginalReveal = OriginalReveal + " margin: 0 10px 0 0;" + vbCrLf
OriginalReveal = OriginalReveal + " border: 0;" + vbCrLf
OriginalReveal = OriginalReveal + " box-shadow: none;" + vbCrLf
OriginalReveal = OriginalReveal + " }" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " #carbonads .carbon-poweredby {" + vbCrLf
OriginalReveal = OriginalReveal + " display: block;" + vbCrLf
OriginalReveal = OriginalReveal + " margin-top: 10px;" + vbCrLf
OriginalReveal = OriginalReveal + " color: #aaa;" + vbCrLf
OriginalReveal = OriginalReveal + " }" + vbCrLf
OriginalReveal = OriginalReveal + " </style>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + "<script src='http://lab.hakim.se/reveal-js/lib/js/head.min.js'></script>" + vbCrLf
OriginalReveal = OriginalReveal + " <script src='http://lab.hakim.se/reveal-js/js/reveal.js'></script>" + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " <script>" + vbCrLf
OriginalReveal = OriginalReveal + " // More info https://github.com/hakimel/reveal.js#configuration" + vbCrLf
OriginalReveal = OriginalReveal + " Reveal.initialize({" + vbCrLf
OriginalReveal = OriginalReveal + " history: true," + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " // More info https://github.com/hakimel/reveal.js#dependencies" + vbCrLf
OriginalReveal = OriginalReveal + " dependencies: [" + vbCrLf
OriginalReveal = OriginalReveal + " { src: 'http://lab.hakim.se/reveal-js/plugin/markdown/marked.js' }," + vbCrLf
OriginalReveal = OriginalReveal + " { src: 'http://lab.hakim.se/reveal-js/plugin/markdown/markdown.js' }," + vbCrLf
OriginalReveal = OriginalReveal + " { src: 'http://lab.hakim.se/reveal-js/plugin/notes/notes.js', async: true }," + vbCrLf
OriginalReveal = OriginalReveal + " { src: 'http://lab.hakim.se/reveal-js/plugin/highlight/highlight.js', async: true, callback: function() { hljs.initHighlightingOnLoad(); } }" + vbCrLf
OriginalReveal = OriginalReveal + " ]" + vbCrLf
OriginalReveal = OriginalReveal + " });" + vbCrLf
OriginalReveal = OriginalReveal + " </script> " + vbCrLf
OriginalReveal = OriginalReveal + "" + vbCrLf
OriginalReveal = OriginalReveal + " </body>" + vbCrLf
OriginalReveal = OriginalReveal + "</html>" + vbCrLf
OriginalReveal = OriginalReveal + ""
End Function