我们正在使用Sectigo签名证书(只有OV -组织验证,而不是EV)来签署我们的.exe应用程序。最近几年没有出现任何问题。
现在,我们试图用相同的证书在Word/Excel中对VBA进行签名,但没有成功。当我打开VBA editor -> Tools -> Digital Signature -> Select Sectigo cert -> ok -> close VBA and save Excel但又收到错误时:
数字证书有问题。无法签署VBA项目。签名将被取消。
我没能解决这个问题。自我签署的证书工作得很好..。
有什么想法吗?谢谢
我编写了一些Word VBA,它接受一个Excel文件并更新Word文件中的标签(ActiveX控件)。唯一的问题是这个Excel文件每个月都会更改路径和文件名。与每月编辑2个变量不同,我如何添加一个“打开文件”对话框,以便用户选择要使用的Excel文件?
我现在拥有的是:
Sub Update()
Dim objExcel As New Excel.Application
Dim exWb As Excel.Workbook
PathWork = "C:\My Documents\2015-05 Report\"
CalcFile =
我正在尝试使用Excel VBA在Word中创建一对多合并。在Word 2013中手动运行该进程时,表单将按预期工作。
当我尝试在Excel 2013中使用VBA进行自动化操作时,它默认为Excel电子表格中的每个新行插入分页符。
以下是代码块后面的源代码更改后的代码:
Dim cDir As String
Dim ThisFileName As String
Const WTempName = "HCCMailMerge.docx" 'This is Word Templates name
Dim NewFileName As String
NewFileName
在VBA for MS Word 2010中,如何让Word弹出调色板对话框,以便用户可以选择颜色?
关于如何在Excel中这样做的例子有很多,但我还没有找到任何对Word用户的帮助。下面是Excel的代码:
Application.Dialogs(xlDialogPatterns).Show
问题是,没有与wdDialogPatterns等效的东西,我也找不到任何具有建议调色板对话框的名称的东西。我已经找到了wdFormatBordersAndShading,但它并不完全相同:我希望用户选择一种颜色供以后重复使用。
谢谢!
我在打开文件的开头实现了一个密码对话框。错误的密码或关闭对话框将导致
Application.Quit
在queryclose事件中,我还错误地将应用程序关闭为
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Here I should check type of close
Application.Quit
End Sub
我现在关闭的应用程序,如果它是正确的,因为对话框卸载和调用查询关闭自动,否则错误的密码提示。
我无法访问文件。如何编辑VBA代码?
我的excel文件中有一段代码,它打开某个Word文档以从中读取数据,该Word文档还有一个"Document_Open“事件处理程序(每次我打开该Word文档时,它都会显示一个UserForm )。 我的问题是,每次我运行我的Excel代码打开Word文件时,由于"Document_Open“事件处理程序,代码的控制卡在Word环境中。 到目前为止我的代码如下: Private Sub CommandButton18_Click()
Dim Word As New Word.Application
Dim MRpt As Word.Document
Word.Visib
我正在构建一些报告模板。它们都基于具有特定布局和表格的“主模板”。然后,我有了一个Excel表,我使用它来填充主模板,然后将其另存为一个新模板,用于报告该特定项目。我工作得很好,但我意识到我的代码是基于主模板打开一个新文档,然后另存为新模板。
这很好,但是我的主模板现在在Document_New()事件上包含了一个用户表单。因此,我需要将其作为模板打开,以便我可以填充并另存为新模板。当代码将母版作为文档而不是模板打开时,它会立即运行用户表单。我需要它让我打开母版,填充它并保存它,然后,当需要生成报告时,打开新的模板,然后运行用户表单。
我打开主模板的代码(在excel文件中)是:
Di
我正在创建一个Excel宏,该宏将在按下命令按钮(VBA 7.1)时运行,并且不允许用户在执行过程中多次单击,但是我在网上找到的用于此目的的每一个技巧都没有工作:即使锁定、禁用并将焦点放在另一个对象上,用户仍然可以在第一个对象完成之前使该子程序多次运行。
我当前的代码如下所示(run_slow_macro打开一个Word文档进行更改,然后保存它,大约需要30秒才能完成)。
Private Sub CommandButton1_Click()
If CommandButton1.Enabled = False Then
MsgBox ("STOP CLICKIN
我的目标是通过打开某个word文档并将单元格或字符串传入位于word VBA中的find宏,使用单元格引用搜索单元格中的文本字符串。本质上,我试图将一个变量从excel宏传递到word宏中。我做不到这件事。我的目标是将变量Party传递给一个名为macro5的Word宏。我可以通过不传递参数并在word宏中对文本进行硬编码来实现以下代码的工作,但是当我试图从excel传递参数时,它不起作用。任何帮助都将不胜感激。
我的excel宏代码:
Sub Open_Correct_WordDOC()
' Open_Correct_WordDOC Macro
Dim WordA
使用VBA (2010),我可以调用打印对话框和打印预览,但我不知道如何调用文件->打印菜单。
Application.Dialogs(xlDialogPrint).Show ' Client - "not in keeping with the Excel 2010 experience"
ActiveSheet.PrintPreview (False) ' Very slow to display
是否可以使用VBA显示此菜单选项?
我正在搜索一个带有VBA功能的Word (2016)文档,查找具有黄色应用背景颜色的段落。如果段落的样式是Normal,这很好.
With Selection.Find
.ClearFormatting
.ParagraphFormat.Shading.BackgroundPatternColor = wdColorYellow
.Wrap = wdFindContinue
.Text = ""
End With
While Selection.Find.Execute
' do the thing
Wend
运行这个之后,我可
我有一个Excel工作簿,它依赖于其他Excel工作簿中的代码(这些依赖的.xls是VB级引用,即通过VBA编辑器中的“工具”->“引用”对话框),以及一些对dll的依赖关系,例如: Microsoft Scripting Runtime Microsoft Forms 2.0 Object Library
这张纸已经在大约20台运行Windows XP和Office XP的机器上工作了大约2年。最近我们收到了3台新机器(相同的操作系统,相同的办公版本),它们拒绝运行这张表。当工作表打开时,它抛出一个“编译错误”,会话挂起。
如果我在一台“坏”的机器上打开工作表,按住Shift键停止宏的