Listado de los ajustes en una plantilla

June 29

Andy se pregunta si hay alguna manera de "lista" de los ajustes en una plantilla (márgenes, fuentes, tabulaciones, etc.). Él ha visto un montón de información acerca de cómo restablecer los valores predeterminados, pero nada que le dicen lo que los ajustes son en realidad. Él señala que la apertura de una plantilla y mirando a los diversos temas es torpe y menos amplio.

Desafortunadamente, no hay manera fácil de hacer esto en Word. La razón principal es porque no hay una lista completa de lo que los ajustes se almacenan en plantillas, y el gran número de estos ajustes puede ser bastante intimidante. Lo mejor que puede hacer es crear una macro que examinará los ajustes que le interesan y luego mostrar los.

Como ejemplo, considere el siguiente conjunto de macros:

TemplateSettings Sub ()
Dim templatePath As String
Dim fleName As String
Dim str As String
Dim sTemp As String

'Seleccione la plantilla que se abra
templatePath = Application.Templates (1) .Path
fleName = GetTemplateName (templatePath)
Si fleName = "" Then
MsgBox "No plantilla seleccionada"
Exit Sub
End If

Application.Documents.Open (fleName)

str = ActiveDocument.Name y vbCr y vbCr

sTemp = "Otro"
Select Case ActiveDocument.Sections (1) .PageSetup.PaperSize
Caso wdPaperLetter
sTemp = "Carta"
Caso wdPaperLegal
sTemp = "legal"
Caso wdPaperA4
sTemp = "A4"
End Select
str str = & "Tamaño del papel:" & sTemp

sTemp = "Paisaje"
Si ActiveDocument.Sections (1) .PageSetup.Orientation = wdOrientPortrait Entonces
sTemp = "Retrato"
End If
str = str y "Orientación:" & sTemp y vbCr

str = str y "Márgenes" & marginsStr y vbCr
str = str y vbCr y "Tab definido por el usuario se detiene" y UserTabStops y vbCr
str = str y vbCr y "estilos definidos por el usuario" y userStyles

Application.Documents (fleName) .Close SaveChanges: = wdDoNotSaveChanges

MsgBox str
End Sub

GetTemplateName Función (templatePath As String) As String
Dim DLG Como FileDialog
Establecer dlg = Application.FileDialog (_
FileDialogType: = msoFileDialogFilePicker)
Con dlg
.AllowMultiSelect = False
.InitialFileName = TemplatePath
.Filters.Clear
.Filters.Add "Plantillas", "* .dot"
.Filters.Add "Todos los archivos", "*. *"
.FilterIndex = 1
.Show
Si .SelectedItems.Count> 0 Then
GetTemplateName = .SelectedItems (1)
Más
GetTemplateName = ""
End If
End With
Dlg Set = Nothing
End Function

UserStyles función () como secuencia
Pocilga dévil como Estilo
S Dim como secuencia

s = ""
Para cada pocilga En ActiveDocument.Styles
Si No sty.BuiltIn Entonces
s = vbCr y sty.NameLocal y "" y sty.Description
End If
Siguiente pocilga
userStyles = s
End Function

UserTabStops función () como secuencia
S Dim como secuencia
Dim tbStop Como PuntoDeTabulación
Alg Dim

alg = Array ("izquierda", "Centro", "derecha", "Decimal", "Bar", "?", "Lista")
s = ""
Para Cada tbStop En ActiveDocument.Paragraphs (1) .TabStops
s = s y vbCr y ptConvert (tbStop.Position) & _
"Alineación:" & alg (tbStop.Alignment)
Siguiente tbStop
UserTabStops = s
End Function

Función marginsStr () As String
Con ActiveDocument
marginsStr = _
"A la izquierda:" & ptConvert (.PageSetup.LeftMargin) & _
"A la derecha:" & ptConvert (.PageSetup.RightMargin) & _
"Top:" & ptConvert (.PageSetup.TopMargin) & _
"En pocas palabras:" Y ptConvert (.PageSetup.BottomMargin)
End With
End Function

Función ptConvert (p As Single) As String
ptConvert = Format (PointsToInches (p), "###. ##")
'Utilice la siguiente línea si desea dimensiones en centímetros
'PtConvert = Format (PointsToCentimeters (p), "###. ##")
End Function

La macro principal que usted comienza con es TemplateSettings. Esta macro, a su vez, llama a las otras funciones en el listado. Se agarra algunas de las configuraciones más comunes dentro de una plantilla (se llega a especificar la plantilla, por supuesto) y luego muestra los ajustes en un cuadro de mensaje. En concreto, se muestra el nombre de la plantilla, tamaño del papel, orientación de la página, márgenes, tabulaciones (sólo para el primer párrafo de la plantilla), y estilos definidos por el usuario.

Obviamente, hay muchos, muchos otros ajustes que podrían ser extraídos y se muestran. Por ejemplo, es posible que desee saber cuáles son las características de cada estilo son, en lugar de sólo una lista de nombres de los estilos definidos por el usuario. O es posible que desee saber cómo formatear por estilos incorporados difiere del formato predeterminado. Sólo solas estas opciones introducirían una gran cantidad de complejidad a la macro. (Tenga en cuenta que cada estilo puede tener docenas de diferentes ajustes de formato y "formato predeterminado" para estilos integrados se define por lo que se almacena en la plantilla Normal.) Con el fin de incluir tales adiciones, usted sólo tiene que modificar la macro para compilar la información deseada.

Tenga en cuenta, además, que la suite macro que aquí se presenta está diseñado para ser simple, a pesar de su longitud. Todo lo que hace es poner todos los ajustes extraídos en una cadena y luego mostrar esa cadena en un cuadro de mensaje. Si la plantilla que usted está mirando tiene muchos muchos estilos, definidos por el usuario, entonces es posible que la cadena a ser bastante largo. Si termina siendo más de 1.024 caracteres, entonces obtendrá un error porque la función MsgBox sólo puede mostrar una cadena hasta que la longitud. Si usted anticipa que su cadena será más largo, usted querrá para mostrarla en "trozos" en varios cuadros de mensaje, o simplemente escribir la cadena en un archivo de texto que puedan examinarse posteriormente.

WordTips es su fuente de formación de Microsoft Word rentable. (Microsoft Word es el procesador de textos más popular en el mundo.) Esta punta (10117) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí: Listado de los ajustes en una plantilla.