![]() |
|
#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
|
|
|
Similar Threads
|
||||
| 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 |
Formatting is restricted in Word 2007 but not in Word 2010
|
Word2007User | Word | 2 | 01-11-2014 06:33 PM |
Word 2013 vs Word 2010 formatting issue?
|
rhoyt | Word | 1 | 12-07-2013 09:40 AM |
Formatting from PDF to WORD
|
goldfish | Word | 8 | 04-25-2011 04:50 PM |
Word Formatting
|
Peter B. | Word | 5 | 05-10-2006 08:13 AM |