Thay đạn với dấu gạch ngang trong một tài liệu Word

Question

Tôi đang cố gắng để thay thế cho viên đạn của một danh sách trong tài liệu word với dấu gạch ngang, về cơ bản chỉ là "biểu tượng trả lại" được thay thế, tức là

Thay đạn từ bên dưới danh sách:

• đây là một mục danh sách

• đây là một danh sách mục

• chưa một mục

với dấu gạch ngang:

- đây là một mục danh sách

- đây là một danh sách mục

- nhưng mục khác

Tôi sẽ làm điều này bằng cách sử dụng ActiveX trong Delphi, nhưng mã VB cũng sẽ làm, cảm ơn bạn!

Answer 1

Trong Delphi mã:

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; 

hiện nay NẾU đang kiểm tra nếu nó thực sự là một viên đạn • wih một •

Nếu bạn không cần kiểm tra này, bình luận dòng này (nếu ...) và bỏ ghi chú kế tiếp ...

Answer 2

Đây có phải là những gì bạn đang cố gắng không?

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 

SNAPSHOT

Answer 3

Một vĩ mô mà không được công việc ...

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