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
il >Option notpretty " del class= " del id= " codeSnippet846516 del 1 allora
wdDoc.Bookmarks (“\ EndOfDoc„). wdSectionBreakNextPage di Range.InsertBreak
Concluder se
'inserire il documento di origine nel documento in bianco
wdDoc.Bookmarks (“\ EndOfDoc„). strSourceFullPath 'GLS di Range.InsertFile
'calcolare il numero delle tabelle nel documento alla prima pagina
Se intRecordNumber = 1 allora 'GLS
intTableCount = wdDoc.Tables.Count 'GLS
Debug.Print wdDoc.Tables.Count 'GLS
Concluder se 'GLS
Rst di Debug.Print! S_Lname & ““& rst! S_Fname; „ “& rst! S_Id
'======================
'proprietà dell'esposizione per gli scopi di prova
'======================
Regolare i wdPrps = wdDoc.CustomDocumentProperties 'GLS
Per ogni wdPrp nei wdPrps
Debug.Print wdPrp.Name & “: „ & wdPrp.Value
Dopo
'======================
'popolare le proprietà ed il documento dell'aggiornamento
'======================
Con i wdPrps
. Articolo (“w_a_StudentName„). Valore = rst! S_Lname &„, “& rst! S_Fname
. Articolo (“w_b_Subject„). Valore = rst! S_Subject
. Articolo (“w_c_CourseTitle„). Valore = rst! S_Title
. Articolo (“w_d_CourseNumber„). Valore = rst! S_Course_Number
. Articolo (“w_e_CAD„). Valore = rst! S_Advisor_Lname &„, “& rst! S_Advisor_Fname
. Articolo (“w_f_StartDate„). Valore = rst! S_StartDate
. Articolo (“w_g_EndDate„). Valore = rst! S_EndDate
. Articolo (“w_h_InstructorName„). Valore = rst! S_Instructor_Fname &„ “& rst! S_Instructor_Lname
. Articolo (“w_i_StreetLine1„). Valore = rst! S_street1
. Articolo (“w_j_StreetLine2„). Valore = rst! S_street2
'. Articolo (“w_k_StreetLine3„). Valore = rst! S_street3
. Articolo (“w_l_City„). Valore = rst! S_city
. Articolo (“w_m_State„). Valore = rst! S_state
. Articolo (“w_n_Zip„). Valore = rst! S_zip
. Articolo (“w_o_CRN„). Valore = rst! S_CRN
Estremità con
'======================
'aggiornare le proprietà e convertire in testo, di modo che i puntelli non possono essere re-aggiornati
'======================
wdDoc.fields.Update 'GLS
campi del convertito di GLS di wdDoc.fields.Unlink 'a testo
'========================
'posizione al primo elemento della tabella per inserire immagine
'========================
'aggiungere nella linea immagine
strImageFile = “bandiera di Pics di O:\COM Photos\MED \„ & _
rst! S_Id & “.jpg„
Se "" (strImageFile) del <> del dir allora
Altrimenti
strImageFile = “bandiera di Pics di O:\COM Photos\MED \„ & _
“a_missingPhoto.jpg„
Concluder se
'http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Coding-Macros/Q_23702385.html?sfQueryTermInfo=1+cell+imag+insert+tabl+word
'calcolare la posizione della tabella per la nuova pagina, altrimenti continu aare inserire l'immagine in
'la prima tabella alla prima pagina
lngTablePos = 1 + intTableCount * (intRecordNumber - 1)
wdTable stabilito = wdDoc.Tables (lngTablePos) 'GLS
'inserire l'immagine nel primo elemento della tabella
wdDoc.Range.InlineShapes.AddPicture strImageFile, _
Falso, allineare, wdTable.Cell (1, 1).Range
nextrec:
rst.MoveNext
Ciclo
'======================
'salvo come lima del documento di parola
'======================
strWordResultFile = disposizione (data, “YYYY_MM_DD„) &„ _ “& strTitleName &„ .doc "
strResultFullPath = CurrentProject.Path & “\„ & strWordResultFile
'* cancellare la lima attuale
Se "" del <> del dir (strResultFullPath) allora
Uccisione (strResultFullPath)
Concluder se
strResultFullPath di wdDoc.SaveAs
'=========================
'salvo come lima del pdf se Adobe è sul pc
'=========================
Se IsAdobeInstalled = allora allinea
'salvo le regolazioni dello stampatore di difetto
pg_strDefaultPrinter = appWord.ActivePrinter
'Generare lo PS, il CEPPO, nomi della lima del pdf dal nome di schedario di Excel
lngPos = InStr (strResultFullPath, “.")
strPSfile = ha andato (strResultFullPath, lngPos) & “lo ps„
strLOGfile = ha andato (strResultFullPath, lngPos) & “il ceppo„
strPDFfile = ha andato (strResultFullPath, lngPos) & “il pdf„
Debug.Print strPSfile
Debug.Print strLOGfile
Debug.Print strPDFfile
'stampatore di difetto della provvigione supplementare con lo stampatore del Adobe
appWord.ActivePrinter = “pdf del Adobe su LPT2: „
'ricordar regolarsi: Distillatore dell'acrobata riferimenti/degli attrezzi
Regolare il objPDF_Distiller = nuovo PdfDistiller
'la stampa è realmente un'esportazione al pdf
appWord.PrintOut, copie: =1, _
PrintToFile: =True, OutputFileName: =strPSfile
'Lima di PS dell'acrobata del convertito alla lima del pdf
lngResult = objPDF_Distiller.FileToPDF (strPSfile, strPDFfile, "")
'lime di lavoro di cancellazione
Uccisione strPSfile
Uccisione strLOGfile
Regolare il objPDF_Distiller = niente
'Ristabilire le regolazioni dello stampatore di difetto
appWord.ActivePrinter = pg_strDefaultPrinter
Concluder se
savechanges di wdDoc.Close: =False
appWord.Quit
finishup:
Se strrst = “y„ allora
rst. Fine
Concluder se
db. Chiuder
Regolare il appWord = niente
Regolare i wdDocs = niente
Regolare il wdDoc = niente
Regolare il wdImage = niente
Regolar wdTable = niente
Regolare i wdPrps = niente
Regolare il wdPrp = niente
Regolare il objPDF_Distiller = niente
Regolar db = niente
Regolare il rst = niente
ErrorHandlerExit:
Uscire il sommergibile
ErrorHandler:
Se allora errano = 429
'La parola non sta funzionando; aprire la parola con CreateObject
Regolare il appWord = CreateObject (“Word.Application„)
Riprendere dopo
Altrimenti
No. di errore di MsgBox “: „ & Err.Number & “; Descrizione: „ & Err.Description
Riassunto ErrorHandlerExit
Concluder se
Concludere il sommergibile
Funzione pubblica IsAdobeInstalled () come booleano
strTemp fioco come stringa
IsAdobeInstalled = falso
strTemp = dir (“C:\Program Files\Adobe\acrobat *„, vbDirectory)
Fare fino a strTemp = a ""
IsAdobeInstalled = allinea
strTemp = dir ()
Ciclo
Funzione di conclusione
|