{"id":535,"date":"2024-04-03T19:15:18","date_gmt":"2024-04-03T19:15:18","guid":{"rendered":"https:\/\/datacrazyworld.com\/?p=535"},"modified":"2024-04-03T19:15:19","modified_gmt":"2024-04-03T19:15:19","slug":"genera-documentos-word-con-powershell","status":"publish","type":"post","link":"https:\/\/datacrazyworld.com\/index.php\/2024\/04\/03\/genera-documentos-word-con-powershell\/","title":{"rendered":"Genera documentos Word con PowerShell"},"content":{"rendered":"\n

\u00bfConoces PowerShell? Es una herramienta que viene ya instalada en todos los Windows que te permite automatizar muchas cosas y te permite hacer cosas que ni imaginar\u00edas. Eso s\u00ed, es para nost\u00e1lgicos del MS-DOS o l\u00ednea de comandos, como yo \ud83d\ude0a.<\/p>\n\n\n\n

Uno de mis \u00faltimos grandes descubrimientos, como siempre creado por la necesidad, ha sido que puedes generar un script de PowerShell que genere autom\u00e1ticamente un documento Word y lo vas completando con el contenido que quieras.<\/p>\n\n\n\n

Ya puse un ejemplo en mi post: C\u00f3mo documentar tu ETL del SSIS con PowerShell<\/a><\/em> pero ahora quiero poner los comandos de forma m\u00e1s expl\u00edcita, ya que, para algunas cosas ,como personalizar la portada, la documentaci\u00f3n escasea.<\/p>\n\n\n\n

Voy a empezar desde el principio: Los scripts los puedes escribir en un notepad o donde quieras y si los guardas como con la extensi\u00f3n ps1<\/em> Windows detecta que es un script de Powershell y te da la opci\u00f3n a lanzarlo. Otra opci\u00f3n, es utilizar el programa \u00abWindows PowerShell ISE\u00bb que incorpora el editor y la l\u00ednea comandos, o directamente la l\u00ednea de comandos abriendo \u00abWindows PowerShell\u00bb. Una vez, conocido esto, voy con lo que nos trae a este post: crear un documento word.<\/p>\n\n\n\n

Lo primero es configurar y crear el documento Word. Lo \u00fanico que hay que indicar es la url donde se quiere ubicar y si se quiere que se vea o no mientras se genera.<\/p>\n\n\n\n

###############################################################################################\n# Datos a rellenar\n# $docfile --> Url donde se dejara el documento\n###############################################################################################\n\n#Configuraci\u00f3n del documento Word\n#url\n$docfile = \"C:\\Test\\EjemDoc.docx\"\n#Creamos instancia del objeto word\n$MSWord = New-Object -ComObject Word.Application\n#Lo hacemos visible\n$MSWord.Visible = $True\n#Creamos nuevo documento\n$mydoc = $MSWord.Documents.Add() \n<\/code><\/pre>\n\n\n\n
A continuaci\u00f3n, y de manera opcional, se pueden rellenar algunas de las propiedades del documento. Esto viene bien para rellenar ciertos par\u00e1metros autom\u00e1ticos a posteriori.<\/p>\n\n\n\n
#Rellenamos algunas propiedades del documento.\n#T\u00edtulo\n$comObject = $mydoc.BuiltInDocumentProperties(\"Title\")\n$binding = \"System.Reflection.BindingFlags\" -as [type]\n[System.__ComObject].invokemember(\"Value\",$binding::SetProperty,$null,$comObject,\"Ejemplo de doc con PowerShell\")\n\n#Compa\u00f1ia - Empresa\n$comObject = $mydoc.BuiltInDocumentProperties(\"Company\")\n$binding = \"System.Reflection.BindingFlags\" -as [type]\n[System.__ComObject].invokemember(\"Value\",$binding::SetProperty,$null,$comObject,\"Data Crazy World\")\n\n#Autor\n$comObject = $mydoc.BuiltInDocumentProperties(\"Author\")\n$binding = \"System.Reflection.BindingFlags\" -as [type]\n[System.__ComObject].invokemember(\"Value\",$binding::SetProperty,$null,$comObject,\"Cristina Tarabini-Castellani\") \n<\/code><\/pre>\n\n\n\n
\u00a1Y ahora la portada!. Se puede construir a mano una, pero es m\u00e1s sencillo utilizar alguna de las plantillas que se incorporan por defecto en el Word. Las diferentes portadas que te ofrecen son:<\/p>\n\n\n\n
\n
\"\"
Con Bandas<\/figcaption><\/figure>\n\n\n\n
\"\"
Cortar (oscuro)<\/figcaption><\/figure>\n\n\n\n
\"\"
Faceta<\/figcaption><\/figure>\n\n\n\n
\"\"
Filigrana<\/figcaption><\/figure>\n\n\n\n
\"\"
Integral<\/figcaption><\/figure>\n\n\n\n
\"\"
Ion (claro)<\/figcaption><\/figure>\n\n\n\n
\"\"
Ion (oscuro)<\/figcaption><\/figure>\n\n\n\n
\"\"
Retrospectiva<\/figcaption><\/figure>\n\n\n\n
\"\"
Semaforo<\/figcaption><\/figure>\n\n\n\n
\"\"
Slice (luz)<\/figcaption><\/figure>\n\n\n\n
\"\"
Whisp<\/figcaption><\/figure>\n\n\n\n
\"\"
Vista principal<\/figcaption><\/figure>\n\n\n\n
\"\"
Movimiento<\/figcaption><\/figure>\n<\/figure>\n\n\n\n
Igual hay m\u00e1s, pero estas son las que he podido averiguar. Hay que tener en cuenta, que yo manejo la versi\u00f3n en espa\u00f1ol y por tanto los nombres est\u00e1n en espa\u00f1ol. Si manejas la versi\u00f3n en ingl\u00e9s, tendr\u00e1s que poner los nombres ingleses.<\/p>\n\n\n\n
Y ahora que ya te he hablado un poco de las opciones que hay, toca preparar la portada para a\u00f1adirla al documento.<\/p>\n\n\n\n
#Preparamos la portada\n$CoverPage = 'Movimiento' #Nombre de la plantilla de la portada\n$Selection = $MSWord.application.selection   \n\n#Se coge la plantilla de la portada elegida\n$MSWord.Templates.LoadBuildingBlocks()\n$bb =$MSWord.templates | Where-Object -Property name -EQ -Value 'Built-In Building Blocks.dotx'\n\n$part = $bb.BuildingBlockEntries.item($CoverPage) \n<\/code><\/pre>\n\n\n\n
Con esto ya tendr\u00eda la portada, pero hay que tratarla un poco y este c\u00f3digo que incluyo a continuaci\u00f3n, es para personalizar la portada \u201cMovimiento\u201d. Si se escoge otra, habr\u00eda que estudiar c\u00f3mo personalizarla. En este c\u00f3digo, cambio la imagen y el color, adem\u00e1s de rellenar algunos de los textos que vienen en la portada.<\/p>\n\n\n\n
#Tratamos la plantilla de portada elegida. \n######################### Esto es para la portada \"Movimiento\"\n$null = $part.Insert($MSWord.Selection.range, $true)   \n\n#Las 3 l\u00edneas verdes verticales. Les voy a cambiar el color a Rosa :)\n$Selection.Document.Shapes.Item(\"Grupo 78\").GroupItems[1].Fill.ForeColor.Rgb = 16711847 ##ff00a7\n#El rect\u00e1ngulo grande verde. Tambi\u00e9n lo cambio a Rosa                                 \n$Selection.Document.Shapes.Item(\"Grupo 78\").GroupItems[2].Fill.ForeColor.Rgb = 16711847 ##ff00a7\n\n#Borramos la imagen por defecto de la portada. No he sido capaz de sustituirla\n$Selection.Document.Shapes.Item('Imagen 1').Delete()\n\n#Creamos el nuevo Canva para recoger el logo y colocarla en el mismo lugar. Hay que configurar el tama\u00f1o\n$null = $Selection.Document.Shapes.AddCanvas(1, 1, 200, 107.5)\n$null = $Selection.Document.Shapes.Item('Lienzo 1').CanvasItems.AddPicture(\"C:\\DataCrazyWorld\\Logos DataCrazyWorld\\Elementos\\Logos\\Color_Small.png\", $false, $True, $null, $null, 200, 107.5)#439.2, 295.55\n$Selection.Document.Shapes.Item('Lienzo 1').Left =-999996\n$Selection.Document.Shapes.Item('Lienzo 1').Top = -999995\n$Selection.Document.Shapes.Item('Lienzo 1').Height = 107.5\n$Selection.Document.Shapes.Item('Lienzo 1').Width = 200\n$Selection.Document.Shapes.Item('Lienzo 1').Title = \"Logo\"\n$Selection.Document.Shapes.Item('Lienzo 1').AlternativeText = \"Imagen del logo\"\n$Selection.Document.Shapes.Item('Lienzo 1').RelativeHorizontalPosition = 1\n$Selection.Document.Shapes.Item('Lienzo 1').RelativeVerticalPosition = 1\n$Selection.Document.Shapes.Item('Lienzo 1').CanvasItems.PictureFormat\n\n#Reemplazamos la etiqueta [A\u00f1o]\n$a\u00f1o = Get-Date -Format \"yyyy\"\n$Selection.Document.Shapes.Item(\"Grupo 78\").GroupItems[3].TextFrame.TextRange.Text= $a\u00f1o #A\u00f1o\n\n#Reemplazamos la etiqueta [Fecha]\n$fecha = Get-Date -Format \"dd\/MM\/yyyy\"\n$Texto = $Selection.Document.Shapes.Item(\"Grupo 78\").GroupItems[4].TextFrame.TextRange.Text\n$Selection.Document.Shapes.Item(\"Grupo 78\").GroupItems[4].TextFrame.TextRange.Text = $Texto.Replace(\"[Fecha]\",$fecha) \n\n#########################Fin portada \"Movimiento\" \n\n<\/code><\/pre>\n\n\n\n
Tras la portada, viene el \u00edndice, as\u00ed que se puede crear una tabla de contenidos.<\/p>\n\n\n\n
#Metemos un salto de p\u00e1gina para incluir la tabla de contenidos\n$Selection = $MSWord.Selection\n$Selection.InsertBreak([Microsoft.Office.Interop.Word.WdBreakType]::wdSectionBreakNextPage)\n$Selection = $MSWord.Selection\n$range = $Selection.Range\t\n$toc = $mydoc.TablesOfContents.Add($range)\n$Selection.TypeParagraph()\n\n#Metemos un salto de p\u00e1gina para empezar a documentar\n$Selection.InsertBreak([Microsoft.Office.Interop.Word.WdBreakType]::wdSectionBreakNextPage) \n<\/code><\/pre>\n\n\n\n
Y a partir de aqu\u00ed ya es crear el contenido. Se pueden usar t\u00edtulos, listas, tablas\u2026 Aqu\u00ed ten\u00e9is algunos ejemplos<\/p>\n\n\n\n
#Creamos array de stilos para las cabeceras. Esto es opcional... me sirve para acortar luego los comandos\n$styles = @(\n        [Microsoft.Office.Interop.Word.WdBuiltinStyle]::wdStyleHeading1\n    ,[Microsoft.Office.Interop.Word.WdBuiltinStyle]::wdStyleHeading2\n    ,[Microsoft.Office.Interop.Word.WdBuiltinStyle]::wdStyleHeading3\n    ,[Microsoft.Office.Interop.Word.WdBuiltinStyle]::wdStyleHeading4\n    ,[Microsoft.Office.Interop.Word.WdBuiltinStyle]::wdStyleHeading5\n    ,[Microsoft.Office.Interop.Word.WdBuiltinStyle]::wdStyleHeading6\n    ,[Microsoft.Office.Interop.Word.WdBuiltinStyle]::wdStyleHeading7\n    ,[Microsoft.Office.Interop.Word.WdBuiltinStyle]::wdStyleHeading8\n    ,[Microsoft.Office.Interop.Word.WdBuiltinStyle]::wdStyleHeading9\n    \n)\n\n#Configuramos la apariencia del documento a partir de aqu\u00ed\n$Section = $mydoc.Sections.Item(1)\n$Header = $Section.Headers.Item(1)\n$Footer = $Section.Footers.Item(1)\n$Footer.PageNumbers.Add()\n\n#Creamos una referencia al documento actual, para a\u00f1adirle el texto\n$myText = $MSWord.Selection\n\n#Ponemos el Titulo1\n$myText.Style = $styles[0] #Titulo 1\n$myText.TypeText(\"Ejemplo de documento generado por PowerShell\")\n$myText.TypeParagraph()\n\n#Seguimos rellenando con texto normal\n$myText.TypeText(\"Rellenas el contenido que quieras\")\n$myText.TypeParagraph()\n\n#Ponemos el Titulo2\n$myText.Style = $styles[1] #Titulo 2\n$myText.TypeText(\"Ejemplo t\u00edtulo 2\")\n$myText.TypeParagraph()\n\n#Hacemos una lista\n$myText.Style = [Microsoft.Office.Interop.Word.WdBuiltinStyle]::wdStyleListBullet\n$myText.Font.Bold = 1\n$myText.TypeText('Tit. Lista: ')\n$myText.TypeParagraph()             \n$myText.Font.Bold = 0\n$myText.Style = [Microsoft.Office.Interop.Word.WdBuiltinStyle]::wdStylePlainText\n$myText.TypeText('Detalle lista')\n$myText.TypeParagraph()  \n\n#Dejamos libre una l\u00ednea\n$myText.TypeParagraph()\n\n#Creamos una tabla\n$Range = @($myText.Paragraphs)[-1].Range\n$Table = $myText.Tables.add(\n    $myText.Range #$Range\n    ,2 #Rows\n    ,3 #Columns\n    ,[Microsoft.Office.Interop.Word.WdDefaultTableBehavior]::wdWord9TableBehavior\n    ,[Microsoft.Office.Interop.Word.WdAutoFitBehavior]::wdAutoFitContent\n)\n## Cabecera de la Tabla\n$Table.cell(1,1).range.Bold=1\n$Table.cell(1,1).range.text = \"Columna 1\"\n$Table.cell(1,2).range.Bold=1\n$Table.cell(1,2).range.text = \"Columna 2\"\n$Table.cell(1,3).range.Bold=1\n$Table.cell(1,3).range.text = \"Columna 3\"\n\n#rellenamos la celda con la descripci\u00f3n de la columna cogida de BBDD\n$Table.cell(2,1).range.Bold = 0\n$Table.cell(2,1).range.text = 'Cont. Col1'\n$Table.cell(2,2).range.Bold = 0\n$Table.cell(2,2).range.text = 'Cont. Col2'\n$Table.cell(2,3).range.Bold = 0\n$Table.cell(2,3).range.text = 'Cont. Col3'\n\n#Para continuar escribiendo fuera de la tabla y dejar una linea\n$myText.Start= $mydoc.Content.End\n$myText.TypeParagraph() \n\n<\/code><\/pre>\n\n\n\n
Una vez terminado de introducir el contenido, hay que pedir que se actualice la tabla de contenidos.<\/p>\n\n\n\n
#Actualizamos el \u00edndice\t\n$toc.Update()\n<\/code><\/pre>\n\n\n\n
Y por \u00faltimo, hay que salvar el documento, cerrar y limpiar todo.<\/p>\n\n\n\n
#Salvamos el documento Word\n$saveFormat = [Microsoft.Office.Interop.Word.WdSaveFormat]::wdFormatDocumentDefault\n$mydoc.SaveAs([ref][system.object]$docfile, [ref]$saveFormat)\n$mydoc.Close()\n$MSWord.Quit()\n\n# Limpiar el objeto Com\n$null = [System.Runtime.InteropServices.Marshal]::ReleaseComObject([System.__ComObject]$MSWord)\nRemove-Variable MSWord \n<\/code><\/pre>\n\n\n\n
Dejo aqu\u00ed <\/a>,en el GitHub, toda esta recopilaci\u00f3n de comandos de PowerShell para crear documentos Word. <\/p>\n\n\n\n
Ahora te invito a imaginar todas las aplicaciones que puede tener. Ya puse un ejemplo, pero en los pr\u00f3ximos posts, pondr\u00e9 muchos m\u00e1s\u2026 como ya dije, iban a ser unos cuantos post relativos a la documentaci\u00f3n . Y a ti \u00bfqu\u00e9 se te ocurre? \u00a1Te leo!<\/p>\n\n\n\n
Bibliograf\u00eda<\/h2>\n\n\n\n