class= " lineNumbers " de
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 :
187 :
188 :
189 :
190 :
191 :
192 :
193 :
194 :
195 :
196 :
197 :
198 :
199 :
200 :
201 :
202 :
203 :
204 :
205 :
206 :
207 :
208 :
209 :
210 :
211 :
212 :
213 :
214 :
215 :
216 :
217 :
218 :
219 :
220 :
221 :
222 :
223 :
224 :
225 :
226 :
227 :
228 :
229 :
230 :
231 :
232 :
233 :
234 :
235 :
236 :
237 :
238 :
239 :
240 :
241 :
242 :
243 :
244 :
245 :
246 :
247 :
248 :
249 :
250 :
251 :
252 :
253 :
254 :
255 :
256 :
257 :
258 :
259 :
260 :
261 :
262 :
263 :
264 :
265 :
266 :
267 :
268 :
269 :
270 :
271 :
272 :
273 :
274 :
275 :
276 :
277 :
278 :
279 :
280 :
281 :
282 :
283 :
284 :
285 :
286 :
287 :
288 :
289 :
290 :
291 :
292 :
293 :
294 :
295 :
296 :
297 :
298 :
299 :
300 :
301 :
302 :
303 :
304 :
305 :
306 :
307 :
308 :
309 :
310 :
311 :
312 :
313 :
314 :
315 :
316 :
317 :
318 :
319 :
320 :
321 :
322 :
323 :
324 :
325 :
326 :
327 :
328 :
329 :
330 :
331 :
332 :
333 :
334 :
335 :
336 :
337 :
338 :
339 :
340 :
341 :
342 :
343 :
344 :
345 :
346 :
347 :
348 :
349 :
|
class= de
le >Option " de l'id= " codeSnippet846516 de 1 puis
wdDoc.Bookmarks (« \ EndOfDoc »). wdSectionBreakNextPage de Range.InsertBreak
Finir si
'insérer le document de source dans le Doc. blanc
wdDoc.Bookmarks (« \ EndOfDoc »). strSourceFullPath 'GLS de Range.InsertFile
'calculer le nombre de tables dans le document à la première page
S'intRecordNumber = 1 puis 'GLS
intTableCount = wdDoc.Tables.Count 'GLS
Debug.Print wdDoc.Tables.Count 'GLS
Finir si 'GLS
Rst de Debug.Print ! S_Lname et « « et rst ! S_Fname ; » « et rst ! S_Id
'======================
'propriétés d'affichage pour l'essai
'======================
Placer les wdPrps = le wdDoc.CustomDocumentProperties 'GLS
Pour chaque wdPrp dans les wdPrps
Debug.Print wdPrp.Name et « : » et wdPrp.Value
Après
'======================
'peupler les propriétés et le document de mise à jour
'======================
Avec des wdPrps
. Article (« w_a_StudentName »). Valeur = rst ! S_Lname et », « et rst ! S_Fname
. Article (« w_b_Subject »). Valeur = rst ! S_Subject
. Article (« w_c_CourseTitle »). Valeur = rst ! S_Title
. Article (« w_d_CourseNumber »). Valeur = rst ! S_Course_Number
. Article (« w_e_CAD »). Valeur = rst ! S_Advisor_Lname et », « et rst ! S_Advisor_Fname
. Article (« w_f_StartDate »). Valeur = rst ! S_StartDate
. Article (« w_g_EndDate »). Valeur = rst ! S_EndDate
. Article (« w_h_InstructorName »). Valeur = rst ! S_Instructor_Fname et » « et rst ! S_Instructor_Lname
. Article (« w_i_StreetLine1 »). Valeur = rst ! S_street1
. Article (« w_j_StreetLine2 »). Valeur = rst ! S_street2
'. Article (« w_k_StreetLine3 »). Valeur = rst ! S_street3
. Article (« w_l_City »). Valeur = rst ! S_city
. Article (« w_m_State »). Valeur = rst ! S_state
. Article (« w_n_Zip »). Valeur = rst ! S_zip
. Article (« w_o_CRN »). Valeur = rst ! S_CRN
Extrémité avec
'======================
'mettre à jour les propriétés et convertir en texte, de sorte que les appui verticaux ne puissent pas être re-mis à jour
'======================
wdDoc.fields.Update 'GLS
champs de converti de GLS de wdDoc.fields.Unlink 'au texte
'========================
'position au premier élément de la table pour insérer l'image
'========================
'ajouter dans la ligne image
strImageFile = « bannière de PICS d'O:\COM Photos\MED \ » et _
rst ! S_Id et « .jpg »
Si "" (strImageFile) de <> de dir alors
Autrement
strImageFile = « bannière de PICS d'O:\COM Photos\MED \ » et _
« a_missingPhoto.jpg »
Finir si
'http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Coding-Macros/Q_23702385.html?sfQueryTermInfo=1+cell+imag+insert+tabl+word
'calculer la position de table pour la nouvelle page, autrement continuera à insérer l'image dans
'la première table à la première page
lngTablePos = 1 + intTableCount * (intRecordNumber - 1)
wdTable réglé = wdDoc.Tables (lngTablePos) 'GLS
'insérer l'image dans le ęr élément de la table
wdDoc.Range.InlineShapes.AddPicture strImageFile, _
Faux, vrai, wdTable.Cell (1, 1).Range
nextrec :
rst.MoveNext
Boucle
'======================
'sauf en tant que dossier de Doc. de mot
'======================
strWordResultFile = format (date, « YYYY_MM_DD ») et » _ « et strTitleName et » .doc "
strResultFullPath = CurrentProject.Path et « \ » et strWordResultFile
'* supprimer le dossier existant
Si "" de <> de dir (strResultFullPath) alors
Mise à mort (strResultFullPath)
Finir si
strResultFullPath de wdDoc.SaveAs
'=========================
'sauf comme le dossier de pdf si Adobe est sur le PC
'=========================
S'IsAdobeInstalled = rectifient alors
'sauf des arrangements d'imprimante par défaut
pg_strDefaultPrinter = appWord.ActivePrinter
'Créer la picoseconde, la NOTATION, noms de dossier de pdf de nom de fichier d'Excel
lngPos = InStr (strResultFullPath, « .")
strPSfile = est parti (strResultFullPath, lngPos) et la « picoseconde »
strLOGfile = est parti (strResultFullPath, lngPos) et la « notation »
strPDFfile = est parti (strResultFullPath, lngPos) et le « pdf »
Debug.Print strPSfile
Debug.Print strLOGfile
Debug.Print strPDFfile
'imprimante par défaut de priorité avec l'imprimeur d'Adobe
appWord.ActivePrinter = « pdf d'Adobe sur LPT2 : »
'se rappeler de placer : Distillateur d'acrobate d'outils/références
Placer l'objPDF_Distiller = nouveau PdfDistiller
la 'copie est vraiment une exportation au pdf
appWord.PrintOut, copies : =1, _
PrintToFile : =True, OutputFileName : =strPSfile
'Dossier de picoseconde d'acrobate de converti au dossier de pdf
lngResult = objPDF_Distiller.FileToPDF (strPSfile, strPDFfile, "")
'dossiers de travail de suppression
Mise à mort strPSfile
Mise à mort strLOGfile
Placer l'objPDF_Distiller = rien
'Reconstituer les arrangements d'imprimante par défaut
appWord.ActivePrinter = pg_strDefaultPrinter
Finir si
savechanges de wdDoc.Close : =False
appWord.Quit
finishup :
Si strrst = « y » puis
rst. Fin
Finir si
DB. Se fermer
Placer l'appWord = rien
Placer les wdDocs = rien
Placer le wdDoc = rien
Placer le wdImage = rien
Placer wdTable = rien
Placer les wdPrps = rien
Placer le wdPrp = rien
Placer l'objPDF_Distiller = rien
Placer DB = rien
Placer le rst = rien
ErrorHandlerExit :
Sortir le sous-marin
ErrorHandler :
Si errent = 429 alors
Le 'mot ne fonctionne pas ; ouvrir le mot avec CreateObject
Placer l'appWord = le CreateObject (« Word.Application »)
Reprendre après
Autrement
No. d'erreur de MsgBox « : » Et Err.Number et « ; Description : » Et Err.Description
Résumé ErrorHandlerExit
Finir si
Finir le sous-marin
Fonction publique IsAdobeInstalled () comme booléen
Faible strTemp comme corde
IsAdobeInstalled = faux
strTemp = dir (« C:\Program Files\Adobe\acrobat * », vbDirectory)
Faire jusqu'au strTemp = au ""
IsAdobeInstalled = rectifient
strTemp = dir ()
Boucle
Fonction de fin
|