isbrqu

@echo off
wmic product get caption,version > %~dp0/n.txt
echo finish!
pause > nul

isbrqu

Sub FormatearNotas()
Dim tbl As Table
    Dim i As Integer
    Dim celda As Cell
    For Each tbl In ActiveDocument.Tables
        For i = 3 To tbl.Rows.Count
            On Error Resume Next
                Set celda = tbl.Cell(i, 4)
                celda.VerticalAlignment = wdCellAlignVerticalCenter
                With celda.Range

isbrqu

Sub EliminarNoNumerosOAusenteEnNotas()
Dim tbl As Table
    Dim i As Integer
    Dim rng As Range
    Dim regex As RegExp
    Set regex = CreateObject("VBScript.RegExp")
    With regex
      .Global = True
      .IgnoreCase = False
      .Pattern = "[^\d]"

isbrqu

Sub FormatearInformeCualitativo()
Dim tbl As Table
    Dim i As Integer
    Dim celda As Cell
    For Each tbl In ActiveDocument.Tables
        For i = 1 To 2
          Set celda = tbl.Cell(i, 3)
          With celda.Range.ParagraphFormat
            ' Establecer sangría a cero
            .LeftIndent = 0

isbrqu

Sub FormatearArea()
    Dim tbl As Table
    Dim fila As Integer
    Dim col As Integer
    Dim textoCelda As String
    Dim regex1 As Object
    Set regex1 = CreateObject("VBScript.RegExp")
    With regex1
        .Global = False
        .IgnoreCase = False

isbrqu

Sub FormatearAsignatura()
    Dim tbl As Table
    Dim fila As Integer
    Dim col As Integer
    Dim textoCelda As String
    Dim regex As Object
    For Each tbl In ActiveDocument.Tables
        On Error Resume Next
        For Each celda In tbl.Columns(2).Cells
            With celda.Range.ParagraphFormat

isbrqu

Sub DividirCeldas()
  Dim tbl As Table
  Dim row As row
  Dim regex As Object
  Dim cellText As String
  Dim i As Byte
  Dim countDel As Byte
  countDel = 0
  Set regex = CreateObject("VBScript.RegExp")
  regex.IgnoreCase = False

isbrqu

Sub EliminarFilasConPresencialidad()
  Dim tbl As Table
  Dim row As row
  Dim regex As Object
  Dim cellText As String
  Dim i As Byte
  Dim countDel As Byte
  countDel = 0
  Set regex = CreateObject("VBScript.RegExp")
  regex.IgnoreCase = False

isbrqu

Sub AlinearVerticalTablas()
Dim tbl As Table
    Dim celda As Cell
    For Each tbl In ActiveDocument.Tables
        For Each celda In tbl.Range.Cells
            celda.VerticalAlignment = wdCellAlignVerticalCenter
        Next celda
    Next tbl
End Sub
Sub FormatearAsignatura()

isbrqu

# obtener los servicios
# listar sus nombres y nombre de proveedor
write-host "hola mundo"
$bloatware = @(
    "Microsoft.BingWeather",
    "Microsoft.BingFinance",
    "Microsoft.GetHelp",
    "Microsoft.Getstarted",
)
get-appxpackage | where-object NonRemovable -eq $False