ListTemplates(7).ListLevels(1).NumberFormat = ChrW(61692) ListTemplates(7).ListLevels(1).Font.Name = "Wingdings" ListTemplates(6).ListLevels(1).NumberFormat = ChrW(61656) ListTemplates(6).ListLevels(1).Font.Name = "Wingdings" ListTemplates(5).ListLevels(1).NumberFormat = ChrW(61558)
ListTemplates(5).ListLevels(1).Font.Name = "Wingdings" '.ListTemplates(4).ListLevels(1).ApplyPictureBullet FileName:= ListTemplates(4).ListLevels(1).ApplyPictureBullet FileName:=DefaultPictureBullet ListTemplates(3).ListLevels(1).NumberFormat = ChrW(61607) ListTemplates(3).ListLevels(1).Font.Name = "Wingdings" ListTemplates(2).ListLevels(1).NumberFormat = "o" ListTemplates(2).ListLevels(1).Font.Name = "Courier New" ListTemplates(1).ListLevels(1).NumberStyle = wdListNumberStyle.wdListNumberStyleBullet ListTemplates(1).ListLevels(1).NumberFormat = ChrW(61623) ListTemplates(1).ListLevels(1).Font.Name = "Symbol" This type of bullet only has Listlevel(1) With Application.ListGalleries( wdListGalleryType.wdBulletGallery) If Application.ListGalleries( wdListGalleryType.wdBulletGallery).Modified(1) = True ThenĪpplication.ListGalleries( wdListGalleryType.wdBulletGallery).Reset 1Īpplication.ListGalleries( wdListGalleryType.wdBulletGallery).Reset 7 Application.ListGalleries( wdListGalleryType.wdBulletGallery).ListTemplatesĪpplication.ListGalleries( wdListGalleryType.wdNumberGallery).ListTemplatesĪpplication.ListGalleries( wdListGalleryType.wdOutlineNumberGallery).ListTemplatesĪt the document (or template) level there can be any number of different list templates. ListGalleries are saved at both the application level and at the document level.Īt the application level there can be only 7 different list templates for each of the 3 tabs. WdOutlineNumberGallery - Multi-Level Numbering are three types of list galleries in Word: If otbl.Cell(iRow, iCol). Thenįor L = 1 To otbl.Cell(iRow, iCol).CountĬall fixTR2(otbl.Cell(iRow, iCol).(L))įor L = 1 To .CountĬall fixTR2((L)) Color.RGB = RGB(255, 192, 0) ' RGB for template yellow colour bullets Color.RGB = RGB(95, 151, 250) ' RGB for blue color
If (iRow, iCol). Then ' Instead if text has bullets associate with it then execute below code.
But this is for word.įor Each osld In ActivePresentation.Slides But, I want this to identify bullets and change them if they are not of square shape and blue color.
How can we find bullet points present in slides? Following is the code that inserts bullets of desired color, shape before all the text present in slides(even before text/paragraph that doesn't have bullets).
0 kommentar(er)
