Anonymní profil Marek Sz – Programujte.com

Prosím o radu jestli někdo neví přidání do listboxu z paměti počítače

 Selection.Copy (zkopírovaný nějaký text v souboru)

a toto potřebuji dát do Listboxu jde to nějak?

ListBox21.AddItem

nějak se s tím trápím a nemohu na to přijít jak to přiřadit marek

#3 Marek Sz

Prosil bych o radu jak bych mohl uložit do listbox nalezenou chybu a poté ještě změnu ListBox21.AddItem vkládá do listboxu ale jak to napasovat do funkce find 

                           
                        Selection.Find.ClearFormatting
                      Selection.Find.Replacement.ClearFormatting
                 With Selection.Find
                    .Text = "text"
                    .Replacement.Text = "ale"
                    .MatchWildcards = True
                 End With
      
Selection.Find.Execute Replace:=wdReplaceAll
      

potřeboval bych výsledek aby to načetlo slovo "text" a také uložilo do listboxu 

a následně aby to opravilo na "ale" a uložilo do list boxu. V dokumentu může být mnoho takový výskytu děkuji za pomoc  

děkuji za odpověď budu to zkoušet musím si to celé podrobně rozebrat co na co je 

jen jsem se chtěl zeptat 

Option Explicit - na co to je, děkuji

pak dám vědět jak jsem dopadl

Děkuji za odpověď právě to zkouším ale nemůžu to rozchodit možná že jsem to nenapsal do úvodu jedná se mě o word 2013 tam je taky VB ale teď vlastně přemýšlím jestli to bude chodit i ve wordu? protože jste psal VB6. Nebo to je přímo jen pro Visual Basic 6 děkuji za odpověď.

Může mi někdo poradit jak zadat do počítače abych vyhledal text v závorkách příklad [Určitě to pomůže] potřeboval bych najít "to" děkuji za radu  [[](*)[]] takto najdu celé závorky s textem ale jen konkrétní text je problém. 

Potřeboval bych poradit mám cca 200 souborů s příponou .doc v jedném adresáři a potřeboval bych macro na to aby mě to automaticky otevřelo soubor a zaplo druhé macro které pozmění něco ve wordu a následně uložilo a tak by to pokračovalo do konce složky. používám word 2013

zkoušel jsem toto:

Private Sub Document_Open()

Selection.Find.ClearFormatting
    With Selection.Find.Font
        .Superscript = True
        .Subscript = False
    End With
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Superscript = False
        .Subscript = False
    End With
    With Selection.Find
        .Text = "^t"
        .Replacement.Text = "^t"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

ActiveDocument.Save
ActiveDocument.Close

End Sub

jenže to nefunguje když otevřu najednou 50 souborů je problém s ukládáním vždy se to kousne myslím že to otevře víc souborů najednou a pak neví co zavírat.

také jsem to zkoušel z exelu že bych to spustil a ono by mě to krásně celou složku otevřelo, změnilo a  zavřelo

viz

Private Sub CommandButton9_Click()

ChDrive "F"

adresar = "F:\Marek aktualizace"
ChDir adresar
SouboryKtere = Dir("*.*")
ListBox1.Clear
Do While SouboryKtere <> ""
    ListBox1.AddItem SouboryKtere
    SouboryKtere = Dir

'Dim wdApp As Object
    Dim wdDoc As Object
    Set wdApp = CreateObject("Word.application")
    
    Set wdDoc = wdApp.Documents.Open _
    (Filename:=adresar & "\" & SouboryKtere)

' put your code here for working with Word
' This is Word VBA code, not Excel code

Selection.Find.ClearFormatting
    With Selection.Find.Font
        .Superscript = True
        .Subscript = False
    End With
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Superscript = False
        .Subscript = False
    End With
    With Selection.Find
        .Text = "^t"
        .Replacement.Text = "^t"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    wdDoc.Close savechanges:=True
    Set wdDoc = Nothing
    wdApp.Quit
    Set wdApp = Nothing

Loop
End Sub

ale tady je problém s otevíráním souborů ve wordu děkuji za pomoc