Datos de Excel a Word No aplicando AutoFitbehavior correctamente -- vba campo con excel campo con excel-2010 campo con ms-word camp Relacionados El problema

Data from Excel to Word not applying AutoFitBehavior correctly


0
vote

problema

Español

Con la esperanza de que alguien pueda dar algunos consejos, ya que he modificado mi código muchas veces ahora intentando obtener el formato div17 para aplicar correctamente. El código se ejecuta a través de todo, como es (se acerca todo y se completa bien), pero el AutoFit nunca se aplica. Sentirse como si me estuviera perdiendo algo que debería ser una solución simple, pero todo lo que veo parece estar diciéndome que el div18 debería funcionar, lo he intentado dentro de su propia declaración si es la misma Ahora, además de moverlo e incluyendo en diferentes lugares, con el mismo resultado. Cualquier consejo es muy apreciado.

versión más reciente de mi código:

  div9  
Original en ingles

Hoping that someone can give some advice, as I've modified my code many times now trying to get the AutoFitBehavior formatting to apply correctly. The code runs through everything as is (moves everything over and completes just fine), but the AutoFit never applies. Feel like I'm missing something that should be a simple fix, but everything I see seems to be telling me that the objWord.ActiveDocument.Tables(1).AutoFitBehavior wdAutoFitWindow should work - I've tried it within its' own If statement where it is now, as well as moving it around and including in different places, with the same result. Any advice is greatly appreciated.

Most recent version of my code:

Sub CopyToWord()  Dim objWord Dim objDoc Dim ws As Worksheet Dim Rpt As Range  Application.CopyObjectsWithCells = False Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add Set ws = ThisWorkbook.Worksheets("Report") LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row LastColumn = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column  ws.Range("A1:" & Split(ws.Cells(, LastColumn).Address, "$")(1) & LastRow).Copy  With objWord     .ActiveDocument.PageSetup.Orientation = 1     .Selection.Paste     .Visible = True End With  If objWord.ActiveDocument.Tables.Count <> 0 Then     objWord.ActiveDocument.Tables(1).AutoFitBehavior wdAutoFitWindow End If  Application.CopyObjectsWithCells = True ThisWorkbook.Worksheets("Control Panel").Activate  End Sub 
           
   
   

Lista de respuestas

-1
 
vote

¿Ha comprobado que la condición de conteo de las tablas es verdadera (usando DEBUG.PRINT)? Si no, no creo que un objeto de rango de Excel simplemente se convierta en un objeto de mesa en Word. Probablemente debería usar el método Warning: /opt/homebrew/bin is not in your PATH.5 para que pueda obtener el objeto de la tabla y luego puede aplicar la cosa AUTO FIT.

 

Have you checked that the tables count condition is true (using debug.print)? If not, I don't believe that an Excel Range object is simply converted into a table object in Word. You should probably use Range.ConvertToTablemethod so you can get the table object and then you can apply the auto fit thing.

 
 
   
   

Relacionados problema

0  Devolviendo cosas a php de una palabra macro  ( Returning things to php from a word macro ) 
El objetivo es obtener un recuento de palabras precisos para un archivo de Microsoft Word. Tenemos un servidor de Windows que ejecuta Apache y PHP. Hay un ser...

1  Ocultar texto en palabra (particularmente tablas)  ( Hiding text in word particularly tables ) 
He estado trabajando en un documento que tiene una serie de secciones ocultas que se pueden hacer visibles con las casillas de verificación (y VBA). La mayorí...

0  Azure AppService convertir palabra a PDF  ( Azure appservice convert word to pdf ) 
¿Hay alguna forma de convertir un documento de Word a un PDF en un servicio de aplicaciones de Azure? No puedo usar ninguna biblioteca de oficinas, ya que no ...

1  ¿Cómo crear un trozo MAPI32.dll para poder "enviar como adjunto" de MS WORD?  ( How to create a mapi32 dll stub to be able to send as attachment from ms word ) 
Microsoft Word tiene la funcionalidad "Enviar como archivo adjunto" que crea un nuevo mensaje en Outlook con el documento adjunto. Me gustaría reemplazar la...

10  PDF de alta calidad a la conversión de Word en PHP?  ( High quality pdf to word conversion in php ) 
¿Cuál es la mejor manera de convertir los documentos de PDF al formato de Microsoft Word en PHP? Esto puede ser como un script PHP o llame a un ejecutable (Li...

0  Documentos de la palabra de impresión ASP.NET (MVC) en SharePoint  ( Asp net printing mvc word documents in sharepoint ) 
Así que tengo nuestra aplicación web de MVC en funcionamiento y nos gustaría introducir imprimir en la solución. Tenemos una interfaz (utilizando SharePoint S...

1  ¿Convertir Word Doc a ASPX?  ( Convert word doc to aspx ) 
¿Hay una forma sencilla de hacer esto que conserva el formato? ...

0  Word Automation Backwardy Compatibilidad con Word 2003  ( Word automation backwards compatibility with word 2003 ) 
Estoy trabajando en algún código de automatización de Word en C #. Tengo WORD 2007 instalado en mi propia máquina (versión 12.0.0.0 de Microsoft.office.intero...

1  ¿Cómo puedo (¿debería?) Usar Apache Poi HWPFDocument?  ( How do i should i use apache poi hwpfdocument ) 
Estoy pensando en incluir a Apache Poi en mi solicitud. El objetivo principal es generar documentos RTF, pero DOC sería agradable, también. Pero la documentac...

2  Cómo crear la tabla de contenidos (TOC) a través de Macro  ( How to create table of contents toc via macro ) 
Necesito crear la tabla de contenidos después de Mailmerge por Macro, ya que Word no admite la actualización del campo TOC de los campos TC. ¿Es posible aut...




© 2022 respuesta.top Reservados todos los derechos. Centro de preguntas y respuestas reservados todos los derechos