Nummerierung fortsetzen

  • Word

    Nummerierung fortsetzen

    Hallo liebe Community,

    ich habe ein Problem mit der Nummerierung in einer Word Datei. Die Word Datei wird aus mehreren Dateien zusammengebaut und dabei geht mir leider die Nummerierung in einem Kapitel kaputt.
    Die sieht dann so aus.

    1
    1.1
    1.2
    1.3
    2
    2.1
    1.1
    1.2
    1.3
    1.4
    3
    4

    Die hier fett markierten Kapitel werden aus einem anderen Dokument eingefügt. Wenn ich nun auf das Kapitel 2.1 klicke und den Befehl "Nummerierung fortsetzen" aus dem Kontextmenü auswähle, wird die Nummerierung korrekt fortgesetzt.
    Das ganze soll aber über das Makro automatisch geschehen.
    Ich habe bereits versucht über den Makro Rekorder das Problem zu lösen. Allerdings ohne Erfolg. Sogar beim aufzeichnen des Makros scheitert er schon und es passiert nichts. Dennoch poste ich hier einmal die Aufzeichnung.

    Visual Basic-Quellcode

    1. With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(1)
    2. .NumberFormat = "%1"
    3. .TrailingCharacter = wdTrailingSpace
    4. .NumberStyle = wdListNumberStyleArabic
    5. .NumberPosition = CentimetersToPoints(0)
    6. .Alignment = wdListLevelAlignLeft
    7. .TextPosition = CentimetersToPoints(0.76)
    8. .TabPosition = wdUndefined
    9. .ResetOnHigher = 0
    10. .StartAt = 1
    11. With .Font
    12. .Bold = True
    13. .Italic = False
    14. .StrikeThrough = wdUndefined
    15. .Subscript = wdUndefined
    16. .Superscript = wdUndefined
    17. .Shadow = wdUndefined
    18. .Outline = wdUndefined
    19. .Emboss = wdUndefined
    20. .Engrave = wdUndefined
    21. .AllCaps = wdUndefined
    22. .Hidden = wdUndefined
    23. .Underline = wdUndefined
    24. .Color = wdUndefined
    25. .Size = 16
    26. .Animation = wdUndefined
    27. .DoubleStrikeThrough = wdUndefined
    28. .Name = "Arial"
    29. End With
    30. .LinkedStyle = "Überschrift 1"
    31. End With
    32. With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(2)
    33. .NumberFormat = "%1.%2"
    34. .TrailingCharacter = wdTrailingSpace
    35. .NumberStyle = wdListNumberStyleArabic
    36. .NumberPosition = CentimetersToPoints(0)
    37. .Alignment = wdListLevelAlignLeft
    38. .TextPosition = CentimetersToPoints(1.02)
    39. .TabPosition = wdUndefined
    40. .ResetOnHigher = 1
    41. .StartAt = 1
    42. With .Font
    43. .Bold = True
    44. .Italic = False
    45. .StrikeThrough = False
    46. .Subscript = False
    47. .Superscript = False
    48. .Shadow = False
    49. .Outline = False
    50. .Emboss = False
    51. .Engrave = False
    52. .AllCaps = False
    53. .Hidden = False
    54. .Underline = wdUnderlineNone
    55. .Color = wdUndefined
    56. .Size = wdUndefined
    57. .Animation = wdAnimationNone
    58. .DoubleStrikeThrough = False
    59. .Name = ""
    60. End With
    61. .LinkedStyle = "Überschrift 2"
    62. End With
    63. With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(3)
    64. .NumberFormat = "%1.%2.%3"
    65. .TrailingCharacter = wdTrailingSpace
    66. .NumberStyle = wdListNumberStyleArabic
    67. .NumberPosition = CentimetersToPoints(1)
    68. .Alignment = wdListLevelAlignLeft
    69. .TextPosition = CentimetersToPoints(2.27)
    70. .TabPosition = wdUndefined
    71. .ResetOnHigher = 2
    72. .StartAt = 1
    73. With .Font
    74. .Bold = wdUndefined
    75. .Italic = wdUndefined
    76. .StrikeThrough = wdUndefined
    77. .Subscript = wdUndefined
    78. .Superscript = wdUndefined
    79. .Shadow = wdUndefined
    80. .Outline = wdUndefined
    81. .Emboss = wdUndefined
    82. .Engrave = wdUndefined
    83. .AllCaps = wdUndefined
    84. .Hidden = wdUndefined
    85. .Underline = wdUndefined
    86. .Color = wdUndefined
    87. .Size = wdUndefined
    88. .Animation = wdUndefined
    89. .DoubleStrikeThrough = wdUndefined
    90. .Name = ""
    91. End With
    92. .LinkedStyle = "Überschrift 3"
    93. End With
    94. With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(4)
    95. .NumberFormat = "%1.%2.%3.%4"
    96. .TrailingCharacter = wdTrailingSpace
    97. .NumberStyle = wdListNumberStyleArabic
    98. .NumberPosition = CentimetersToPoints(0)
    99. .Alignment = wdListLevelAlignLeft
    100. .TextPosition = CentimetersToPoints(1.52)
    101. .TabPosition = wdUndefined
    102. .ResetOnHigher = 3
    103. .StartAt = 1
    104. With .Font
    105. .Bold = wdUndefined
    106. .Italic = wdUndefined
    107. .StrikeThrough = wdUndefined
    108. .Subscript = wdUndefined
    109. .Superscript = wdUndefined
    110. .Shadow = wdUndefined
    111. .Outline = wdUndefined
    112. .Emboss = wdUndefined
    113. .Engrave = wdUndefined
    114. .AllCaps = wdUndefined
    115. .Hidden = wdUndefined
    116. .Underline = wdUndefined
    117. .Color = wdUndefined
    118. .Size = wdUndefined
    119. .Animation = wdUndefined
    120. .DoubleStrikeThrough = wdUndefined
    121. .Name = ""
    122. End With
    123. .LinkedStyle = "Überschrift 4"
    124. End With
    125. With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(5)
    126. .NumberFormat = "%1.%2.%3.%4.%5"
    127. .TrailingCharacter = wdTrailingTab
    128. .NumberStyle = wdListNumberStyleArabic
    129. .NumberPosition = CentimetersToPoints(0)
    130. .Alignment = wdListLevelAlignLeft
    131. .TextPosition = CentimetersToPoints(1.78)
    132. .TabPosition = CentimetersToPoints(1.78)
    133. .ResetOnHigher = 4
    134. .StartAt = 1
    135. With .Font
    136. .Bold = wdUndefined
    137. .Italic = wdUndefined
    138. .StrikeThrough = wdUndefined
    139. .Subscript = wdUndefined
    140. .Superscript = wdUndefined
    141. .Shadow = wdUndefined
    142. .Outline = wdUndefined
    143. .Emboss = wdUndefined
    144. .Engrave = wdUndefined
    145. .AllCaps = wdUndefined
    146. .Hidden = wdUndefined
    147. .Underline = wdUndefined
    148. .Color = wdUndefined
    149. .Size = wdUndefined
    150. .Animation = wdUndefined
    151. .DoubleStrikeThrough = wdUndefined
    152. .Name = ""
    153. End With
    154. .LinkedStyle = "Überschrift 5"
    155. End With
    156. With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(6)
    157. .NumberFormat = "%1.%2.%3.%4.%5.%6"
    158. .TrailingCharacter = wdTrailingTab
    159. .NumberStyle = wdListNumberStyleArabic
    160. .NumberPosition = CentimetersToPoints(0)
    161. .Alignment = wdListLevelAlignLeft
    162. .TextPosition = CentimetersToPoints(2.03)
    163. .TabPosition = CentimetersToPoints(2.03)
    164. .ResetOnHigher = 5
    165. .StartAt = 1
    166. With .Font
    167. .Bold = wdUndefined
    168. .Italic = wdUndefined
    169. .StrikeThrough = wdUndefined
    170. .Subscript = wdUndefined
    171. .Superscript = wdUndefined
    172. .Shadow = wdUndefined
    173. .Outline = wdUndefined
    174. .Emboss = wdUndefined
    175. .Engrave = wdUndefined
    176. .AllCaps = wdUndefined
    177. .Hidden = wdUndefined
    178. .Underline = wdUndefined
    179. .Color = wdUndefined
    180. .Size = wdUndefined
    181. .Animation = wdUndefined
    182. .DoubleStrikeThrough = wdUndefined
    183. .Name = ""
    184. End With
    185. .LinkedStyle = "Überschrift 6"
    186. End With
    187. With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(7)
    188. .NumberFormat = "%1.%2.%3.%4.%5.%6.%7"
    189. .TrailingCharacter = wdTrailingTab
    190. .NumberStyle = wdListNumberStyleArabic
    191. .NumberPosition = CentimetersToPoints(0)
    192. .Alignment = wdListLevelAlignLeft
    193. .TextPosition = CentimetersToPoints(2.29)
    194. .TabPosition = CentimetersToPoints(2.29)
    195. .ResetOnHigher = 6
    196. .StartAt = 1
    197. With .Font
    198. .Bold = wdUndefined
    199. .Italic = wdUndefined
    200. .StrikeThrough = wdUndefined
    201. .Subscript = wdUndefined
    202. .Superscript = wdUndefined
    203. .Shadow = wdUndefined
    204. .Outline = wdUndefined
    205. .Emboss = wdUndefined
    206. .Engrave = wdUndefined
    207. .AllCaps = wdUndefined
    208. .Hidden = wdUndefined
    209. .Underline = wdUndefined
    210. .Color = wdUndefined
    211. .Size = wdUndefined
    212. .Animation = wdUndefined
    213. .DoubleStrikeThrough = wdUndefined
    214. .Name = ""
    215. End With
    216. .LinkedStyle = "Überschrift 7"
    217. End With
    218. With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(8)
    219. .NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8"
    220. .TrailingCharacter = wdTrailingTab
    221. .NumberStyle = wdListNumberStyleArabic
    222. .NumberPosition = CentimetersToPoints(0)
    223. .Alignment = wdListLevelAlignLeft
    224. .TextPosition = CentimetersToPoints(2.54)
    225. .TabPosition = CentimetersToPoints(2.54)
    226. .ResetOnHigher = 7
    227. .StartAt = 1
    228. With .Font
    229. .Bold = wdUndefined
    230. .Italic = wdUndefined
    231. .StrikeThrough = wdUndefined
    232. .Subscript = wdUndefined
    233. .Superscript = wdUndefined
    234. .Shadow = wdUndefined
    235. .Outline = wdUndefined
    236. .Emboss = wdUndefined
    237. .Engrave = wdUndefined
    238. .AllCaps = wdUndefined
    239. .Hidden = wdUndefined
    240. .Underline = wdUndefined
    241. .Color = wdUndefined
    242. .Size = wdUndefined
    243. .Animation = wdUndefined
    244. .DoubleStrikeThrough = wdUndefined
    245. .Name = ""
    246. End With
    247. .LinkedStyle = "Überschrift 8"
    248. End With
    249. With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(9)
    250. .NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8.%9"
    251. .TrailingCharacter = wdTrailingTab
    252. .NumberStyle = wdListNumberStyleArabic
    253. .NumberPosition = CentimetersToPoints(0)
    254. .Alignment = wdListLevelAlignLeft
    255. .TextPosition = CentimetersToPoints(2.79)
    256. .TabPosition = CentimetersToPoints(2.79)
    257. .ResetOnHigher = 8
    258. .StartAt = 1
    259. With .Font
    260. .Bold = wdUndefined
    261. .Italic = wdUndefined
    262. .StrikeThrough = wdUndefined
    263. .Subscript = wdUndefined
    264. .Superscript = wdUndefined
    265. .Shadow = wdUndefined
    266. .Outline = wdUndefined
    267. .Emboss = wdUndefined
    268. .Engrave = wdUndefined
    269. .AllCaps = wdUndefined
    270. .Hidden = wdUndefined
    271. .Underline = wdUndefined
    272. .Color = wdUndefined
    273. .Size = wdUndefined
    274. .Animation = wdUndefined
    275. .DoubleStrikeThrough = wdUndefined
    276. .Name = ""
    277. End With
    278. .LinkedStyle = "Überschrift 9"
    279. End With
    280. ListGalleries(wdOutlineNumberGallery).ListTemplates(7).Name = ""
    281. Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
    282. ListGalleries(wdOutlineNumberGallery).ListTemplates(7), _
    283. ContinuePreviousList:=True, ApplyTo:=wdListApplyToWholeList, _
    284. DefaultListBehavior:=wdWord10ListBehavior


    Ich hoffe mir kann jemand helfen, dass Problem zu lösen.
    Ich verwende Word 2010 Version 14.0.6129.5000 (32 Bit)

    Mit freundlichen Grüßen
    KronSii

Facebook
Telefonspende