• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

zabudol som prilohu

tak na ziskanie obrazkov by som pouzil

For Each pic In WordDoc.inlineshapes
pic.Range.Copy
Range("A1").PasteSpecial
Next

len treba ten object definovat

zmazat a odstranit cely riadok su dve rozlisne veci

keby ste ho zmazali tak vam to nezmeni formulu ale ked ho odstranite tak to zmeni range

no ono to nikde nezapisuje
len to do debug modu dava vystup kazdej strany

For Each para In WordDoc.Paragraphs
Debug.Print para.Range.Text
Next
pre kazdu stranu vypis text do Debug.Print

staci si to zmenit na cells(1,1) = cells(1,1) + para.Range.Text

ale samozrejme cells ma maximalny pocet znakov takze bacha nato

tak tu som vytvoril nieco jednoduche:

- samozrejme ze toto bere len text :)

Sub test()
Dim WordApp As Object
Dim WordDoc As Object

Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(ActiveWorkbook.Path & "\test.docx")
WordApp.Visible = True

For Each para In WordDoc.Paragraphs
Debug.Print para.Range.Text
Next

WordDoc.Close
WordApp.Quit
End Sub

priloha:

nikomu sa toto nechce? :)

tak len zopar otazok a skusim nieco sem hodit

jedna sa len o text??
lebo word obsahuje aj obrazky tabulky grafy atd. atd.
potom textboxy kde je text

ono to nieje len tak jednoduche dostat word do excelu

s tymito vsetkymi objectami sa musia zadefinovat a potom sa da nejak to dostat do excelu

tomuto hovorim priloha ako ma byt :))))

cez timer kazdu 1s to refreshuje

ked sa posnazis je tu aj tetris, hadik a aj sietove sachy

ja uz to vzdavam netusim ... a z pouziteho kodu ked viete programovat si to mozete upravit podla seba

pokus cislo 4 :)

skuste toto:

- ale je to dost chaoticke riesenie
- neodporucam toto pouzivat v databazach

ale vy to potrebujete len na tvorbu mien ked sa nemylim?

tu som to prerobil

- prerobil som naplnanie comboboxov pri inicializovani userformu
- dorobil som tam pri zmene udaju v comboboxe aby si zapamatalo na akom riadku je
- pri stlaceni cuplika "ulož provedené zmeny" podla posledneho zakliknuteho itemu v comboboxe zmeni udaj v database + refreshne combobox

co ste napisali do toho tlacitka na zmenu nazvu??

idealne by bol cely priklad tu vhodit

tu je makro pre osemsmerovku ale len pre taku kde sa meni len vyska a sirka

- nieje urcena pre take kde ma iny tvar aj ked taka by nebola problem do tohoto prikladu dorobit (staci nastavit range tabulky)
- dalej nevie porovnavat CH, DZ ... resp. kde su v jednej bunke dva znaky

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje