2016-06-05 2 views
1

Я новичок в использовании элементов управления activex в matlab. Я пытаюсь управлять текстовым документом. Мне нужна помощь в том, как создать список в документе слова. У меня есть запись в макросе. Это то, что я хотел бы сделать из Matlab. Большое спасибо за вашу помощь!Создайте список в Word из matlab с помощью activex

With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1) 
    .NumberFormat = ChrW(61623) 
    .TrailingCharacter = wdTrailingTab 
    .NumberStyle = wdListNumberStyleBullet 
    .NumberPosition = InchesToPoints(0.25) 
    .Alignment = wdListLevelAlignLeft 
    .TextPosition = InchesToPoints(0.5) 
    .TabPosition = wdUndefined 
    .ResetOnHigher = 0 
    .StartAt = 1 
    With .Font 
     .Bold = wdUndefined 
     .Italic = wdUndefined 
     .StrikeThrough = wdUndefined 
     .Subscript = wdUndefined 
     .Superscript = wdUndefined 
     .Shadow = wdUndefined 
     .Outline = wdUndefined 
     .Emboss = wdUndefined 
     .Engrave = wdUndefined 
     .AllCaps = wdUndefined 
     .Hidden = wdUndefined 
     .Underline = wdUndefined 
     .Color = wdUndefined 
     .Size = wdUndefined 
     .Animation = wdUndefined 
     .DoubleStrikeThrough = wdUndefined 
     .Name = "Symbol" 
    End With 
    .LinkedStyle = "" 
End With 
ListGalleries(wdBulletGallery).ListTemplates(1).Name = "" 
Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _ 
    ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _ 
    False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _ 
    wdWord10ListBehavior 
Selection.TypeText Text:="asasasasasasas" 
Selection.TypeParagraph 
Selection.TypeText Text:="asasasasasasas" 
Selection.TypeParagraph 

End Sub

ответ

1

мне удалось найти решение, размещение для тех, кто нуждается

word=actxserver('word.application'); 
word.Visible=true; 
myDoc=word.Documents.Add(); 
listTemp1=myDoc.ActiveWindow.Selection.Range.Application.ListGalleries.Item(2).ListTemplates.Item(1); 
listTemp1.ListLevels.Item(1).NumberStyle=1;  
myDoc.ActiveWindow.Selection.Range.ListFormat.ApplyListTemplate(listTemp1,0,0,2); 
Смежные вопросы