Visual Basic para Aplicaciones - NUMERO DE PAGINA EN WORD

Life is soft - evento anual de software empresarial
   
Vista:

NUMERO DE PAGINA EN WORD

Publicado por JOSE IRIARTE iriarte.mendiola@gmail.com (1 intervención) el 29/09/2013 08:02:49
Hola tengo un problema, estoy trabajando con Macros en Word y quiero saber cual es el codigo para saber la pagina donde me encuentro.

Por ejemplo tengo el cursor en la pagina 3 en mi documento word, cual seria la rutina en VBA para saber en que pagina me encuentro, y poder meterla en una variable?.
espero me puedan ayudar.
Por adelantado.....Gracias por vuestra colaboración
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

NUMERO DE PAGINA EN WORD

Publicado por Antoni Masana (47 intervenciones) el 01/10/2013 13:34:48
Esto te deberia de solucionar el problema

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Public Sub NumeroPaginas()
    Dim doc As Document
    Dim pag_Act As Integer
    Dim pag_Tot As Integer
 
    Dim rango As Range
 
    Set doc = ActiveDocument
 
    Set rango = ActiveDocument.Range(0, Selection.End)
 
    pag_Act = rango.ComputeStatistics(wdStatisticPages)
    pag_Tot = doc.ComputeStatistics(wdStatisticPages)
 
    MsgBox "Esta en la página " & Val(pag_Act) & " de " & Val(pag_Tot) & " pagina(s)"
 
    Set doc = Nothing
End Sub


Sacado de estas dos direcciones:

https://groups.google.com/forum/#!topic/microsoft.public.es.word/YPVIOLc706o

Gracias Monica May

http://www.lawebdelprogramador.com/foros/Visual_Basic_para_Aplicaciones/436701-Word:_Numero_de_Pagina.html

Gracias Mauricio Baeza
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar