dotNETportal.cz

' Načtení závad typu Částečně
    
    Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:=""
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Castecne"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.SelectRow
    Selection.Copy
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="11"
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Castecne"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

Následujícím makrem ve Wordu vyberu z tabulky řádky obsahující text "Castecne"... Tento výběr pak přesouvám do listu 11 za vybraný text jako řádek tabulky. Potřeboval bych poradit s cyklem,který by mě vybral všechny "Castecne" z Word tabulky... Muze jich byt az X... Tento vyber pote pripojit k jiz uvedenemu radku na listu...

Dekuji Jiří Kašpar

Nechci "buzerovat",ale používejte VBcode pro zvýraznění syntaxe,nikomu se to pak luštit nechce.Navíc je to tlačítko celkem viditelné vedle těch třech na nastavení fontu,nebo stačí přečíst pokyny pod tímto formulářem na přidání přispěvku.Jinak Vám asi neporadím,Word nemám nainstalován.Dnes se mi sesypal OS.

Cele jsem to jeste upravil nasledovne, ukladani uz mam udelane, automaticky se ta cast tabulky propoji po tom spusteni, ale ten desny cyklus nacist, stacilo by, kdyby probehlo prohledani řx a pak se ukoncilo!!!

' Zavady typu Castecne
    
    Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:=""
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Castecne"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.SelectRow
    Selection.Copy
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="11"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Castecne"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Castecne"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Identifikace neshod typu 2:"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.PasteAndFormat (wdPasteDefault)