我想查找项目符号列表的实例,以替换为html标记的列表.请参阅下面的示例:
my_doc.docx
…
text,text,text
My bullet list:
• List point one
• List point two
Some more text here.
…
找到并替换导致
…
text,text,text
My bullet list:
- List point one
- List point two
Some more text here.
…
我试过找到并替换子弹字符;不起作用,因为它的格式.还尝试查找和替换样式为“List bullet”的行以及我能找到的任何其他列表样式;不起作用,(也许是因为我使用Word for Mac似乎有些错误)
编辑:
我有以下VBScript,在我的文档中找到具有子弹样式的行.我现在需要这个脚本来重写它找到的行最后的标签.
Sub FindBullet()
Dim oPara As Word.Paragraph
Dim count As Integer
count = 0
Selection.WholeStory
With Selection
For Each oPara In .Paragraphs
If oPara.Range.ListFormat.ListType = _
WdListType.wdListBullet Then
count = count + 1
# from here down it gets shaky!!!
With ActiveDocument.Range.Find
.Text = #How do i convert the oPara to a string here?!?
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.ClearFormatting
With .replacement
.ClearFormatting
.Text = # how do i specify this is where i want the "
" & oPara & ""End With
.Execute Replace:=wdReplaceAll
End If
Next
End With
'Gives you the count of bullets in a document
MsgBox count & " replacements"
End Sub