¿Cómo utilizar Word2010 para crear por lotes cartas de invitación para clientes?
El código específico debe personalizarse según la situación real.
El siguiente es un código similar (generación automática por lotes de contratos de alquiler basados en tablas de Excel), ¡solo como referencia!
Sub-SCWJ()
dimarr(1 a 1000, 1 a 19)' No. 1-2-Categoría 3-Área 4-Unidad 5-6to Piso-Área 7 -Vacante 8-Período de arrendamiento 9-Fecha de vencimiento 10-
16-Depósito 17-Nombre 18-Número de teléfono 19-sfzhm
hh = 3
jls = 0
Con el formulario (“documento de registro de información electrónica”)
Al realizarlo. Celda(hh, 1)<>""
jls = jls + 1
Para j = 1 a 19
arr(jls, j) = . Celda (hh, j)
Siguiente j
hh = hh + 1
Anillo
Termina con...
Marcar bh como número de cadena
Marcar lx como tipo de cadena
Marcar qy como área de cadena
Dimensionar el molde como unidad de cadena de caracteres
Ajustar lc a la cadena "floor"
Marcar mj como el área de la cadena
Atenuar qzrq como fecha 'Fecha de inicio
Atenuar dqrq como fecha ' Fecha de vencimiento
Dim zq As String 'Período
Dim xflb As String 'Categoría de renovación
Dim zj As long Rent
Dim yj Tan largo 'Depósito
Marcar xm como cadena
Marcar dh como cadena
Atenuar sfzhm como cadena
Para i = 1 a jls
bh = arr(i, 1)
lx = arr(i, 2)
qy = arr(i, 3)
dy = arr(i, 4)
lc = arr(i, 5)
mj = arr (i, 6)
qzrq = arr (i, 8)
dqrq = arr(i, 9)
zq = arr(i, 10)
xflb = arr(i, 12)
zj = Val(arr(i, 15))
yj = arr(i, 16)
p>
xm = arr(i , 17)
dh = arr(i, 18)
sfzhm = arr(i, 19)
Seleccionar caso lx
Caso "Mercado", "Descuento"
Llamada reemplaza text_market(BiH, LX, QY, Dy, LC, MJ, QZRQ, ZQ, XFLB, ZJ, YJ, XM, DH, SFZHM).
Caso "5 años"
El título sustituye al texto_5 años (Bosnia y Herzegovina, LX, QY, Dy, LC, MJ, QZRQ, ZQ, XFLB, ZJ, YJ, XM, DH, SFZHM).
Finalizar selección
Siguiente yo
Finalizar conector
Subprivado reemplaza text_market (Bosnia y Herzegovina, LX, QY, Dy, LC , MJ, QZRQ, ZQ, XFLB, ZJ, YJ, XM, DH, SFZHM).
Atenuar la ruta actual, exportar el nombre del archivo, exportar el nombre del archivo de la ruta en forma de cadena.
Dimensiones Str1, Str2
Dim tarr(1 a 27, 1 a 2)
Ruta actual = ThisWorkbook. Xiaolu
Nombre de archivo de exportación = BH & ".doc "
Nombre de archivo de exportación 2 = BH & ".xlsx "
Copia de archivo ruta actual& "\Template \House Rental Contract.doc", ruta actual&;"\Documento WORD a imprimir\"&;Nombre del archivo de exportación
Copia del archivo ruta actual&;"\Template\Lease Application " 27
tarr(i, 1) =.
Celda (i + 1, 1)
Siguiente i
Termina con...
tarr(1, 2) = xm
tarr(2,2) = qy
tarr(3,2) = dy
tarr(4,2) = lc
tarr(5, 2) = dh
tarr(6,2) = sfzhm
tarr(7,2) = mj
tarr(8,2) = yj
Tarr (9, 2) = num2money (yj * 12)'Capital renta total.
Tarr(10,2) = yj * 12 'El número de alquiler total.
Seleccione caso xflb
Caso "Año"
tarr(11, 2) = 1
tarr(12, 2) = 12
tarr(13, 2) = Num2Money(zj)
Tarr(15, 2) = " "Fecha de renovación 2
Tarr(16, 2 ) = " "Fecha de renovación 3
Tarr(17, 2) = " "Fecha de renovación 4
Tarr(18, 2) = 12 ' alquiler.
tarr(19,2) = "/"
tarr(20,2) = "/"
tarr(21,2) = "/ "
Tarr(22, 2) = Num2Money(zj)'Capital primera renta.
Tarr(23,2)=La segunda renta en la palabra "/".
Tarr(24,2)=La tercera palabra de "/".
Tarr(25,2)=La cuarta palabra "/".
Caso "medio año"
tarr(11, 2) = 2
tarr(12, 2) = 6
tarr( 13, 2) = Num2Money(zj)
tarr(15, 2) = Int(qzrq + 183)
Tarr(16, 2) = ""Fecha de renovación 3
Tarr(17, 2) = " "Fecha de renovación 4
Tarr(18, 2) = 6 'Primeros meses' de alquiler.
tarr(19,2) = 6
tarr(20,2) = "/"
tarr(21,2) = "/"
Tarr(22, 2) = Num2Money(zj)'Capital primera renta.
Tarr(23, 2) = Num2Money(zj)' Capitaliza la segunda renta.
Tarr(24,2)=La tercera palabra de "/".
Tarr(25,2)=La cuarta palabra "/".
Caso "Cuarto"
tarr(11, 2) = 4
tarr(12, 2) = 3
tarr( 13, 2) = Num2Dinero(zj)
tarr(15, 2) = qzrq + Int(365 / 4 + 0.5)
Tarr (16, 2) = qzrq+int (365/4 * 2+0.5)'Fecha de renovación 3
Tarr (17, 2) = qzrq+int (365/4 * 3+0.5)'Fecha de renovación 4
Tarr(18,2) = 3 'Alquiler de los primeros meses.
tarr(19,2) = 3
tarr(20,2) = 3
tarr(21,2) = 3
Tarr(22, 2) = Num2Money(zj)'Capital primera renta.
Tarr(23, 2) = Num2Money(zj)' Capitaliza la segunda renta.
Tarr(24, 2) = Num2Money(zj)' La tercera palabra.
Tarr(25, 2) = Num2Dinero(zj)'Capital cuarta renta.
Finalizar selección
tarr(14, 2) = qzrq
tarr(27, 2) = dqrq
Si mj = 55 , entonces
tarr(26, 2) = 3
Otros
Si mj = 75, entonces
tarr(26, 2 ) = 5
Otro
Tal(26,2) = 6
Terminará si...
Si.. terminará Terminará
Exportar archivo de ruta&=ruta actual&"\documento WORD a imprimir\"&;Exportar nombre de archivo
Exportar archivo de ruta&2=ruta actual& documento a imprimir\ " &; Exportar nombre de archivo 2
set wdoc = CreateObject(" word . application ")
wdoc. visible = false
Usar archivos wdoc
. Abra el nombre del archivo de ruta de exportación
. Visible = Verdadero
Para i = 1 a 27 'Rellene los datos del texto.
Str1 = tarr(i, 1)
Str2 = tarr(i, 2)
bj = true
Hazlo como vas bj
. elegir. Unidad HomeKey:=wdStory 'El cursor se coloca al principio del archivo.
si .selección .buscar.ejecutar(cadena 1)entonces 'Buscar la cadena especificada.
. 'selection font.color=wdcoloromatic' los caracteres se colorean automáticamente.
.selection.text = str 2 'Reemplazar cadena
Otros
bj = false
Terminará si...
p>
Timbre
Siguiente I
Termino con...
wdoc. document.save
wdoc. Renunciar
Establecer wdoc = Ninguno
Escribir solicitud de alquiler
¡Número de habitación! ¡área! ¡unidad! Planta baja
Distribución de la planta! Zona
Descripción del Alquiler Opciones de Pago:! ¡ciclo! ¡Fecha de renovación! Empezar de nuevo
Establecer myb = Libros de trabajo. Abrir (Nombre de archivo de ruta de exportación 2)
Atenuar xfrq como fecha 'Fecha de renovación
Seleccionar caso xflb
Caso "Año"
xfrq = dqrq
Caso "medio año"
xfrq = qzrq + 182
Caso "trimestre"
xfrq = qzrq + 91
Finalizar selección
Con myb. Papel("Papel1")
. Celda(3,2) = xm
. Celda(4,2) = dh
. Celda(5,2) = sfzhm
. Celda(6,2) = qzrq
. Celda(7,2) = dqrq
. Celda(3, 6) = QY&Space(1)dy &Space(1) Lancha de desembarco(Landing Craft)
. Celda(4,6) = mj
. Celda (5, 6) = yj * 12
. Celda(6,6) = yj
. Celda(7,6) = " "
. Celdas(9,1)=zq&”&xfrq&”&xflb
Termina en…
myb. Rescate
myb. Cerrar
Ajuste final
Submarino privado reemplaza text_5 años (BiH, LX, QY, Dy, LC, MJ, QZRQ, ZQ, XFLB, ZJ, YJ, XM, DH, SFZHM ).
Atenuar la ruta actual, exportar el nombre del archivo, exportar el nombre del archivo de la ruta en forma de cadena.
Dimensiones Str1, Str2
Dim tarr(1 a 20, 1 a 2)
Ruta actual = ThisWorkbook. Xiaolu
Nombre de archivo de exportación = BH & ".doc "
Nombre de archivo de exportación 2 = BH & ".xlsx "
Copia de archivo ruta actual& ;"\ Plantilla\Plantilla de contrato autoinstalada.
doc", ruta actual&"\Documento WORD a imprimir\"&;Exportar nombre de archivo
Copiar archivo ruta actual&"\Template\Lease Application. " 20
tarr(i, 1) =. cell(i + 1, 3)
Siguiente I
Termina con...
tarr(1,2) = xm
tarr(2,2) = qy
tarr(3,2) = dy
tarr( 4 ,2) = lc
tarr(5,2) = sfzhm
tarr(6,2) = mj
tarr(7,2) = qzrq
tarr(8,2) = dqrq
Mzrq = int (qzrq+18 * 30.4333)'período sin alquiler
tarr(9,2 ) = mzrq
Tarr(10,2) = zj 'El alquiler total expresado como un número
tarr(11,2) = qzrq
tarr. (12, 2) = FechaSerial(año(mzrq) + 1, mes(mzrq), día(mzrq))
tarr(13, 2) = FechaSerial(año(mzrq) + 2, mes( mzrq), Día (mzrq))
tarr (14, 2) = FechaSerial (año (mzrq) + 3, mes (mzrq), día (mzrq))
tarr ( 15, 2 ) = yj
Si mj = 55, entonces
tarr(16,2) = 3
Otros
Si mj = 75 , entonces
tarr(16, 2) = 5
Otros
tarr(16, 2) = 6
Si... entonces terminará
Terminará si... Terminará
tarr(17, 2) = dh
tarr(18 , 2) = Num2Dinero(zj)
tarr(19, 2) = mzrq
tarr(20, 2) = Num2Dinero(zj/2)
Exportar archivo de ruta&=ruta actual&" \ documento WORD a imprimir \ " & Nombre de archivo de exportación
Exportar archivo de ruta & amp2 = ruta actual & " " \ documento WORD a imprimir \ " &; Exportar archivo nombre 2
set wdoc = CreateObject(" palabra . aplicación ")
wdoc. visible = false
Usar archivos wdoc
. Abra el nombre del archivo de ruta de exportación
. Visible = Verdadero
Para i = 1 a 20 'Rellene los datos del texto.
Str1 = tarr(i, 1)
Str2 = tarr(i, 2)
bj = true
Hazlo como vas bj
. elegir. Unidad HomeKey:=wdStory 'El cursor se coloca al principio del archivo.
si .selección .buscar.ejecutar(cadena 1)entonces 'Buscar la cadena especificada.
. 'selection font.color=wdcoloromatic' los caracteres se colorean automáticamente.
.selection.text = str 2 'Reemplazar cadena
Otros
bj = false
Terminará si...
p>
Timbre
Siguiente I
Termino con...
wdoc. document.save
wdoc. Descartar
Establecer wdoc=None
Establecer myb=Libros de trabajo. Abrir (Nombre de archivo de ruta de exportación 2)
Atenuar xfrq como fecha 'Fecha de renovación
Seleccionar caso xflb
Caso "Año"
xfrq = dqrq
Caso "medio año"
xfrq = qzrq + 182
Caso "trimestre"
xfrq = qzrq + 91
Finalizar selección
Con myb.
Papel("Papel1")
. Celda(3,2) = xm
. Celda(4,2) = dh
. Celda(5,2) = sfzhm
. Celda(6,2) = qzrq
. Celda(7,2) = dqrq
. Celda(3, 6) = QY&Space(1)dy &Space(1) Lancha de desembarco(Landing Craft)
. Celda(4,6) = mj
. Celda (5, 6) = yj * 12
. Celda(6,6) = yj
. Celda(7,6) = " "
. Celdas(9,1)=zq&”&xfrq&”&xflb
Termina en…
myb. Rescate
myb.
Cerrar
Terminal