Cómo hacer una calculadora de porcentaje en su palabra a través de VBA

Soluciones de Word 28 de septiembre de 2025

En este post, hay pasos detallados para que pueda hacer una calculadora de porcentaje en su Word con el uso del editor VBA.

Un documento de Word puede contener muchos números, como un informe de venta. Entonces puede resultarle un dolor de cabeza lidiar con el cálculo del porcentaje. Por lo tanto, queremos ofrecerle la forma de crear una calculadora de porcentaje usted mismo en Word.

Insertar un formulario de usuario

En primer lugar, active el editor VBA en Word con "Alt + F11".
Luego haga clic en "Insertar" y seleccione "UserForm".
A continuación, presione "F4" para abrir la "Ventana de propiedades" en la esquina inferior izquierda.
Nombra el formulario como "frmPercentageCalculator".
Y establezca "ShowModal" como "Falso". Establezca otras propiedades en consecuencia, como el fondo.
A continuación, haga clic en "Ver" y seleccione "Caja de herramientas".
En "Caja de herramientas", haga clic en el control "Varias páginas".
Ajusta el tamaño del control. Al principio, puede ver “Página1” y “Página2”. Haga clic derecho en "Página2" y elija "Nueva página" para obtener "Página3" y "Página4".
Haga clic derecho en "Página1" y elija "Cambiar nombre".
Cambiar el nombre de la página 1 como "Porcentaje (qué% de)", Página 2 como"Aumentar / Disminuir por porcentaje", Página 3 como"Cambio porcentual", Y la página 4 como"% De cambio de selección.

Insertar controles en la página 1

Ahora haga clic en la página "Porcentaje (qué% de) ". Cree cuatro etiquetas, tres cuadros de texto y 2 botones de comando. Ponlos en el siguiente orden:
A continuación, configure las propiedades de control.

Primero haga clic en la etiqueta 1. Establecer el título como "Porcentaje (qué% de)". Establezca la fuente y el color de fondo como desee.
Luego haga clic en la etiqueta 2. Establecer el título como "es qué porcentaje de".
Haga clic en la etiqueta 3. Establecer el título como "?.
Y haga clic en la etiqueta 4. Establezca el título como "Resultado:.
Luego haga clic en el cuadro de texto 1. Nómbrelo como "txtNumerator”. Y configure la fuente correctamente.
Haga clic en el cuadro de texto 2. Nómbrelo como "txtDenominator.
Haga clic en el cuadro de texto 3. Nómbrelo como "txtPercentage”. Elija "Resaltar" para "BackColor".
Y haga clic en el botón 1. Nómbrelo como "btnCalculate. Establecer el título como "Calcular".
Haga clic en el botón 2. Nómbrelo como "btnInsertResult”. Y establecer el título como "Insertar resultado.

Ahora haga doble clic en el botón "Calcular". Ingrese los siguientes códigos:

Private Sub btnCalculate_Click()
  Dim nNumerator As Variant, nDenominator As Variant, nPercentage As Variant
 
  nNumerator = frmPercentageCalculator.txtNumerator.Text
  nDenominator = frmPercentageCalculator.txtDenominator.Text
  nPercentage = (nNumerator / nDenominator)
  frmPercentageCalculator.txtPercentage.Text = Format(nPercentage, "Percent")
End Sub

Haga doble clic en el botón "Insertar resultado" y pegue los códigos:

Private Sub btnInsertResult_Click()
  Selection.InsertAfter frmPercentageCalculator.txtPercentage.Text
End Sub

Insertar controles en la página 2

Haga clic en la página "Aumentar / Disminuir por porcentaje”. Luego cree cinco etiquetas, tres cuadros de texto y dos botones de comando. Ponlos en el siguiente orden:
A continuación, configure las propiedades de control.
- Primero haga clic en la etiqueta 1. Establezca el título como "Aumentar / Disminuir por porcentaje.
- Luego haga clic en la etiqueta 2. Establezca el título como "Cantidad.
- Haga clic en la etiqueta 3. Establezca el título como "Aumentar / Disminuir en.
- Y haga clic en label4. Establecer el título como "%.
- Haga clic en la etiqueta 5. Establezca el título como "Resultado:.
- A continuación, haga clic en el cuadro de texto 1. Nómbrelo como "txtAmount".
- Y haga clic en el cuadro de texto 2. Nómbrelo como "txtIncreaseOrDecreaseByPercentage".
- Haga clic en el cuadro de texto 3. Nómbrelo como "txtResult" y establezca el color de fondo como "Resaltado".
- Luego haga clic en el botón 1. Nómbrelo como "btnCalculateIncreasedOrDecreasedAmount", y establezca el título como "Calculate".
- Haga clic en el botón 2. Nómbrelo como “btnInsertValue” y establezca el título como “Insertar resultado”.

Establezca la fuente, el color de fondo y otras propiedades si es necesario.

Luego haga doble clic en el botón "Calcular" e ingrese estos códigos:

Private Sub btnCalculateIncreasedOrDecreasedAmount_Click()
  Dim nAmount As Variant, nChangingPercentage As Variant, nResult As Variant
 
  nAmount = frmPercentageCalculator.txtAmount.Text
  nChangingPercentage = frmPercentageCalculator.txtIncreaseOrDecreaseByPercentage.Text
  nResult = nAmount + nAmount * nChangingPercentage * 0.01
  frmPercentageCalculator.txtResult.Text = nResult
