我正在尝试用破折号替换word文档中列表的项目符号,基本上只有要替换的“渲染图标”,即
替换以下列表中的项目符号:
这是一个列表项
这是另一个列表项
还有一个项目
用破折号:
— 这是一个列表项
— 这是另一个列表项
——还有一个项目
我将在 Delphi 中使用 ActiveX 来执行此操作,但 VB 代码也可以,谢谢!
这是你正在尝试的吗?
Option Explicit
'~~> Select the relevant range before running this code
Sub Sample()
With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
.NumberFormat = ChrW(61485)
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleBullet
.NumberPosition = InchesToPoints(0.25)
.Alignment = wdListLevelAlignLeft
.TextPosition = InchesToPoints(0.5)
.ResetOnHigher = 0
.StartAt = 1
.Font.Name = "Symbol"
.LinkedStyle = ""
End With
ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
False, ApplyTo:=wdListApplyToSelection, DefaultListBehavior:= _
wdWord10ListBehavior
End Sub
快照
在德尔福代码中:
uses ..., ComObj;
const
wdListNumberStyleBullet = 23;
var
vMSWord : variant;
Doc : Variant;
oListTemplate : Variant;
oListLevel : Variant;
iLoopTemplates, iMaxTemplates: Integer;
iLoopLevels, iMaxLevels : Integer;
begin
try
vMSWord := GetActiveOleObject('Word.Application');
vMSWord.Visible := True;
Doc := vMSWord.ActiveDocument;
iMaxTemplates := Doc.ListTemplates.Count;
for iLoopTemplates := 1 to iMaxTemplates do
begin
oListTemplate := Doc.ListTemplates.Item(iLoopTemplates);
iMaxLevels := oListTemplate.ListLevels.Count;
for iLoopLevels := 1 to iMaxLevels do
begin
oListLevel := oListTemplate.ListLevels.Item(iLoopLevels);
if (oListLevel.NumberStyle = wdListNumberStyleBullet)
and (oListLevel.NumberFormat = UTF8String(#61623))
and (oListLevel.Font.Name = 'Symbol') then
// if (oListLevel.NumberStyle = wdListNumberStyleBullet) then
begin
oListLevel.NumberFormat := UTF8String('-');
oListLevel.Font.Name := 'Arial';
end;
end;
end;
except
ShowMessage('Open a Word document before running this method');
end;
当前的IF正在检查它是否真的是带有 • 的 • 子弹
如果您不需要此检查,请注释此行 ( if... ) 并取消注释下一行...
一个可以完成这项工作的宏......
Dim oListTemplate As ListTemplate
Dim oListLevel As ListLevel
For Each oListTemplate In ActiveDocument.ListTemplates
For Each oListLevel In oListTemplate.ListLevels
If oListLevel.NumberStyle = wdListNumberStyleBullet Then
With oListLevel
.NumberFormat = "-"
.Font.Name = "Arial"
End With
End If
Next oListLevel
Next oListTemplate