class= " lineNumbers " del
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= del
el >Option notpretty " del class= " del id= " codeSnippet846516 del 1 entonces
wdDoc.Bookmarks (“\ EndOfDoc”). wdSectionBreakNextPage de Range.InsertBreak
Terminar si
'insertar el documento de fuente en el doc. en blanco
wdDoc.Bookmarks (“\ EndOfDoc”). strSourceFullPath 'GLS de Range.InsertFile
'calcular el número de tablas en el documento en la primera página
Si intRecordNumber = 1 entonces 'GLS
intTableCount = wdDoc.Tables.Count 'GLS
Debug.Print wdDoc.Tables.Count 'GLS
Terminar si 'GLS
¡Rst de Debug.Print! ¡S_Lname y ““y rst! S_Fname; ¡” “y rst! S_Id
'======================
'características de la exhibición para los propósitos de prueba
'======================
Fijar los wdPrps = wdDoc.CustomDocumentProperties 'GLS
Para cada wdPrp en wdPrps
Debug.Print wdPrp.Name y “: ” y wdPrp.Value
Después
'======================
'poblar las características y el documento de la actualización
'======================
Con los wdPrps
. Artículo (“w_a_StudentName”). ¡Valor = rst! ¡S_Lname y”, “y rst! S_Fname
. Artículo (“w_b_Subject”). ¡Valor = rst! S_Subject
. Artículo (“w_c_CourseTitle”). ¡Valor = rst! S_Title
. Artículo (“w_d_CourseNumber”). ¡Valor = rst! S_Course_Number
. Artículo (“w_e_CAD”). ¡Valor = rst! ¡S_Advisor_Lname y”, “y rst! S_Advisor_Fname
. Artículo (“w_f_StartDate”). ¡Valor = rst! S_StartDate
. Artículo (“w_g_EndDate”). ¡Valor = rst! S_EndDate
. Artículo (“w_h_InstructorName”). ¡Valor = rst! ¡S_Instructor_Fname y” “y rst! S_Instructor_Lname
. Artículo (“w_i_StreetLine1”). ¡Valor = rst! S_street1
. Artículo (“w_j_StreetLine2”). ¡Valor = rst! S_street2
'. Artículo (“w_k_StreetLine3”). ¡Valor = rst! S_street3
. Artículo (“w_l_City”). ¡Valor = rst! S_city
. Artículo (“w_m_State”). ¡Valor = rst! S_state
. Artículo (“w_n_Zip”). ¡Valor = rst! S_zip
. Artículo (“w_o_CRN”). ¡Valor = rst! S_CRN
Extremo con
'======================
'poner al día las características y convertir al texto, de modo que los apoyos no puedan ser re-actualizados
'======================
wdDoc.fields.Update 'GLS
campos del convertido de GLS de wdDoc.fields.Unlink 'al texto
'========================
'posición al primer elemento de la tabla para insertar el cuadro
'========================
'agregar en la línea imagen
strImageFile = “bandera del Pics de O:\COM Photos\MED \” y _
¡rst! S_Id y “.jpg”
Si "" (strImageFile) del <> del dir entonces
strImageFile = “bandera del Pics de O:\COM Photos\MED \” y _
“a_missingPhoto.jpg”
Terminar si
'http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Coding-Macros/Q_23702385.html?sfQueryTermInfo=1+cell+imag+insert+tabl+word
'calcular la posición de la tabla para la nueva página, si no guardará el insertar del cuadro en
'la primera tabla en la primera página
lngTablePos = 1 + intTableCount * (intRecordNumber - 1)
wdTable determinado = wdDoc.Tables (lngTablePos) 'GLS
'insertar el cuadro en el 1r elemento de la tabla
wdDoc.Range.InlineShapes.AddPicture strImageFile, _
Falso, verdad, wdTable.Cell (1, 1).Range
nextrec:
rst.MoveNext
Lazo
'======================
'excepto como archivo de la palabra doc.
'======================
strWordResultFile = formato (fecha, “YYYY_MM_DD”) y” _ “y strTitleName y” .doc "
strResultFullPath = CurrentProject.Path y “\” y strWordResultFile
'* suprimir el archivo existente
Si "" del <> del dir (strResultFullPath) entonces
Matanza (strResultFullPath)
Terminar si
strResultFullPath de wdDoc.SaveAs
'=========================
'excepto como archivo del pdf si Adobe está en la PC
'=========================
Si IsAdobeInstalled = entonces verdad
'excepto ajustes de la impresora de defecto
pg_strDefaultPrinter = appWord.ActivePrinter
'Crear el picosegundo, REGISTRO, nombres del archivo del pdf del nombre de fichero de Excel
lngPos = InStr (strResultFullPath, “.")
strPSfile = se fue (strResultFullPath, los lngPos) y el “picosegundo”
strLOGfile = se fue (strResultFullPath, los lngPos) y el “registro”
strPDFfile = se fue (strResultFullPath, los lngPos) y el “pdf”
Debug.Print strPSfile
Debug.Print strLOGfile
Debug.Print strPDFfile
'impresora de defecto de la invalidación con la impresora de Adobe
appWord.ActivePrinter = “pdf de Adobe en LPT2: ”
'recordar fijar: Destilador del acróbata de las herramientas/de las referencias
Fijar el objPDF_Distiller = nuevo PdfDistiller
la 'impresión es realmente una exportación al pdf
appWord.PrintOut, copias: =1, _
PrintToFile: =True, OutputFileName: =strPSfile
'Archivo del picosegundo del acróbata del convertido al archivo del pdf
lngResult = objPDF_Distiller.FileToPDF (strPSfile, strPDFfile, "")
'archivos de trabajo de la cancelación
Matanza strPSfile
Matanza strLOGfile
Fijar el objPDF_Distiller = nada
'Restaurar los ajustes de la impresora de defecto
appWord.ActivePrinter = pg_strDefaultPrinter
Terminar si
savechanges de wdDoc.Close: =False
appWord.Quit
finishup:
Si strrst = “y” entonces
rst. Cierre
Terminar si
DB. Cerrarse
Fijar el appWord = nada
Fijar los wdDocs = nada
Fijar el wdDoc = nada
Fijar el wdImage = nada
Fijar wdTable = nada
Fijar los wdPrps = nada
Fijar el wdPrp = nada
Fijar el objPDF_Distiller = nada
Fijar DB = nada
Fijar el rst = nada
ErrorHandlerExit:
Salir el submarino
ErrorHandler:
Si entonces yerran = 429
La 'palabra no está funcionando; abrir la palabra con CreateObject
Fijar el appWord = CreateObject (“Word.Application”)
Reasumir después
No. del error de MsgBox “: ” Y Err.Number y “; Descripción: ” Y Err.Description
Curriculum vitae ErrorHandlerExit
Terminar si
Terminar el submarino
Función pública IsAdobeInstalled () como boleano
strTemp dévil como secuencia
IsAdobeInstalled = falso
strTemp = dir (“C:\Program Files\Adobe\acrobat *”, vbDirectory)
Hacer hasta strTemp = ""
IsAdobeInstalled = verdad
strTemp = dir ()
Lazo
Función del final
|