Microsoft Word szakit keresek

Microsoft Word szakit keresek
2017-09-18T10:08:09+02:00
2017-09-18T12:34:46+02:00
2022-10-19T09:55:35+02:00
  • Nos a teendő:

    Készítettek egy könyvet 1200 jelképpel. Azon
    gondolkodtunk, hogy ebből szeretnénk egy online változatot készíteni. Minden egyes jelkép egy bejegyzés lenne. A szöveg így néz ki:

    Agyag
    (jelkép)

    1.
    Az emberi élet jelképe → Ésaiás (jelkép, ahova hivatkozással
    áttud jutni) és Jeremiás köny vétől kezdve: „Feltámasztám északról, és
    eljött napkelet felől; hirdeti nevemet, és tapodja a fejedelmeket, mint
    az agyagot, és mint a fazekas a sarat tapossa.” (Ésa 41:25). „Jaj
    annak, aki alkotó*jával perbe száll, holott cserép a föld többi
    cserepeivel! Vajon mondja*e az agyag alkotójának: Mit csinálsz? (Ésa
    45:9; vö. Jer 18:4–6.) A szóhasználatot Pál apostol is átveszi: „Avagy
    nincsen*-e a fazekasnak hatalma az agyagon?” (Róm 9:21)

    2.
    → történelmi jelképek között → a tíz vázlatprófécia
    közül az elsőben, → Dániel könyve 2. fejezeté*ben az európai
    államok egyik jelképe: „Hogy pedig vasat elegyülve láttál
    agyagcseréppel: azok emberi mag által vegyülnek össze, de egymással nem
    egyesülnek, minthogy a vas nem egyesül a cseréppel. (Dn 2:43) Lásd még:
    → cserép(edény), → Európa jelképei

    Mivel 1200 jelkép van, ezeknél ezt nem szeretném manuálisan összekötni.



    Tehát az a cél, hogy mondjuk az → Ésaiás-ból
    <a herf="esaias">→ Ésaiás</a> legyen. Tehat a -> utána
    részt ékezet és nagybetűmentesíteni kellen az idéző jeles rész közé.



    Ilyen megoldásokat javasoltak:



    You
    could use a
     wildcard Find/Replace, where:
    Find
    = →(*)>
    Replace
    = <a href=^034\1^034>^&</a>




    Ez majdnem jó volt, csak a href résznél nem tette át az ékezeteket és a
    kis-nagybetűt.



    Jött egy makro megoldás is, de ezzel nem tudom, hogy mit tudok kezdeni.



    Sub Demo()

    Application.ScreenUpdating = False

    Dim i As Long, strTmp As String

    Const strFnd As String = "áéíóőüű"

    Const strRep As String = "aeioouu"

    With ActiveDocument.Range

    With .Find

    .ClearFormatting

    .Replacement.ClearFormatting

    .Text = ChrW(&H2192) & "*>"

    .Replacement.Text = ""

    .Forward = True

    .Wrap = wdFindStop

    .Format = False

    .MatchWildcards = True

    .Execute

    End With

    Do While .Find.Found

    strTmp = LCase(Split(.Text, ChrW(&H2192))(1))

    For i = 1 To Len(strFnd)

    strTmp = Replace(strTmp, Mid(strFnd, i, 1), Mid(strRep, i, 1))

    Next

    .Text = "<a href=" & Chr(34) & strTmp & Chr(34) &
    ">" & ChrW(&H2192) & strTmp & "</a>"

    .Collapse wdCollapseEnd

    .Find.Execute

    Loop

    End With

    Application.ScreenUpdating = True

    End Sub



    A másik terv pedig az lenne, hogy a bibliai hivatkozásoknál nem saját
    adatbázisból keresné ki a hivatkozást, hanem egy meglévő oldal szövegét
    húzná be egy popup layerbe, ami szintén egy html kód lenne (ez még
    nincsen meg).
    Mutasd a teljes hozzászólást!
  • Üdv,
    A kérdés az, hogy ezt csak egyszer kell megcsinálni valahogy vagy pedig valami kód kellene, amely bármikor újra megcsinálja ezt egy megadott pdf fájllal.
    Ha csak egyszer kell "átkonvertálni" pdf-ből HTML-be, akkor a feladat elég egyszerűnek hangzik. Így viszont lehet, hogy nincs is szükség Word-re.
    Küldj egy példa pdf fájlt és egy word fájl vagy html-t amiben leírod, hogy hogyan kellene kinézzen a végeredmény HTML-ben.
    Mutasd a teljes hozzászólást!
  • Sziasztok!

    Van egy pdf fileom, amiben 1200 fogalom van. 
    Ezt szeretnénk HTML formába önteni. Azon gondolkoztunk, hogy Wordben CTRL+H-val lecserélünk dolgokat, de az elején már elég komolyan elakadtunk. 
    Aki mondjuk wordben elég járatos lenne, azzal felvehetném a kapcsolatot? Fizetős projekt lenne, de tanácsokat is szívesen fogadunk, ha pontosan definiálni tudjuk a részleteket. 

    Köszönet!
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd