word-vba

    0热度

    1回答

    许多用户(包括我自己)都开始编辑Word文档,创建一个新的Word文档并希望将第二个文档保存在同一个目录中作为第一个文档。这是编辑器(如emacs)中的默认行为。 Word 2013,唉,让我选择我想保存新文件的目录(“文件夹”),迫使我在各种网络文件夹中进行选择,然后在到达包含我的第一个文档之前选择多个子目录。我曾经有一个简单的VBA脚本,它可以找到第一个文件的目录,然后将新文件保存在该目录中,

    0热度

    1回答

    我在Word文档的文本中发现任何格式为“2017年8月16日”的日期时遇到问题。使用ActiveDocument.Content.Find,我只能在第一页上找到结果。即使在第一页中,结果也不一致。以下是我的代码如下。 Dim myMonth(1 To 12) As String myMonth(1) = "January" myMonth(2) = "February" myMonth(3)

    2热度

    3回答

    MS从Word 2010引入MS Word的新功能之一是LayoutColumns FootnoteOptions。 所以下面的代码行编译在Word 2016年ActiveDocument.Range.FootnoteOptions.LayoutColumns但不是在Word 2010中(我不是在Word 2013测试)。 的条件编译语句似乎并没有帮助...有没有什么好说的应用程序版本,除了VBA

    2热度

    1回答

    在VBA (信贷垫的马克杯)在目前已停产SO文档站点阅读有关用户窗体最佳实践后(发布新链接SO文档中不允许)我认为为我的项目中的用户窗体设置Attribute VB_PredeclaredId = False是个好主意。 我想这将提供一种实用的方法来强制每次使用用户表单的新实例的概念,而不是使用默认实例。 对于类模块,可以将VB_PredeclaredID属性设置为True,我期望能够做相反的事情

    0热度

    1回答

    我坚持了一些我无法理解的东西(但我知道它可能很简单)。我尝试一些通用的日常收集典型字对象的属性,如表格,文本框,范围等,这里去的想法: Sub GetWobjectAttributes(ByRef WObject As Object) If TypeOf WObject Is Word.Table Then 'grab table attributes Els

    0热度

    1回答

    我试图使用Excel工作表中的信息自动填充Word文档。我希望用户能够选择所需的excel文件,并希望我的宏从excel文件的不同页面复制特定范围,并将其粘贴到word中的特定区域。到目前为止,我可以打开我选择的excel文件,但不知道如何选择范围并粘贴到特定位置。此外,我正在使用单词VBA做所有这些工作,并且还希望使用单词VBA复制粘贴excel范围。我试图从名为Main的表格复制单元格C25,

    0热度

    1回答

    我刚刚开始在Word 2007(Office XP)中使用VBA,我尝试创建循环以遍历所有工具栏和每个工具栏中包含的所有按钮。 我做了这个代码 Public Sub PasteFromClipboard() Dim i As Long Dim j As Long Dim sCmdBar As CommandBar Dim thisCommandBar A

    0热度

    1回答

    我一直在这几天工作了几天,试图让运行时5487错误消失,但没有任何运气。我将不胜感激任何帮助,我可以得到这一点。出现该错误的一行: ActiveDocument.SaveAs Fullname, fileformat:=wdFormatXMLDocument, AddToRecentFiles:=False. 文件路径名出来为E:\assessment_rubrics\Program Art-

    1热度

    1回答

    我有一个单词文档,其中包含大约1000个表格,每个表格都带有其标题。我希望将这些表分组为100个组(即每个组中有10个表),然后将每个组保存在一个新的word文档中(我保存在桌面上的“newdoc.docx”)。有没有可以帮助我做到这一点的任何VBA代码或宏中的宏?

    0热度

    1回答

    我刚开始使用VBA,使用Word 2010年我想用以下条件来修正表中的缩进:的Tbl.Rows.LeftIndent = 0.74文档中 所有表进行更新,以便Tbl.Rows.LeftIndent = 0. 下面 的代码生成以下错误: "Object variable or With block variable not set." 代码: Sub FixEmbeddedTableIndent()