如何在Word VBA中退出多个subs

在Word VBA中退出多个Subs，可以通过以下几种方式实现：

使用Exit Sub语句：在每个Sub的结尾处添加Exit Sub语句可以立即退出当前的Sub，并返回到调用该Sub的位置。例如：

Sub Sub1()
    ' 代码逻辑
    Exit Sub
End Sub

Sub Sub2()
    ' 代码逻辑
    Exit Sub
End Sub

Sub Main()
    ' 调用Sub1
    Sub1
    
    ' 调用Sub2
    Sub2
End Sub

使用GoTo语句：可以使用标签和GoTo语句来跳转到代码的末尾，从而退出当前的Sub。例如：

Sub Sub1()
    ' 代码逻辑
    GoTo ExitSub
End Sub

Sub Sub2()
    ' 代码逻辑
    GoTo ExitSub
End Sub

Sub Main()
    ' 调用Sub1
    Sub1
    
    ' 调用Sub2
    Sub2
    
ExitSub:
    ' 退出Sub
End Sub

使用函数返回值：将每个Sub改写为函数，并在需要退出的地方返回一个特定的值，然后在调用该函数的地方判断返回值是否需要退出。例如：

Function Sub1() As Boolean
    ' 代码逻辑
    If 需要退出 Then
        Sub1 = True
        Exit Function
    End If
    
    ' 代码逻辑
    
    Sub1 = False
End Function

Function Sub2() As Boolean
    ' 代码逻辑
    If 需要退出 Then
        Sub2 = True
        Exit Function
    End If
    
    ' 代码逻辑
    
    Sub2 = False
End Function

Sub Main()
    ' 调用Sub1
    If Sub1 Then Exit Sub
    
    ' 调用Sub2
    If Sub2 Then Exit Sub
    
    ' 代码逻辑
End Sub

以上是在Word VBA中退出多个Subs的几种方法，根据具体的需求和代码结构选择适合的方式。对于更复杂的情况，可以使用其他控制结构如If语句、Select Case语句等来实现退出逻辑。

如何在Word VBA中退出多个subs

、、

我正在使用VBA。我有一个Word文档，它在打开时启动一个用户表单。用户表单接受来自用户的输入加载(通过文本框、组合框、复选框和列表框)，然后单击用户表单底部的命令按钮。我可以检测到是否有遗漏，并用消息框通知用户，然后退出立即子例程。我不知道如何退出两个子例程。我没有包括实际的代码，因为我希望有人能从概念上给我指出正确的方向，而不是为我写代码。我的当前流程是这样的:单击命令按钮，子例程遍历用户表单中的每个输入字段。对于每个输入字段，它调用另一个子例程从输入字段获取值。该子例程然后调用另一个子例程来更新适当

浏览 27提问于2020-02-27得票数 1

回答已采纳

1回答

源自附加字符串数组的Postgresql中的字符串替换

、、、、

Substitution Tableword subs_listMOUNT VU FOOD USA 注:我知道只有一个替代表是可取的，但这两个子表必须保持不变，因为它们用于比上面解释的更多的用途，这些表已经在使用中。此外，两个表中的替换列表只是一个varchar，其中一个字符串由逗号分隔。考虑到前面的情况，问题是通过替换生成可能的名称

浏览 1提问于2019-11-29得票数 0

回答已采纳

1回答

遍历excel文档以替换word中的单词

、、

一列是要在word文档中查找的单词，第二列是我想用搜索的单词替换的单词。end with在access中，您将在事件

浏览 1提问于2015-07-15得票数 0

回答已采纳

2回答

MS Word格式数据系列线帽类型

、、

我正在使用C#在Microsoft Word中创建图表。我可以通过代码成功地完成大部分格式设置。然而，我仍然需要一些帮助。请看下面的图片。我需要能够通过C#更改线上的盖子类型。有人有什么想法吗？？

浏览 0提问于2012-10-30得票数 1

回答已采纳

1回答

在VB NET中合并保持格式的word文档

、、

我正在写一个程序，它应该合并成一个保持每个文档的格式的几个word文档。False Dim fileDirectory = "C:\<file-path>\MOD-TEST\" Dim docfile As Word.Document 'tmp d

浏览 5提问于2017-03-05得票数 1

2回答

Python -如果元素在列表中，则返回另一个唯一元素

、

(这是Python2.7.10)for x in words: if x in subs:print() # Here, I want to print a different word in subs that is not the same wordbigLsts = [ ["herro", "hewwo", &quo

浏览 1提问于2022-05-02得票数 1

3回答

使用Reduce在拼音中修改字符串中的某些单词

、

总之，有没有一种方法可以使用reduce来修改满足条件的字符串中的每个单词。在本例中，我想在phrase中upcase包含在keywords中的每个word。actual = keywords.reduce('one fish two fish red fish blue fish'){|memo,word| memo.gsub(word,word.upcase

浏览 0提问于2019-02-21得票数 0

1回答

VBA从normal.dotm创建类模块对象

、、、

我为VBA (Word)建立了自己的函数和subs库，并想创建一个新的类模块。但是我不知道如何在其他文件中使用这个新类。

浏览 25提问于2020-11-25得票数 0

回答已采纳

5回答

检查shell变量空值的便携方法

、、

在shell脚本中，测试变量是否为空/未定义的可移植和规范的方法是什么？它应该适用于所有类似sh的外壳。我现在所做的是： ...虽然这些脚本适用于我现在编写的脚本，但我想知道一种方法，它可以在任何兼容的sh-like shell中工作，甚至在比带有GNU和bash或dash的Linux更晦涩的环境中工作。

浏览 2提问于2013-11-05得票数 18

回答已采纳

1回答

如何使用Excel中的for-循环创建多个子程序？

、、

我想用一个相似的名字创建多个潜艇。不幸的是，此代码违反了VBA编码，即Subs不能嵌入到其他Subs中。如何使用Excel中的for-循环创建多个子程序？提前谢谢你。

浏览 3提问于2018-02-22得票数 0

回答已采纳

1回答

回程在VBscript吗？

、

我正在用VBscript编写一个脚本，我需要包括换行或回车。我使用了以下代码：但这在线条之间创造了很大的空间。我认为解释它的最好方法是，当您在Microsoft中键入一行时，如果您按Shift + Enter键，您将得到两个单独的行在一起，而按get将完成完整的回放(我不想这样)。我会在这里演示。非常感谢。

浏览 1提问于2013-12-12得票数 1

回答已采纳

1回答

MS Access VBA -具有相同名称的私有子模块

、、

我有一个数据库，其中有一个‘退出数据库’按钮在每个表单。我有一个‘点击’执行的事件过程，数据库中的每个‘退出数据库’按钮都有相同的子名：Private Sub exitDatabase_Click() 每个子节点包含的退出条件略有不同。我还没有遇到错误，但是我所有的“退出数据库”按钮都有相同的名称会不会导致错误，即使它们都是私有subs并且以不同的形式存在？我不会这样想，因为他们是私人的，但我不确定。

浏览 17提问于2019-01-23得票数 0

回答已采纳

1回答

如何使VBA代码高亮显示为word中的修订？

、、

我的目标是制作一个VBA代码，我可以在多个文档上使用，突出显示我选择的单词，以便我可以查看它们。我有“工作”的代码(即:高亮显示我放在一个txt文件中的所有单词)，但我遇到的问题是，这些高亮显示的更改不受word中轨道修订的影响。如果在启用跟踪修订的情况下执行其他操作(如替换)，word将按预期工作。有没有什么方法可以让高亮显示的变化也以同样的方式被跟踪？Replace:=wdReplaceAllEnd With 目前，无论跟踪修订是打开还是关闭，所

浏览 44提问于2021-01-22得票数 0

2回答

多行的Excel VBA代码

、

我有一个附加HTML标签的VBA。我希望该代码适用于多个行，如J2:J50000Option Explicit Dim newStrng As String endParTag = "</p>" '

浏览 3提问于2016-10-18得票数 0

1回答

使用Word VBA将Excel中的单元格粘贴/复制到书签中

、、、

我正在考虑从Excel插入/粘贴一系列文本数据(40列)到Word中的书签中。大多数答案都是使用Excel完成的，这对于我的用例来说是不实际的，因为我将打开Word文档，添加一个按钮来运行这个“导入数据”宏。实际上，我在文档中已经有了一个按钮，可以将图像插入书签中，这也是我不想通过Excel执行此操作的另一个原因。Selection.GoTo What:=wdGoToBookmark, Name:="Overlay_1" Selection.Past

浏览 0提问于2017-12-09得票数 0

1回答

通过Excel VBA在MS Word中运行连续的subs

我是VBA新手，正在尝试使用content控件将数据从Excel表单导出到MS Word引用到单列表中。我在网上找到了这个vba代码，它让我得到了我想要的东西，但是每次我应用sub时，脚本都会打开和关闭word文档。我希望它们连续运行，直到最后的save命令。你能帮我运行第二个sub，而不用每次都关闭和打开word文档吗？谢谢Dim Dim wD

浏览 0提问于2020-09-12得票数 0

1回答

如何从Google计费5查询不同类型的多个产品？

、、、

我在文档中没有看到任何反对这样做的东西。但是，一旦我尝试使用多个产品类型，我就会收到来自com.android.billingclient.api.QueryProductDetailsParams$Builder.setProductList有没有办法做到这一点，或者我必须打两个单独的电话，一个是subs类型，另一个是inapp类型？其他人是如何在一个页面上显示多个产品类型的呢？QueryProductDetailsParams.Product.newBuilder() .setProductId(

浏览 29提问于2022-11-05得票数 0

1回答