Muy buenas noches.

Tengo una duda desde hace bastante tiempo que no sé cómo resolver. Espero explicarme más o menos bien. Veamos...

En una base de datos de mi trabajo (curro para la Administración) que yo suelo hacerme para facilitar la tarea, tengo un código dentro de un formulario que realiza la acción de abrir un documento World (plantilla) y coger campos de ese formulario y rellenarlo en la plantilla. Tira de una tabla donde se identifican las campos del formulario y hace las sustituciones. Esta tabla tiene dos campos:

CodeToReplace ({Cambia1}, es lo que ponemos en la plantilla)

ReplaceWithFieldName (Forms!Formulario!campo_txt, es el valor en el formulario

El código es un poco largo pero lo transcribo:

Private Sub Comando306_Click()
Dim dbLocal As Database
   Dim snpReplaceCodes As Recordset
   Dim strCurrAppDir As String
   Dim strFinalDoc As String
   Dim varReplaceWith As Variant
   Dim docWord As Word.Document
   
   On Error GoTo Error_cmdCreateLetter_Click
   Set dbLocal = CurrentDb()
   strCurrAppDir = Left$(dbLocal.Name, InStrRev(dbLocal.Name, "\"))
         
   strFinalDoc = strCurrAppDir & "documento1.dot"
     
   On Error GoTo Error_cmdCreateLetter_Click
   Set appWord = New Word.Application
   Set docWord = appWord.Documents.Add(strFinalDoc)
   appWord.Visible = True
   'abro ahora la tabla de las sustituciones
   Set snpReplaceCodes = dbLocal.OpenRecordset("ReemplazaCodigos", _
         dbOpenSnapshot)
   
   Do While Not snpReplaceCodes.EOF
      
      
      varReplaceWith = Eval(snpReplaceCodes!ReplaceWithFieldName)
      varReplaceWith = IIf(IsNull(varReplaceWith), " ", CStr(varReplaceWith))
            
      With docWord.Content.Find
         
         If snpReplaceCodes!CodeToReplace = "{MOVIETITLE}" Then
            With .Replacement
               .ClearFormatting
               .Font.Bold = True
               .Font.Italic = True
            End With
         End If
         
         .Execute FindText:=snpReplaceCodes!CodeToReplace, _
               ReplaceWith:=varReplaceWith, Format:=True, _
               Replace:=wdReplaceAll
       
       End With
              
       snpReplaceCodes.MoveNext
   
   Loop
   
   snpReplaceCodes.Close
   Exit Sub
   
Error_cmdCreateLetter_Click:

   Beep
   ' MsgBox "Ha ocurrido el error:" & vbCrLf & _
   ' Err.Description, vbCritical, "OLE Error!"
   Exit Sub
      
End Sub

La plantilla, (documento1.dot) debe estar en la ruta de la base de datos (o se puede cambiar indicándoselo). Hace una llamada a la tabla (ReemplazaCodigos) para hacer las sustituciones y, poco más.

Pues bien, ocurre lo siguiente. Abre la plantilla y hace sustituciones hasta que se encuentra un campo en el formulario sin datos y, a partir de ahí, no hace más sustituciones y deja los campos en la plantilla sin cambiar. No tengo ni idea de dónde dice eso en el código o porqué lo hace.

La solución más "estúpida" por mi parte, es rellenar los campos del formulario con un guión, espacio, punto o "algo", pero no es lo suyo.

Aparte de todo esto (me estoy extendiendo demasiado), el código lo adapté con ayuda de un foro de OpenOfficce, para abrir un documento de LibreOfficce Writer en vez de World (cosas de la Administración) y funcionaba igual de bien abriendo la plantilla de Writer pero haciendo lo mismo: Se paraban las sustituciones al encontrar un campo vacío en el formulario. Pongo también el código:

Public Sub Comando413_Click()
Dim dbLocal As Database
   Dim snpReplaceCodes As Recordset
   Dim strCurrAppDir As String
   Dim strFinalDoc As String
   Dim varReplaceWith As Variant
  '++++++++++++++
  Dim mibusqueda As Object
  Dim oservicio As Object
  Dim Escritorio As Object
  Dim document As Object
 
  '++++++++++++++++
   On Error GoTo Error_Comando413_Click
   Set dbLocal = CurrentDb()
   strCurrAppDir = Left$(dbLocal.Name, InStrRev(dbLocal.Name, "\"))
              
   strFinalDoc = strCurrAppDir & "Plantillas/documento1.ott"
   On Error GoTo Error_Comando413_Click
   strFinalDoc = Replace(strFinalDoc, "\", "/")
   strFinalDoc = "file:///" + strFinalDoc
      
   Dim args(1) As Object
    Set oservicio = CreateObject("com.sun.star.ServiceManager")
    Set Escritorio = oservicio.createInstance("com.sun.star.frame.Desktop")
    Set args(0) = oservicio.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
    args(0).Name = "Hidden"
    args(0).Value = True
    Set document = Escritorio.loadComponentFromURL(strFinalDoc, "_blank", 0, args())
    Call document.getCurrentController.getFrame.getContainerWindow.setVisible(True)
    Call document.getCurrentController.getFrame.getComponentWindow.setVisible(True)
    Set mibusqueda = document.createReplaceDescriptor



'abro ahora la tabla de las sustituciones
   Set snpReplaceCodes = dbLocal.OpenRecordset("ReemplazaPropuesta", _
         dbOpenSnapshot)

   Do While Not snpReplaceCodes.EOF


      varReplaceWith = Eval(snpReplaceCodes!ReplaceWithFieldName)
      varReplaceWith = IIf(IsNull(varReplaceWith), " ", CStr(varReplaceWith))

    mibusqueda.setsearchstring (snpReplaceCodes!CodeToReplace)
    mibusqueda.setreplacestring (varReplaceWith)
    Call document.replaceall(mibusqueda)


       snpReplaceCodes.MoveNext

   Loop
'
  snpReplaceCodes.Close
   Exit Sub
   
Error_Comando413_Click:

   Beep
   ' MsgBox "Ha ocurrido el error:" & vbCrLf & _
   ' Err.Description, vbCritical, "OLE Error!"
   Exit Sub
End Sub

Bueno, ustedes sois los "máquinas", por si veis algo… y lo queréis comentar

Muchas gracias de antemano.

Salvo mejor opinión, no hay que confundir un "nulo" con una cadena vacía -space(0)-
La función isnull en

detecta nulos, pero no cadenas vacías y cabe la posibilidad de que el writer no admita ese tipo de cadena vacía.
Espero que ayude a resolver la duda.

Ya comentas.
Un saludo a todos

Buenas.

Me pongo a mirar y hacer pruebas con lo comentado pero ya adelanto (Sr. prga), que el "efecto" es el mismo tanto si abres la plantilla en Writer como en World

Buenas. No entiendo mucho ésto... Y además no creo que sea "tan simple".

La primera prueba que he realizado es comentar la línea:

'varReplaceWith = IIf(IsNull(varReplaceWith), "", CStr(varReplaceWith))

pensando que era la que gestionaba los campos sin datos. Pues bien. Ahora no se para y sigue calculando los campos.

Se supone que se ha solucionado?

A tal extremo no me atrevo yo a decir... pero Vds. dirán.

He hecho un miniejemplo para que se observe lo ocurrido. Con el libro calc no lo he probado. Si el foro me puede indicar algún link dónde ponerlo lo subo.

Salu2

Al menos yo, cuando me pasan cosas que no comprendo no dejo las cosas al azar, aunque parezca que se arreglan. Lo mejor es averiguar qué pasa y por qué. De esa manera controlas el tema y aprendes cosas que para futuro siempre viene bien saber.

De paso, si averiguas algo interesante y lo quieres compartir, pues aprendemos el resto de los mortales . Pero en fin, dependerá del tiempo que quieras o puedas dedicarle ...

Sí te puedo decir que la línea que has comentado, aunque como dice Prga, no tiene en cuenta los valores Empty (por defecto las variables Variant toman ese valor, no un Null), sí que sería la que se encargaría de los nulos. En mi opinión puedes hacerlo de esta otra manera y así abarcas tanto Null como Empty:

varReplaceWith = Iif(Len(Nz(varReplaceWith,"")) = 0, "", Cstr(varReplaceWith))

Buenaas. Aprovecho ahora que tengo un ratito (niños acostados).

He puesto un punto de interrupción y hago los pasos uno a uno (F8).

En el caso de que todos los campos (3) están rellenos y con el código completo (sin nada comentado):

Abre el documento Writer en:

Call document.getCurrentController.getFrame.getComponentWindow.setVisible(True)

Luego procesa un bucle entre:

Do While Not snpReplaceCodes.EOF

y

Loop

Hace una sustitución en cada bucle en la línea:

snpReplaceCodes.MoveNext

Cuando hace la última, se va a

Exit Sub

Veamos ahora cuando falta el 2º campo de 3:

Todo igual hasta hacer la primera sustitución; llega a Loop y vuelve a:

Do While Not snpReplaceCodes.EOF

y cuando llega a la línea:

varReplaceWith = IIf(IsNull(varReplaceWith), "", CStr(varReplaceWith))

automáticamente se va a Beep y acaba

..., está claro que es esa línea (la que dejé comentada) la que casca.

Si realizo el ejemplo con la línea comentada el Loop sigue y no se detiene en el Beep de error. y sigue rellenando campos.

Bueno, hasta aquí llego. La parte "dura" de todo ésto ya se me escapa ...

Por cierto, el ejemplito está en este enlace:

http://www.transfernow.net/dl/2023060180dbw7qu" rel="nofollow - https://www.transfernow.net/dl/2023060180dbw7qu

(La línea no está comentada. Para hacer pruebas hay que comentarla)

Buenas noches y salu2

Es posible que todo venga por ahí: de la fórmula que tienes definida en la tabla o consulta ReemplazaPropuesta, que en caso de un elemento vacío, casca y vete a saber qué cosa devuelve Eval() en un caso como ese ... Si es eso, entonces, lo que debes hacer es rehacer la fórmula para que tenga en cuenta un valor vacío o Nulo

Son sugerencias ...

Haciendo alguna prueba, parece ser que el problema venía por lo apuntado por happy en la función eval, vamos cambiando  por:

 al menos a mí me funciona.

Por otra parte, es buena práctica anular el "gestor" de errores en la función o procedimiento mientras de problemas, así el código se bloquea en la línea correspondiente al error ( que haga beep no nos sirve para nada) y nos sirve para buscar una solución

Ya comentas.

Un saludo a todos