Anonymní profil Marek Sz – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Marek Sz – Programujte.comAnonymní profil Marek Sz – Programujte.com

 

Příspěvky odeslané z IP adresy 62.77.94.–

Marek Sz
Visual Basic › načtení do listbox
3. 9. 2015   #204731

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

Marek Sz
Visual Basic › načtení do listbox nalezenéh…
27. 8. 2015   #204568

#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  

Marek Sz
Visual Basic › Nalezení slova v závorkách
2. 4. 2015   #200971

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

Marek Sz
Visual Basic › Nalezení slova v závorkách
1. 4. 2015   #200936

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ěď.

Marek Sz
Visual Basic › Nalezení slova v závorkách
24. 3. 2015   #200680

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. 

Marek Sz
Visual Basic › Automatické otevření wordu a…
19. 3. 2015   #200452

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

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032021 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý