Word – je možný výběr určité části dokumentu dle zadaných pravidel?

Public Function customFormat(ByRef sString As String) As String

customFormat = Right("0000" & sString, 4 + Len(sString) - Len(CStr(Val(sString))))

End Function

Public Function FindAll()

Dim c As Range

Dim StartWord As String, EndWord As String

Dim Counter As Integer

Dim StartString As String

Dim TempString As String

Dim objWord

Dim objDoc

Dim objSelection

Set objWord = CreateObject("Word.Application")

Counter = 0

While Counter < 50 'upravit si počet na poslední hodnutu vyhledávání

StartString = customFormat(CStr(Counter))

StartWord = StartString: EndWord = "M30"

Set c = ActiveDocument.Content

c.Find.ClearFormatting

c.Find.Replacement.ClearFormatting

With c.Find

.Text = StartWord & "*" & EndWord

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindStop

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = True

.MatchSoundsLike = False

.MatchAllWordForms = False '

End With

c.Find.Execute

While c.Find.Found

Set objDoc = objWord.Documents.Add

objWord.Visible = True

Set objSelection = objWord.Selection

objSelection.TypeText (c.Text)

objDoc.SaveAs ("E:Slozka" + StartString + ".doc") ' složka kam se soubory ukládají

objDoc.Close

c.Find.Execute

Wend

Counter = Counter + 1

Wend

objWord.Quit

End Function