2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic
Keresés

Új hozzászólás Aktív témák

  • #3040 gebic csendes tag Zalanius #3039
    Új Válasz #3040
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    gebic

    csendes tag

    válasz Zalanius #3039 üzenetére

    Szia Zalán!

    Igen ez lesz nekem a megoldás. Valóban be kell szúrni egy következő Pararaph-t.

    Most már csak annyi maradt a problémámból, hogy a feladat:
    1. sor szöveg
    2. sor beillesztett kép
    3. sor szöveg.

    Jelenleg ha beszúrom a képet, akkor a margók 1,1 poziciójába teszi be és felülírja az első sort.

    Hogyan tudok úgy beszúrni egy képet, hogy megadom, hogy melyik X,Y koordinátára helyezze el a képet,
    vagyis, a RANGE-en belül hova teyge.

    Köszi: Gábor

  • #3038 gebic csendes tag
    Új Válasz #3038
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    gebic

    csendes tag

    Sziasztok!

    Segítségeteket szeretném kérni.

    Visual Studio 2017 Visual Basic - Microsoft.Office.Interop.Word extension

    Feladat: VB-ből létrehozott Word dokumentumba beírni:

    1 sor tetszőleges szöveg
    2 sor vágólapról bemásolt vonalkód
    3. sor tetszőleges szöveg.

    Eddig a Range.Text értéket írtam, de azt vettem észre, hogy ha az első sor után beillesztem a vágólap tartalmát, akkor felülírja a Range.Text előző értékét.

    Lehet több Range.Text-et kezelni?

    Tudtok esetleg olyan oldalt, ahol ehhez hasonló példákat lehetne találni:

    Private Function wordbeir()
    Dim wa As Microsoft.Office.Interop.Word.Application
    Dim wd As Microsoft.Office.Interop.Word.Document
    Dim wp As Microsoft.Office.Interop.Word.Paragraph


    wa = CreateObject("Word.Application")
    wa.Visible = False

    wd = wa.Documents.Add
    wp = wd.Content.Paragraphs.Add
    wd.PageSetup.LeftMargin = 1
    wd.PageSetup.RightMargin = 1
    wd.PageSetup.TopMargin = 1
    wd.PageSetup.BottomMargin = 1


    wd.PageSetup.PageHeight = 141
    wd.PageSetup.PageWidth = 224
    wp.Range.Text = "This text will be d"


    AxStrokeScribe1.CopyToClipboard(80, 50)
    wp.Range.Text = "Foo" & Chr(10) & Chr(11)

    wd.Range.Next()

    wd.Range.Paste()

    'wd.Range.InlineShapes.AddPicture("c:\cimkezo\vkod.jpg")

    ' itt próbálkoznék azzal, hogy beíllesztek egy külső képfájlt,



    wd.SaveAs("c:\cimkezo\cimke.docx")
    wa.Quit()
    End Function

Új hozzászólás Aktív témák