主页 / computer / 问题 / 1669331
Accepted
wyatt7613
Asked: 2021-08-14 17:42:41 +0800 CST

VBA - 在 Word 中使用 Excel 变量

  • 772

我正在尝试在 Word 中使用 Excel 中定义的变量。我使用两个单独的宏，但所有代码都是用 Excel 编写的。我正在尝试从 Excel 控制 Word。

这是我在 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()

在这个 Sub 中，它继续将 DJ 变量定义为 8 个数字的随机集合（即 94673920），它每次都会改变。然后我试图在不同的子下传递 Word 中的变量。这是代码：

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

结束子

它没有像我想要的那样插入 DJ 变量。我究竟做错了什么？

microsoft-excel microsoft-word

1 个回答

  1. Best Answer

    使用以下代码调用您的代码：

    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

相关问题