Início / computer / Perguntas / 1669331
Accepted
wyatt7613
Asked: 2021-08-14 17:42:41 +0800 CST

VBA - Usando a variável do Excel no Word

  • 772

Estou tentando usar uma variável definida no Excel no Word. Estou usando duas macros separadas, mas todo o código está escrito no Excel. Estou tentando controlar o Word do Excel.

Aqui está o código que tenho na minha macro do Excel:

Public DJ, Pick, Customer, Line, Model As Variant
Public LineOne, LineThr As Integer
Dim OP As String
Dim LastRow As Long

'Dims variables for pick stickers
Public Subinv, Loc, PN, Req, Desc As String

Public Sub Picklist()

Neste Sub, ele passa a definir a variável DJ como um conjunto aleatório de 8 números (ou seja, 94673920), ela muda a cada vez. Então estou tentando passar essa variável no Word em um sub diferente. Aqui está o código para isso:

Public Sub PickLabel()

Dim WordApp, WordDoc As Object
    Set WordApp = CreateObject("Word.Application") 'Opens up the Pick Stickers Generator in Word
    Set WordDoc = WordApp.Documents.Add
        WordApp.Visible = True
Dim WordSel
    Set WordSel = WordApp.Selection
    
With WordSel
    .Font.Size = 60
    .Font.Name = "Arial"
    .TypeText ("DJ: " & DJ)
    .ParagraphFormat.Alignment = wdAlignCenter
End With

Finalizar Sub

Não está inserindo a variável DJ como eu quero. O que estou fazendo errado?

microsoft-excel microsoft-word

1 respostas

  1. Best Answer

    Chame seu código com o seguinte:

    PickLabel(DJ)

Public Sub PickLabel(vRandom as long)

Dim WordApp, WordDoc As Object
    Set WordApp = CreateObject("Word.Application") 'Opens up the Pick Stickers Generator in Word
    Set WordDoc = WordApp.Documents.Add
        WordApp.Visible = True
Dim WordSel
    Set WordSel = WordApp.Selection
    
With WordSel
    .Font.Size = 60
    .Font.Name = "Arial"
    .TypeText ("DJ: " & vRandom)
    .ParagraphFormat.Alignment = wdAlignCenter
End With
    • 1

relate perguntas