Cómo mostrar contenido de Word en un cuadro de texto o etiqueta de VB
El módulo de clase controla Word para buscar y reemplazar el contenido de documentos de Word
En VB6.0, puede operar Word y utilizar sus potentes funciones de búsqueda, reemplazo, eliminación, copia y corte. También puedes reemplazar caracteres específicos con imágenes. Puede reemplazar caracteres específicos en un archivo de Word con el contenido de una base de datos o un archivo de imagen.
Simplemente copie lo siguiente en WordPad, guárdelo como un archivo SetWord.cls y agréguelo a su proyecto para usarlo.
VERSIÓN 1.0 CLASE
COMIENZO
Multiuso = - 'True1 'True
Persistente = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
AttributeVB_Name = "SetWord"
Atributo VB_GlobalNameSpace = False
Atributo VB_Creatable = True
Atributo VB_PredeclaredId = False
Atributo VB_Exposed = False
Privado mywdapp como Word.Application
Privado mysel como objeto
'Variable de módulo del valor del atributo
Privado C_TemplateDoc como cadena
Privado C_newDoc como cadena
Privado C_PicFile como cadena
Privado C_ErrMsg como entero
Evento público HaveError()
Atributo HaveError.VB_Description = " Este evento se genera cuando se produce un error. El código de error es la propiedad ErrrMsg "
'*************************. ***. *************************************
'Código de mensaje de error : 1 - Word no está instalado 2 - Falta parámetro 3 - No hay permiso para escribir en el archivo
' 4 - El archivo no existe
'
'* *********** **************************************** *********** ***
Función pública ReemplazarPic(FindStr como cadena, tiempo opcional como entero = 0) Como entero
Propiedad ReemplazoPic.VB_Descripción = "Busque FindStr y reemplácelo con el que señala la imagen PicFile.
archivo, el número de reemplazos está determinado por el parámetro de tiempo. Cuando el parámetro de tiempo es 0, todos "
'*********************. **** son reemplazados ********************************************** ******* ********
' del objeto Word.Range mysel encuentra todos los FindStr y los reemplaza con la imagen PicFile
' El número de reemplazos está determinado por el parámetro de tiempo. Cuando es 0, Reemplazar todo
'******************************. ************** **************** ******************** ******
Si Len( C_PicFile) = 0 Entonces
C_ErrMsg = 2
Salir de la función
Finalizar si
Atenuar i como entero
Atenuar findtxt como booleano
mysel.Mysel.Find.ClearFormatting
Mysel.Find.Replacement.ClearFormatting
Con mysel.Find
.Text = FindStr
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
p> .MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.
Si i = Hora, entonces salga Do
i = i + 1
mysel.HomeKey Unit:=wdStory
findtxt = mysel.Find.Execute(Replace:=True)
Bucle
ReemplazarArchivoPic
Findtxt = mysel.Find.Execute(Replace:=True)
Bucle
ReemplazarArchivoPic
Findtxt = mysel.Find.Execute(Replace:=True)
ReemplazarPicFile = mysel.Find.Execute(Replace:=True)