no entieno lo que pasa

prueba comparar ActiveDocument solo con el nombre del archivo sin incluir
la ubicacion. Despues puedes verificar la ubicacion usando
ActiveDocument.Path
Espero que te ayude,
-Mario

From: "jert"
Subject: no entieno lo que pasa
Date: Tue, 2 Mar 2004 13:02:04 +0100
Lines: 16
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID:
Newsgroups: microsoft.public.es.word
NNTP-Posting-Host: 195.77.200.106
Path: cpmsftngxa06.phx.gbl!TK2MSFTNGP08.phx.gbl!TK2MSFTNGP10.phx.gbl
Xref: cpmsftngxa06.phx.gbl microsoft.public.es.word:17464
X-Tomcat-NG: microsoft.public.es.word

Hola ,ante todo gracias por vuestro tiempo
tengo el siguiente codigo en documento open () pero me pienso que la
condicion me funciona pero al reves es decie no cuano es igual sino cuando
es desigual,
es decir si es igual Hola" si es desigual "ja"
la pregunta seria porque?
Gracias por vuestro tiempo
#If ActiveDocument = "C:\a\1.doc" Then
MsgBox "JA"
#Else
MsgBox "HOLA"
#End If
End Sub

This posting is provided "AS IS" with no warranties, and confers no rights.

HOLA ,
no se si lo he ouesto bien pero me lo sigue reconociendo al reves
#If ActiveDocument = "1.doc" Then
ActiveDocument.Path
MsgBox "JA"
#Else
MsgBox "HOLA"
#End If
Saludos
"Mario Guzzi [MS]" escribió en el mensaje
news:

prueba comparar ActiveDocument solo con el nombre del archivo sin incluir
la ubicacion. Despues puedes verificar la ubicacion usando
ActiveDocument.Path
Espero que te ayude,
-Mario

>From: "jert"
>Subject: no entieno lo que pasa
>Date: Tue, 2 Mar 2004 13:02:04 +0100
>Lines: 16
>X-Priority: 3
>X-MSMail-Priority: Normal
>X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
>X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
>Message-ID:
>Newsgroups: microsoft.public.es.word
>NNTP-Posting-Host: 195.77.200.106
>Path: cpmsftngxa06.phx.gbl!TK2MSFTNGP08.phx.gbl!TK2MSFTNGP10.phx.gbl
>Xref: cpmsftngxa06.phx.gbl microsoft.public.es.word:17464
>X-Tomcat-NG: microsoft.public.es.word
>
>Hola ,ante todo gracias por vuestro tiempo
>tengo el siguiente codigo en documento open () pero me pienso que la
>condicion me funciona pero al reves es decie no cuano es igual sino

cuando

>es desigual,
>es decir si es igual Hola" si es desigual "ja"
>la pregunta seria porque?
>Gracias por vuestro tiempo
> #If ActiveDocument = "C:\a\1.doc" Then
> MsgBox "JA"
> #Else
> MsgBox "HOLA"
> #End If
>End Sub
>
>
>
>

-

This posting is provided "AS IS" with no warranties, and confers no

rights.

Hola Jert
Me atrevo a contestarte sin haber hecho apenas nada de nada de codigo VBA de
Word. Yo estoy acostumbrado a utilizar bastante codigo VBA de Access y
aunque hay similitudes, hay tambien bastantes diferencias.
Prueba con:
If ActiveDocument.Path & "\" & _
ActiveDocument.Name = "C:uta\documento.doc" Then
MsgBox "SI"
Else
MsgBox "NO"
End If

o lo que es lo mismo:

If ActiveDocument.Path & Application.PathSeparator & _
ActiveDocument.Name = "C:uta\documento.doc" Then
MsgBox "SI"
Else
MsgBox "NO"
End If

Ambos codigos lo que hacen es comprobar si el documento activo, en realidad
es el que indicas en la cena String
"C:uta\documento.doc" . Supongo qu ees eso lo que querías. A mi me
funciona perfectamente

Saludos desde Valladolid
Francisco Javier García Aguado


http://www.mvp-access.com/
http://www.mvp-access.com/buho/
http://www.buho.tk
http://groups.msn.com/Access2000VisualBasic/

"jert" escribió en el mensaje
news:%

HOLA ,
no se si lo he ouesto bien pero me lo sigue reconociendo al reves
#If ActiveDocument = "1.doc" Then
ActiveDocument.Path
MsgBox "JA"
#Else
MsgBox "HOLA"
#End If
Saludos

Mi antivirus AVG te dice que no tengo virus (Al menos conocidos).
Saludos del Buho.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.611 / Virus Database: 391 - Release Date: 03/03/2004

gracias ahora si funciona
joan
"Búho" escribió en el mensaje
news:%

Hola Jert
Me atrevo a contestarte sin haber hecho apenas nada de nada de codigo VBA

de

Word. Yo estoy acostumbrado a utilizar bastante codigo VBA de Access y
aunque hay similitudes, hay tambien bastantes diferencias.
Prueba con:
If ActiveDocument.Path & "\" & _
ActiveDocument.Name = "C:uta\documento.doc" Then
MsgBox "SI"
Else
MsgBox "NO"
End If

o lo que es lo mismo:

If ActiveDocument.Path & Application.PathSeparator & _
ActiveDocument.Name = "C:uta\documento.doc" Then
MsgBox "SI"
Else
MsgBox "NO"
End If

Ambos codigos lo que hacen es comprobar si el documento activo, en

realidad

es el que indicas en la cena String
"C:uta\documento.doc" . Supongo qu ees eso lo que querías. A mi me
funciona perfectamente

Saludos desde Valladolid
Francisco Javier García Aguado


http://www.mvp-access.com/
http://www.mvp-access.com/buho/
http://www.buho.tk
http://groups.msn.com/Access2000VisualBasic/

"jert" escribió en el mensaje
news:%
> HOLA ,
> no se si lo he ouesto bien pero me lo sigue reconociendo al reves
> #If ActiveDocument = "1.doc" Then
> ActiveDocument.Path
> MsgBox "JA"
> #Else
> MsgBox "HOLA"
> #End If
> Saludos




Mi antivirus AVG te dice que no tengo virus (Al menos conocidos).
Saludos del Buho.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.611 / Virus Database: 391 - Release Date: 03/03/2004