End Sub

Y haga doble clic en el botón "Insertar resultado" e introduzca los códigos:

Private Sub btnInsertValue_Click()
  Selection.InsertAfter frmPercentageCalculator.txtResult.Text
End Sub

Insertar controles en la página 3

En primer lugar, haga clic en la página "Cambio porcentual". A continuación, cree cuatro etiquetas, tres cuadros de texto y dos botones de comando. Organícelos en el siguiente orden:
A continuación, vaya a configurar las propiedades de control.

Primero haga clic en la etiqueta 1. Establecer el título como "Cambio porcentual".
Luego haga clic en la etiqueta 2. Establecer el título como "Desde el valor".
Luego haga clic en la etiqueta 3. Establecer el título como "Valor nominal".
Haga clic en la etiqueta 4. Establecer el título como "Resultado:".
Luego haga clic en el cuadro de texto 1. Nómbrelo como "txtFromValue.
Y haga clic en el cuadro de texto 2. Nómbrelo como "txtToValue.
Haga clic en el cuadro de texto 3. Nómbrelo como "txtPercentageChange" y establezca el color de fondo como "Resaltado"..
Y haga clic en el botón 1. Nómbrelo como "btnCalculatePercentageChange" y establezca el título como "Calculate".
Haga clic en el botón 2. Nómbrelo como "btnInsertPercentageChange" y establezca el título como "Insertar resultado".

Luego haga doble clic en el botón "Calcular" y pegue estos códigos:

Private Sub btnCalculatePercentageChange_Click()
  Dim nFromValue As Variant, nToValue As Variant, nPercentageChange As Variant

  nFromValue = frmPercentageCalculator.txtFromValue.Text
  nToValue = frmPercentageCalculator.txtToValue.Text
  nPercentageChange = (nToValue - nFromValue) / nFromValue
  frmPercentageCalculator.txtPercentageChange.Text = Format(nPercentageChange, "Percent")
End Sub

Haga doble clic en el botón "Insertar resultado" y pegue los códigos:

Private Sub btnInsertPercentageChange_Click()
  Selection.InsertAfter frmPercentageCalculator.txtPercentageChange.Text
End Sub

Insertar controles en la página 4

A start apagado, haga clic en la página "% De cambio de selección”. Luego cree dos etiquetas, tres cuadros de texto y un botón. Y ponlos en tal orden:
En segundo lugar, establezca las propiedades de control.

Primero haga clic en la etiqueta 1. Establecer el título como "Selección de% de cambio".
Luego haga clic en la etiqueta 2. Establecer el título como "%".
Luego haga clic en el cuadro de texto 1. Nómbrelo como "txtDescription". Ingrese el siguiente texto descriptivo:

Seleccione un valor en el documento, luego establezca un valor porcentual (agregue "-" si es negativo) por el cual desea aumentar o disminuir.

Luego haga clic en el cuadro de texto 2. Nómbrelo como "txtPercentageValue".
Luego haga clic en el cuadro de texto 3. Nómbrelo como "txtNote". E ingrese la siguiente nota:

Nota: esto no se puede deshacer. Asegúrese de haber guardado su documento antes de realizar esta acción.

Y haga clic en el botón. Nómbrelo como "btnChangeSelectedValue" y establezca el título como "Cambiar valor seleccionado". Resalta el fondo.

En tercer lugar, haga doble clic en el botón "Cambiar valor seleccionado" e introduzca los códigos:

Private Sub btnChangeSelectedValue_Click()
  Dim nPercentageValue As Variant, varSelectedvalue As Variant
 
  nPercentageValue = frmPercentageCalculator.txtPercentageValue.Text
  varSelectedvalue = Selection.Text
  Selection.Range.Delete
  Selection.TypeText varSelectedvalue + varSelectedvalue * nPercentageValue * 0.01
End Sub

Insertar botón de comando en formulario de usuario

Elija "CommandButton" de "Toolbox" y cree uno en el formulario de usuario.
Luego, nombre el botón como "btnClose".
Establezca el texto de la leyenda como "Cerrar".
Luego haga doble clic en el botón e ingrese los códigos:

Private Sub btnClose_Click()
  Unload Me
End Sub

Insertar un módulo

Haga clic en "Normal".
Luego haga clic en "Insertar" en la barra de herramientas y elija "Módulo".
Haga doble clic para abrirlo y pegue los siguientes códigos allí:

Sub CallPercentageCalculator()
  frmPercentageCalculator.Show
End Sub

Guarde los códigos y asigne un botón a la macro "CallPercentageCalculator". Para conocer los pasos detallados, puede consultar este artículo: Cómo eliminar el formato de los textos pegados con macro y VBA en su Word

Aquí está la demostración del uso de la calculadora:

Cuide sus problemas de palabra

Si su Word muestra algún signo de corrupción, debe hacer una copia de seguridad de sus valiosos documentos de inmediato. Los signos anormales indican que hay algún problema con el software. Por lo tanto, le sugerimos que utilice una herramienta para recuperar palabra.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo arreglar xlsx y pdf reparar productos de software. Para más información visite www.datanumen.com