Automatické otevření wordu a spuštění macra, uložení a zavření – Visual Basic – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Automatické otevření wordu a spuštění macra, uložení a zavření – Visual Basic – Fórum – Programujte.comAutomatické otevření wordu a spuštění macra, uložení a zavření – Visual Basic – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
Marek Sz
~ Anonymní uživatel
13 příspěvků
19. 3. 2015   #1
-
0
-

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

Nahlásit jako SPAM
IP: 62.77.94.–
Reklama
Reklama
Marek Sz
~ Anonymní uživatel
13 příspěvků
26. 3. 2015   #2
-
0
-

#1 Marek Sz
už jsem na to přišel možná to někomu pomůže :)

Private Sub CommandButton21_Click()
Dim SouboryKtere As String

ChDrive "E"
adresar = "E:\Marek aktualizace"
ChDir adresar
SouboryKtere = Dir("*.doc")
ListBox21.Clear
Do While SouboryKtere <> ""
'otevře soubor

Documents.Open FileName:=adresar & "\" & SouboryKtere 'kontrola spuštění wordu

'zpracuje macro

'zde vložit macro jaké chcete provést v souborech

'provedeno macro

   ActiveDocument.Save    'uloží doubor
   ActiveDocument.Close 'zavře soubor

  
    ListBox21.AddItem SouboryKtere
    SouboryKtere = Dir

Loop
End Sub

Nahlásit jako SPAM
IP: 213.29.16.–
Marek Sz
~ Anonymní uživatel
13 příspěvků
20. 8. 2015   #3
-
0
-

#2 Marek Sz

Nevím z jakého důvodu mi to přestalo pracovat ale možná že tam chybí nějaké to

 If SouboryKtere = Konec Then Exit Do 

Dělá mi to že se mě to nezastaví funguje mi to dobře ale když to přijde na konec tak se mě to nezastaví a pokračuje znova nevím několikrát jsem to zkoušel a fungovalo to dobře zastavilo se to na konci ale teď to pořád jede a nezastaví jestli by někdo věděl proč se to nezastaví? 

Nahlásit jako SPAM
IP: 89.248.244.–
Marek Sz
~ Anonymní uživatel
13 příspěvků
25. 8. 2015   #4
-
0
-

#3 Marek Sz
už jsem na to přišel souborů musí být cca min 10 když jsou dva tak to zlobí a nezastaví se to 

Nahlásit jako SPAM
IP: 213.29.16.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 13 hostů

Moderátoři diskuze

 

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