Microsoft Word中的編號列表

Question

我正在使用Interop.Microsoft.Office.Interop.Word.dll在C＃中動態構建Word文檔。

有沒有人有代碼示例來創建一個編號列表？

Answer 1

試試這個...它假設你有一個對Word10的引用（你可以使用其他版本，你將不得不改變常量）。別忘了using Microsoft.Office.Interop.Word;

// setup 
object missing = System.Reflection.Missing.Value; 
ApplicationClass app = new ApplicationClass(); 
Document doc = app.Documents.Add(ref missing, ref missing, 
    ref missing, ref missing); 
app.Visible = true; 

// whatever is selected will be turned into a numbered list. 
object n = 1; 
ListTemplate template = 
    app.ListGalleries[WdListGalleryType.wdNumberGallery].ListTemplates.get_Item(ref n); 
ListLevel level = template.ListLevels[1]; 
level.NumberFormat = "%1."; 
level.TrailingCharacter = WdTrailingCharacter.wdTrailingTab; 
level.NumberStyle = WdListNumberStyle.wdListNumberStyleArabic; 
level.NumberPosition = app.InchesToPoints(0.25f); 
level.Alignment = WdListLevelAlignment.wdListLevelAlignLeft; 
level.TextPosition = app.InchesToPoints(0.5f); 
level.TabPosition = (float)WdConstants.wdUndefined; 
level.ResetOnHigher = 0; 
level.StartAt = 1; 

level.Font.Bold = (int)WdConstants.wdUndefined; 
level.Font.Italic = (int)WdConstants.wdUndefined; 
level.Font.StrikeThrough = (int)WdConstants.wdUndefined; 
level.Font.Subscript = (int)WdConstants.wdUndefined; 
level.Font.Superscript = (int)WdConstants.wdUndefined; 
level.Font.Shadow = (int)WdConstants.wdUndefined; 
level.Font.Outline = (int)WdConstants.wdUndefined; 
level.Font.Emboss = (int)WdConstants.wdUndefined; 
level.Font.Engrave = (int)WdConstants.wdUndefined; 
level.Font.AllCaps = (int)WdConstants.wdUndefined; 
level.Font.Hidden = (int)WdConstants.wdUndefined; 
level.Font.Underline = WdUnderline.wdUnderlineNone; 
level.Font.Color = WdColor.wdColorAutomatic; 
level.Font.Size = (int)WdConstants.wdUndefined; 
level.Font.Animation = WdAnimation.wdAnimationNone; 
level.Font.DoubleStrikeThrough = (int)WdConstants.wdUndefined; 

level.LinkedStyle = ""; 

template.Name = ""; 
object bContinuePrevList = false; 
object applyTo = WdListApplyTo.wdListApplyToWholeList; 
object defBehavior = WdDefaultListBehavior.wdWord10ListBehavior; 

app.Selection.Range.ListFormat.ApplyListTemplateWithLevel(
    template, ref bContinuePrevList, 
    ref applyTo, ref defBehavior, ref missing); 

edit：formatting。