![]() |
#7
|
|||
|
|||
![]()
thank you for your code.
the code i posted is just a part of my whole code. my code is as almost finished and works fine for the tables. its just the problem with formatting. your code works fine until this point: Code:
Do While .Find.Found .Text = "<strong>" & .Text & "</strong>" .Font.Bold = False .Collapse wdCollapseEnd .Find.Execute Loop at one point i set a range with this code Code:
Do Until Selection.Style Like "Überschrift*" = True Selection.MoveDown Unit:=wdParagraph, count:=1 Loop ende = Selection.End Set bereich = ActiveDocument.Range(anfang, ende) Code:
For Each wdCell In ActiveDocument.Tables(ThisTableNumber + 1).Range.Cells Set Rng1 = wdCell.Range Rng1.End = Rng1.End - 1 If Rng1.ListFormat.ListType = 3 Then If Steps = False Then TestcaseString = TestcaseString & "<steps>" & vbCrLf Steps = True End If Set Rng2 = wdCell.Next.Range |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Formatting contents after Tab of continuous lines or formatting specific area of word | pawii | Word | 1 | 05-12-2014 05:24 AM |
![]() |
Word2007User | Word | 2 | 01-11-2014 06:33 PM |
![]() |
rhoyt | Word | 1 | 12-07-2013 09:40 AM |
![]() |
goldfish | Word | 8 | 04-25-2011 04:50 PM |
Word Formatting | Peter B. | Word | 5 | 05-10-2006 08:13 AM |