- Samsung Galaxy A56 - megbízható középszerűség
- Apple iPhone 17 Pro Max – fennsík
- iPhone topik
- Ha Kínában repülsz, és nem ilyen a hordozható töltőd, elveszik a reptéren!
- Samsung Galaxy Watch7 - kötelező kör
- Yettel topik
- Mobil flották
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Honor Magic6 Pro - kör közepén számok
Új hozzászólás Aktív témák
-
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
- Kerékpárosok, bringások ide!
- Kertészet, mezőgazdaság topik
- Kompakt vízhűtés
- Debrecen és környéke adok-veszek-beszélgetek
- League of Legends
- Villanyszerelés
- E-roller topik
- Xbox tulajok OFF topicja
- A fociról könnyedén, egy baráti társaságban
- Samsung Galaxy A56 - megbízható középszerűség
- További aktív témák...
- Apple iPhone 15 Pro, 128Gb, független, fekete, 1 év garancia
- AMD Ryzen 5 5600X 6-Core 3.7GHz AM4
- Bomba ár! HP ProBook 430 G3 - i3-6GEN I 4GB I 128SSD I HDMI I 13,3" HD I Cam I W10 I Garancia!
- Bomba ár! HP ProBook 430 G5 - i3-7GEN I 4GB I 128GB SSD I HDMI I 13,3" FHD I Cam I W11 I Garancia!
- Bomba ár! HP EliteBook 845 G11 - Ryzen 5 8540U I 16GB I 512SSD I 14,1" Touch I Cam I W11 I NBD Gari!
- Bomba ár! Lenovo ThinkPad L490 - i5-G8 I 16GB I 256SSD I 14" FHD Touch I HDMI I Cam I W11 I Gari!
- REFURBISHED és ÚJ - Lenovo ThinkPad 40AS USB-C Dock Gen2 (akár 3x4K felbontás)
- 8Gb DDR3L 1,35V 12800u 1600Mhz RAM-ok, több db
- 142 - Lenovo LOQ (15IAX9) - Intel Core i5 i5-12450HX, RTX 4060 (ELKELT)
- Fractal Design Gamer PC - Intel i5-9600k 16GB 1000GB RTX 2060 1 év garancia!
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest