主页
/
user-1311806
wordexperto.com's questions
wordexperto.com
Asked:
2022-02-25 23:36:53 +0800 CST
wordexperto.com
Asked:
2021-11-06 09:14:31 +0800 CST
我有一个宏来创建自定义列表。该列表是女性的西班牙序数。这是代码:
Sub ListaFemenino ()
Dim arrNumbers As Variant
Dim i As Long
Dim rng As Range
arrNumbers = Split ("Primera Segunda Tercera Cuarta Quinta Sexta Séptima Octava Novena")
Set rng = Selection.Range
For i = 1 To rng.Paragraphs.Count
With rng.Paragraphs (i) .Range
.Text = arrNumbers (i - 1) & vbTab & .FormattedText
.ParagraphFormat.TabHangingIndent 2
End With
Next i
Exit Sub
End Sub
如果可能的话,我需要你给我一个选项,每次我想在同一个文档中应用它以继续列表或从 1 重新启动它,在这种情况下是Primera 。
实际上,我需要它为我提供继续编号的选项,因为从 1 重新启动它就是它的作用。
wordexperto.com
Asked:
2021-07-22 23:45:32 +0800 CST
wordexperto.com
Asked:
2021-06-28 22:07:00 +0800 CST
wordexperto.com
Asked:
2021-05-17 02:03:18 +0800 CST
wordexperto.com
Asked:
2021-04-21 09:01:47 +0800 CST
大家好,对不起我的英语:我有这个添加样式分隔符的宏,它工作正常,除了它在段落前面添加了一个空格。我如何修改宏以使其不添加它,或者如果它确实添加了它,它稍后会删除它?
Sub SeparadordeEstilos()
With Selection
.InsertBefore vbCr
.InsertStyleSeparator
.Paragraphs(1).Range.Font.Reset
.Paragraphs(1).Style = ("PLL Nivel 2 notdc")
End With
End Sub
编辑:
也非常感谢你,Charles,我很抱歉没有解释所有细节。我需要在大纲多级列表中具有相同编号的两种类型的段落。一些具有粗体字体样式并出现在目录中,而另一些则具有未出现在 TOC 中的普通字体。因此,我创建了两种样式,带粗体的PLL Nivel 2出现在 TOC 和PLL Nivel 2 notdc中,没有粗体,没有出现在 TOC 中,在执行我描述的宏时自动应用样式分隔符问题。这是我发现的唯一解决方案,特别是因为连续编号的要求。
除了空白之外,一切正常。这个空白在文档中很糟糕,它没有给人一种专业的感觉,相反,它给人一种邋遢的感觉。
因此我需要一个替代方案或能够删除空白。
这是一个有问题的示例文档。我认为连续编号可以正常工作,因为我在启用全部显示的情况下看到它,但是如果我将其关闭(全部显示),它也不起作用并设置不同的编号。
编辑 2