Leandro, probaste con las macros de Word?

 

Esto es lo que hice en un doc, puse “Ir a” pagina 2, seleccione toda la
pagina y copie el contenido

Esto me genero la macro

 

    Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=2, Name:=""

    Selection.Find.ClearFormatting

    With Selection.Find

        .Text = ""

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.MoveDown Unit:=wdLine, Count:=6, Extend:=wdExtend

    Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend

    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend

    Selection.Copy

 

 

Habría que convertirlo a .net, pero eso creo que es tarea sencilla.

 

Asi lo hacia en VB 6.0

 

Dim objWord             As Object 'Word.Application

Dim objDoc              As Object 'Word.Document

    

     '- creo el Word

    Set objWord = CreateObject("Word.Application")

    objWord.Application.Visible = False

 

    '- levanto el Documento

    Set objDoc = objWord.Documents.Open(pPathDocument)

 

    '- guardo y cierro el documento

    Call objDoc.Save

    Call objDoc.Close

 

Lo vas manejando con el objWord o el objDoc, según lo que necesites hacer.

 

Espero que te sirva por lo menos de idea.

 

 

Saludos,

 

 

 

Julio Szabo 
Responsable de Calidad
Compañía de Tecnologías Latinoamericana
[EMAIL PROTECTED]



  _____  

De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Leandro
Halfon
Enviado el: jueves, 15 de marzo de 2007 17:02
Para: [email protected]
Asunto: [puntonet] word

 

gente.. consulta de sumar importancia..

 

alguien sabe como hacer con el objeto WordDocumento de .net para copiar una
determinada pagina de un archivo word..

porq lo unico que pude hacer hasta ahora es copiar todo el documento..

 

Gracias!!

 

 

Leandro

Responder a