[syntax=vbscript]Sub ZaznaczDalej() a = Selection f = False If Len(a) > 0 Then If Left(a, 1) = "{" And Right(a, 1) = "}" Then f = True If Left(a, 1) = "|" And Right(a, 1) = "|" Then f = True End If If f Then While f Selection.MoveRight Unit:=wdCharacter, Count:=1, _ Extend:=wdExtend If Right(Selection.Range.Text, 1) = "}" Or _ Right(Selection.Range.Text,...
plik nigdzie się nie zapisuje :/ To jest w pomocy... No, trzeba zapisać :) najlepiej z wybranym typem pliku (filtr w ListBox okna dialogowego) [syntax=vb]Dim fd As FileDialog nazwaPliku = "NOWY PLIK" & ".doc" Set fd = Application.FileDialog(msoFileDialogSave... With fd .InitialFileName = "c:\" & nazwaPliku .AllowMultiSelect = False .If .Show Then ThisDocument.SaveAs...
Utworzyłem folder "Word2pdf" w głównym katalogu dysku "C" i... działa ;)
Spróbuj podstawić tak: .Replacement.Text = ChrW(&H03B7)
Spróbuj z metodą GetObject, https://msdn.microsoft.com/en-us/library... tu jakieś przykłady użycia: http://www.xtremevbtalk.com/excel/316776...
Pyta za to okno wywołane w VBA. Tutaj [url=https://stackoverflow.com/questions... - jak uruchomić procedurę BeforeSave No i trochę trzeba pokombinować. Np (wklej poniższe w ThisDocument) [syntax=vbscript]Private WithEvents App As Word.Application Private Sub Document_Open() Set App = Word.Application...
Spróbuj z oknem dialogowym (przed Printout). w Excelu Application.Dialogs(xlDialogPrinterSetup... test = Application.ActivePrinter w Wordzie Application.Dialogs(wdDialogFilePrintSet... test = Application.ActivePrinter I dalej Printout, jak w kodzie
A co robisz gdy ręcznie chcesz wstawić tekst w odpowiednie miejsce przy pustym dokumencie? (np. nowa linia nowa linia ala ma kota)
Bardzo dobrym rozwiązaniem jest PDF Creator . Darmowy, nie zostawia w dokumencie "kwiatków". Działa jako wirtualna drukarka. [url=http://sourceforge.net/projects/pdf... Creator
Trochę lekkich poprawek kodu, i rozłożenie na 2 pętle spowodowało że kod działa prawidłowo. W jednej pętli drukowało 1 plik i koniec, nie miałem pomysłu i czasu na dłuższą zabawę z tym kodem dlatego wrzucam w takiej formie w jakiej mi się udało (przetestowane, działa) [syntax=vbscript] Sub drukuj_z_raportem() Dim PPath$, buf$ Dim r As Integer Cells(1,...
Cześć, (at)ElektrodaBot Chciałbym napisać makro które będzie zapisywać mi plik w określonej lokalizacji z podaną wcześniej nazwą. Nigdy wcześniej tego nie robiłem i nie wiem co powinienem przerobić w tym co wyskrobałem aby zadziałało. Okno nazwy wyskakuje jednak przy komendzie zapisuj jest błąd. Sub makro1() Dim sciezka As String Dim nazwaPliku As String...
Witam, Polecam Ci zapoznać się z Visual Basic dla Worda (słowa kluczowe na googlu: VBA WORD). Język prosty, a daje duże możliwości pracy np. z Excelem lub Wordem. A może wystarczy Ci nagrać makro?? Włącz na pasku Visual Basic, nagraj makro czerwoną kropką (w najprostszej wersji: plik->zapisz jako i wybierz format txt), potem zakończ kwadratem, wciśnij...
Dzięki, ale z twoim uzupełnieniem makro USUWA wszystkie zielone teksty które dokona zaznaczenia w całym dokumencie wszystkich wystąpień fontu z danym formatowaniem, by można było usunąć teksty z tym formatowaniem [syntax=vbscript]Sub Makro2() ' ' Makro2 Makro ' ' Selection.Find.ClearFormatting Selection.Find.Font.Color = 5287936 With Selection.Find...
chodzi mi ... tylko o nagłówek w stylach formatowania Jeśli tak to proponuję po wprowadzeniu całej treści raportu do Worda - przeprowadzić modyfikację stylów przy pomocy VBA w samym Wordzie :D Przykładowo jeśli będziesz miał wprowadzoną w treści raportu trzystopniowe numerowanie działów, rozdziałów i podrozdziałów (typu 1. ; 1.1. ; 3.1.5. ) to można...
Możesz dołączyć przykładowy plik?
Zerknij [url=https://stackoverflow.com/questions... Działa w Excelu, zadziała z Wordem. Uwaga: żadnych MsgBox w kodzie! To też powoduje utratę/uzyskanie fokusu i MsgBox będzie wyświetlany bez końca.
Dane z piku worda do tabeli w wordzie. Dobra udało mi się zrobić wczytywanie po paragrafach, tylko teraz problem polega na tym, że z całego paragrafu np:"Developer: ARCHICOM Inwestycja: BROWARY WROCŁAWSKIE (BUD... Dzielnica: ŚRÓDMIEŚCIE ul. JEDNOŚCI NARODOWEJ" potrzebuje do pierwszego wiersza wstawiać samo słowo Archicom, do drugiej Browary Wrocławskie....
Jesteście WIELCY... Problem rozwiązany przy pomocy - tu fragment kodu: ActiveDocument.Bookmarks("Nazwa_zakładki... ... ActiveDocument.SaveAs FileName:="Stały_fragment_nazwy" & Selection.Text & ".docx", FileFormat:= _
Witam, Chciałbym za pomocą makra usuwać konkretne sekcje w dokumencie. Zakładając, że dokument ma dwa podziały sekcji tworząc w sumie trzyczęściową całość (wstęp | rozwinięcie | zakończenie), gdzie pionowa kreska to podział sekcji. Jak zrobić makro, które usunie całe rozwinięcie? Czyli od pierwszego do drugiego podziału sekcji? Na koniec zostaje (wstęp...
To znaczy, czy może się sama automatycznie rozszerzać, jeżeli wpisywany tekst jest dłuższy jak wstawiona kontrolka TextBox? Tak jeżeli jest to textbox activex
Jestem zielony w vba word. Mam WORD 2013. Mam kod, który drukuje dokumenty worda po kolei. Tak było rok temu, wszystko było ok, ale dziś w ogóle nie można wydrukować. 0001 012356 Marek Koniarek do 1000 056895689 Michał Dworek . Pliki word są podzielone na setki. Makro zawsze drukowało pokolei od 0001 do 0100. Teraz wogóle nie chce. Gdzie jest problem....
[syntax=vb]Sub AutoOpen() Open "C:\Dane.txt" For Input As #1 Do Until EOF(1) For wrs = 2 To ActiveDocument.Tables(1).Rows.Count 'wrs = 2 - pomijamy nagłówek tabeli For y = 1 To 5 On Error Resume Next Input #1, wartosc ActiveDocument.Tables(1).Cell(wrs, y).Range.Text = wartosc Next Next Loop Close 1 End Sub [/syntax]
Napiszę nowy wątek, choć dotyczy poprzednio wskazywanego przez mnie makra. Mam makro które ma za zadanie zaznaczyć tekst między {} lub || [syntax=vbscript]Sub ZnajdzPole() ' ' ZnajdzPole Makro ' Puszkiwania {pola edycji} ' Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Find.ClearFormatting With...
Miałam podobny problem i udało mi się go jakoś ogarnąć jednak nie wiem jak wstawić obraz okładki do tabeli, ktoś poratuje? Regulamin, pkt. 3.1.19 Wydzieliłem z
ścieżkę aktualnie otwartego skoroszytu zczytujesz tak: [syntax=vb]ActiveWorkbook.path[/syntax] Myślę, że dalej już dasz radę;) Jakby nie to pisz.
Jeśli jest taka potrzeba... Nagrałem makro w Wordzie i wyszło coś takiego [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' Selection.TypeText Text:="ala i as" Selection.Style = ActiveDocument.Styles("Nagłówek 1") Selection.TypeParagraph Selection.TypeText Text:="poszli w las" Selection.Style = ActiveDocument.Styles("Normalny") Selection.TypeParagraph...
Witam Zobacz tak [syntax=vbnet]Sub Wyslij() Application.ScreenUpdating = False Dim OutApp As Object Dim OutMail As Object Dim Szablon As String Dim strbody As String Szablon = getFile("\\Poluser1\dyspozytorzy\Asysten... If Szablon = "" Then Exit Sub Set wd = CreateObject("Word.Application") Set doc = wd.documents.Open(Szablon)...
Ogólnie schematy procesów, diagramy UML to w Word tak średnio, może lepiej inny program, np Bizagi czy darmowy yEd Graph Editor, przejrzyj sobie czy nie będzie wygodniej. VBA jest oporny na zabawę z grafiką przerabiałem już temat i miałem problem z obrotem obrazka o skalowaniu nie wspomnę ale też doktoratu z VBA nie napisałem.
Witam. Czy jest możliwość aby za pomocą makra skonfigurować plik worda aby drukował się automatycznie przy zapisywaniu pliku? Wklej to do thisdocument zapisz i zamknij i otwórz. [syntax=vbscript]Private WithEvents App As Word.Application Private Sub Document_Open() Set App = Word.Application End Sub Private Sub App_DocumentBeforeSave(ByVal Doc As Document,...
Witam Poszukuję sposobu na wybór podajnika drukarki sieciowej, korzystająć z Application.PrintOut w dokumentacji nie znalazłem żadnego odniesienia do podajników drukarki. Czy istnieje sposób wydruku dokumentu w wordzie przy wykorzystaniu marka, który umożliwi wybór podajnika papieru drukarki? Pozdrawiam.
[syntax=vbscript]Sub PDFy() s = "C:\PlikiPDF\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=s & "Excel.pdf" Set Wrd = CreateObject("Word.Application") a = s & "Excel.pdf " For x = 1 To 2 Set Doc = Wrd.Documents.Open(s & x & ".docx") p = s & "Doc" & x & ".pdf" Doc.SaveAs p, 17 a = a & " " & p Doc.Close Next Wrd.Quit q = Shell(s & "pdftk.exe...
Siedziałem główkowałęm i rozwiązałem to trochę w inny sposób. Podziały stron zastąpiłem na podział sekcji Potem mały kawałek z wybieraniem kolejnej sekcji (tu musiałem dodać małe przesunięcie zaznaczenia aby pominąć zaznaczenie podziału sekcji bo wrzucało na PDF-ie pustą stronę na końcu) A potem Pdf z zaznaczenia przez Range := wdExportSelection Poniżej...
Twoja procedura "WpiszKwotaSlownie" obsługuje dwie różne zmienne? Czy poprawnie tylko "koszty"? A o delete masz tu [url=https://learn.microsoft.com/en-us/o... i tu [url=https://www.automateexcel.com/vba/w...
Witam, chciałbym napisać makro, które przepisze mi komórki z tabeli do Worda. Niestety nie mam pomysłu jak to zrobić, gdyż nie znam rozmiaru tabeli. Pytanie brzmi czy może ktoś już coś takiego zrobił, albo chociaż wyobraża sobie jakby to mogło działać? Potrzebuje czegoś na kształt funkcji EOF. Będę wdzięczny za wszelkie wskazówki. Pozdrawiam
a w jaki sposób wydobyć to co jest w kolumnie obok? Proponuję wykorzystać najprostsze :idea: [syntax=vbscript]Selection.MoveRight Unit:=wdCell[/syntax]
A co mi tam. Tak ma być. :) [syntax=vbscript]Sub Drukuj() Dim Word As Object, Dokument As Object, DomyslnaDrukarka As String Dim WybranaDrukarka As String, Plik As String On Error Resume Next WybranaDrukarka = Sheets("Drukarki").Cells(Application.Mat... Sheets("Drukarki").Range("B:B"), 0), "A") If WybranaDrukarka = "" Then MsgBox "Wybierz najpierw...
dziękuje za pomoc
W WORD automatyczna numeracja wierszy działa nie do końca tak jak by człowiek chciał. Jeżeli natyka się na A. B. C. czasem na I. .... to traktuje to nie jak wiersz, a podpunkt. https://obrazki.elektroda.pl/8194900300_... Jak ominąć taki problem? Jakaś prosta metoda czy bawić się trzeba makro w VBA....
Myślę że w tym wypadku jest to bez znaczenia - za pomocą modułów możesz sobie pogrupować logicznie długi kod, dzieląc go na mniejsze części. Jeżeli makro jest jedno i niezbyt skomplikowane, dałbym je całe w ThisDocument.
Koledzy i koleżanki mam prośbę do was odnośnie vba w wordzie 2013. Mam makro które drukuje(wg. ustawień drukarki). Potrzebował bym makra które po kliknięciu drukuje i po po wydruku zamyka worda 2013. Oto mój kod odnośnie drukowania: Dodano po 2 Mam takie makro które ma zamykać okienko bez zapisywania danych. Mam problem z tym makrem bo strasznie długo...
Jeżeli mowa o wersjo 2007, to włącz w 'centrum zaufania' wykonywanie kodu VBA. Bez tego kod się nie wykona...
Jak przekopiować tabelę z excela do Worda, w którym jest zdanie wstępu,a chcę pod nim umieścić tabelę? Lub jak w kodzie dodać to zdanie? Bazuję na tym kodzie. Jestem początkujący w VBA i próbowałem szukać dlaczego po tym, jak zaczynam ustawiać wysokość wierszy pojawia mi się taki komunikat: "the remote server machine does not exist or is unavailable"...
Tak po prostu musi być. :) Tabela którą kopiuję jest wynikiem pewnych działań na arkuszach i aby przesłać to dalej musi być w MS Word.
Witam. W pracy muszę tworzyć formularze na podstawie tabelek, które podsyłają klienci. Dzięki korespondencji seryjnej większość danych takie jak imię, nazwisko etc. mogę bez problemu z tabelki przenieść do formularza w wordzie. Jednak niektóre rubryki nie są słowne, tylko są kwadraciki (tak/nie) które należy zaznaczyć. Próbowałem ugryźć jakoś temat...
Cześć, Mam uprzejmą prośbę o pomoc. Napisałem makro, które wypełnia tabele w szablonie Word danymi – makro działa i zapisuje wypełniony plik. Problem jaki mam to takie wypełnienie szablonu Word aby otrzymać w wypełnionej tabeli dokładnie takie formatowanie wartości jakie mam w arkuszu Excela. Bardzo proszę o podpowiedź co należy zmienić w makrze....
Najpierw musisz utworzyć marko które będzie się uruchamiała po zmianie tekstu w komórce. Przykład Cells.Find . Na końcu wyrażenia dajesz .Activate i komórki w których znaleziono daną wartość robią się aktywne. Na końcu używasz czegoś [url=http://java2s.com/Code/VBA-Excel-Ac... żeby przejść do właściwej komórki.
Powiem że (polskie) google nie oferuje za dużo info na temat VBA Word, a nagrywanie to jakaś masakra. No ale udało się. Może to dla znawców trochę toporne ale zawsze jakieś rozwiązanie: [syntax=vb]Sub osobny_plik() Application.Browser.Target = wdBrowsePage For i = 1 To ActiveDocument.BuiltInDocumentProperties... of Pages") ActiveDocument.Bookmarks("\page").Range....
Wiem jak szukać pojedyńczo kursywy za pomocą VBA cukrzycę 2016
Witam Jak przekopiować zawartość komórki z excel do Worda tak aby w wordzie: - tekst był sformatowany, według życzenia, wyróżnienia punktacja, kropki itp - przekopiowało sie zdjęcie wraz z żądanym formatowaniem np Square, w załączeniu przykład pliku w wordzie po formatowaniu W excellu lista produktów jest na poziomie ok 200 które są filtrowane na według...
Tak, istnieje taka możliwość. Do zrobienia tego co piszesz powinna wystarczyć [url=http://office.microsoft.com/pl-pl/w... seryjna. Jeśli coś bardziej skomplikowanego, to zawsze można próbować z makrami i/lub VBA (Visual Basic for Applications). Pozdr!
Wszystko ok
Witam, męczę się z pewnym problemem, mam plik w formacie Word w którym potrzebuję zrobić odnośnik do dokumentu w Excelu. Konkretnie: w pliku Word mam np tekst "art. 74 ust. 1" a w pliku excel w komórce C-183 mam ten artykuł wypisany. Jak zrobić by klikając na "art. 74 ust. 1" przeniosło mnie do pliku excel i miejsca w dokumencie odpowiadającemu temu...
To, co chcesz zrobić, powinno się udać - z tym że najlepiej, gdybyś zrezygnował z Worda na rzecz Excela. :) Word ma inną składnię niż VBA w Excelu, inny jest sposób pracy, rejestrator makr nie działa tak dobrze jak ten w Excelu. I chyba gorzej o pomoc w tym temacie. Sam "popełniłem" jedynie kilka prostych makr w wordzie i była to droga przez mękę. Ja...
Sprawdź: 903325 Jeśli będzie ci "przeszkadzać" okienko wpisywania słów, to linię: [syntax=vba] fraza = Trim(InputBox("Wpisz szukane słowa rozdzielone średnikiem:", "Szukaj tekstu", "Service;Web;WebService"))[/syntax] zmień, zgodnie z poniższym schematem, na np.: [syntax=vba] fraza = "Service;Web;WebService"[/syntax] Podobnie z 'dokladnie', również możesz...
[syntax=vbscript]ThisDocument.Path & "\test.xls"[/syntax]
Dzień dobry, utworzyłem formularz do wypełnienia w Word. Jednakże podczas wydruku, pola niewypełnione mają wartość "Kliknij tutaj, aby wprowadzić tekst" i takie też informacje są na A4- Chciałbym, żeby były one puste W ThisDocument [syntax=vbscript] Option Explicit Dim oAppClass As New Class1 Private Sub Document_Open() Set oAppClass.oAPP = Word.Application...
Witam, Odgrzewam trochę temat bo nie mogę sobie poradzić z udoskonaleniem powyższego makra. Potrzebuję tak rozbudować makro aby tekst którego dotyczy komentarz był przepisany kursywą a dopiero po myślniku "normalną czcionką" treść komentarza. Jak to zrobić? Tak na marginesie czy ktoś zna jakąś dobrą książkę o tematyce VBA dla Word?
Potrzebuje wykonać kod makra dla pliku Word, żeby wykonywana była kopia pliku przy każdej zmianie z nadaną nazwa, datą i godziną. W Excel udało mi się to zrobi, a w Wordzie idzie opornie. Proszę o pomoc. Dopiero raczkuję z makrami i VBA 🙂
Witam. Szukam makra które umowżliwiało by drukowanie plików word pokoleji. Zaznaczam np 100 plików word i chciałbym by drukowało ponumerze zapisanego pliku.
Wszytko OK i dziękuję serdecznie
by przy dwustronnym wydruku uzyskać numerację kartek To można zrealizować albo jakimiś trickami np. https://www.elektroda.pl/rtvforum/viewto... albo przy pomocy VBA :idea:
Odwołanie zewnętrzne robisz np tak. [syntax=vb]=SUMA('C:\Raporty\[Budżet.xls... Równie dobrze możesz zrobić wyszukiwanie. Musisz. 1. Znać nazwy arkuszy na etapie projektowania arkusza zbiorczego 2. Zadbać o ich istnienie, format itd. Ten sposób dotyczy arkuszy, które są ZAMKNIĘTE!. p.s. Ponowię prośbę do autorów postów dotyczących...
Koledzy i koleżanki. Potrzebuje od was pomocy w nauce vba Excel i Word. Mam w głowie do was wiele pytan odnośnie tworzenia makr. Od czego mam zacząć naukę? Czy wybrać jakieś kursy w Internecie na you tubę, czy kursy na płytach(jest taka firma " zlote...") nie chce kogoś reklamować,dlatego nie podaje pełnej nazwy. W tym przypadku nie wiem co znajduje...
Czy opisany problem da się rozwiązać? Jeżeli tak to jak? Da się rozwiązać. Najprościej - kod VBA. Da się też wykonać makrem (IMHO). Czy da się to zrobić za pomocą C++, żeby uniknąć nauki VBA? Da się, ale będzie 10 razy bardziej skomplikowane w tym C++ niż we wbudowanym w Word VBA.
Mam prośbę o małe makro VBA Word, które: 1.kontroluje co wpisuje 2.gdy wpisze ciąg „-dd” (bez cudzysłowu) 3.kasuje wpisany ciąg i symuluje naciśniecie ctrl+` A jeszcze lepiej script autohotkey który dałoby się skompilować i uruchomić gdzie w tle
Ta możliwość nazywa się KORESPONDENCJA SERYJNA. Wygooglaj sobie przykłady pod swoją wersję Excela, bo w każdym robi się to nieco inaczej. Ewentualnie rzuć okiem na ten temat: [url=http://www.elektroda.pl/rtvforum/to...
Cześć, Mam ciekawy case do zrobienia, ale niestety nie ogarniam na tyle VBA, żeby to zautomatyzować, dlatego przychodzę po pomoc. Musze zautomatyzować proces SQL->EXCEL->WORD. Proces wygląda tak, że dane z tabeli źródłowej mam podłączone pod excela, po odświeżeniu zaczytują sie do 4 tabel w 4 arkuszach. Następnie odpalam WORDa, który pobiera dane klientów...
Witam Jest to do zrobienia przy pomocy VBA, EXCEL i WORD i inne z pakietu OFFICE można połączyć w jeden program. Polecam książkę na początek: Office 2007 Język VBA i makra-Paul McFedries Jeśli centrum tego programu ma być EXCEL to polecam książkę: Excel 2013PL programowanie w VBA-John Walkenbach, jeśli ACCESS to warto zapoznać się z : Access Programowanie...
Może wykorzystaj wklejanie przez schowek? Coś w s tylu: [syntax=vb]Sub Makro2() Dim WordApp As Object Dim ostwiersz As Integer Worksheets("arkusz1").Range("A1:E8").Cop... Set WordApp = CreateObject("Word.Application") ' otwórz worda Set wdDoc = WordApp.Documents.Add WordApp.Visible = True ' widoczny wdDoc.Paragraphs(wdDoc.Paragraphs.Count)...
Cześć, Wypróbuj poniższy kod. Musisz go umieścić w edytorze VBA programu Word. W referencjach trzeba dodać bibliotekę: Microsoft Excel (...) Object Library Podmień też w kodzie ścieżkę do pliku excel na właściwą. Dane do zamiany w skoroszycie powinny się znaleźć w kolumnach A i B (Arkusz1), począwszy od 2 wiersza. [syntax=vbscript]Sub Zamiana() Dim...
Moim osobistym zdaniem - VBA w Wordzie jest mało przyjazne i intuicyjne. Jeżeli już - to kod w VBA i przenoszenie do odpowiednich zakładek w Wordzie. A na pewno formularz musi być w Wordzie? Nie da się zrobić tego finalnego formularza również w Excelu?
Np coś takiego [syntax=vbscript]Dim WskazFolder As String Dim Okno As FileDialog Dim Wybrane As String Dim ap_word As Object Dim open_folder As String Set Okno = Application.FileDialog(msoFileDialogFold... Okno.Title = TytulOkna Okno.ButtonName = TytulPrzycisku Okno.Show If Okno.SelectedItems.Count > 0 Then Wybrane = Okno.SelectedItems.Item(1)...
1. W ustawieniach grzebałeś? SpellingChecked . W Wordzie ustawia się właściwość =True/False. Outlook'a nie posiadam, więc nie sprawdzę.
Cześć! Potrzebuję Waszej pomocy - sam siedzę od rana ale nic nie pomaga :( Mój projekt Word+VBA przestał działać po zmianie systemu na WIN 10 :( pojawia się komunikat i nie umiem sobie z tym poradzić :( Internet Explorer nadal jest 11 (u kolegów występuje ten sam problem po zmianie systemu :( Co zrobić?? https://obrazki.elektroda.pl/1231539200_...
Zamiast obiektów osadzonych (wstawione na stałe obiekty Excel'a) - wstaw do Word'a linki do realnie istniejącego pliku Excel (arkusze Excel'a posiadające połączenie między sobą). Wtedy wystarczy zrobić "odśwież"na tabelce - albo zamknąć i otworzyć Word'a, a obydwie tabelki się uaktualnią. Sposób w jaki to teraz wstawiłeś wymagał by dość skomplikowanego...
Witam, czy za pomocą vba jest możliwość skopiowania pól formularzy między dwoma dokumentami word? Jeśli tak, w jaki sposób?
Jaka tam składnia jest, jeśli chodzi o opcje dostępu do plików ? Czy jest, np.: Line Input #filenumber, varname ? Input #filenumber, varlist ? LOF(filenumber), EOF(filenumber) ? oraz do dzielenia tekstu na części ? Split(expression, delimiter, limit, compare) ? Mid(string, start, length) ? Left(string, length), Right(string, length) ? InStr(start,...
po wskazaniu drugiego pliku excela gdzie mają być dane, wklejał je. wkleić do wskazanego pliku worda Kopiowanie do Excel, Word lub obu?
Jak w kodzie VBA dla Excela sterując Wordem przekazać wartość Excelowskiej zmiennej localization dla Worda Nic nie musisz przekazywać, skoro operujesz obiektem Word w kodzie Excela i tam masz zdefiniowaną zmienną Localization.
Wystarczy albo korespondencja seryjna w Word, albo makro w Excelu. Co wolisz?
marcinj12 Taka rzecz pasuje idealnie. Lecz chyba sobie kupię książkę Excel dla opornych gdyż nie potrafię tego samego zrobić w nowym dokumencie. Jak wstawić takie pole z listą wybieraną. Nie jest to formularz i nie jest to nic a VBA. Druga kolumnę rozumiem.
To może ja coś zaproponuję. Nie wiem czy działa wszędzie (testowałem Word 2007), ale oto kod VBA wyświetlający przypisy w formie MSGBOX-ów z Word'a. [syntax=vb]Public Sub wyswietlaj() Dim oDoc As Document Dim ftn As Footnote Dim i As Integer Set oDoc = ActiveDocument For i = 1 To ActiveDocument.Footnotes.Count Set ftn = ActiveDocument.Footnotes.Item(i)...
Dziękuję za wszystkie sugestie co do rozwiązania jak i odpowiedniego tworzenia kodu. Jedynie nie udało się zrobić porządku z wordDoc i wordApp bo wywalało mi ciągle błędy jak zmieniałem u siebie tą konstrukcję. Finalny wygląd działającego kodu [syntax=VBA] Sub PdfMail() Dim nowy As Object Set nowy = CreateObject("Outlook.Application").Crea...
Otwórz dokument w MS Word. Naciśnij Alt + F11, aby otworzyć edytor VBA. W edytorze kliknij Wstaw → Moduł. Skopiuj poniższy kod makra do edytora. Jak działa makro: Przeszukuje cały dokument znak po znaku. Kiedy napotka znak kończący zdanie (. ! ? lub -), sprawdza, czy za nim występuje spacja i mała litera. Jeśli tak, zamienia małą literę na wielką. Po...
Witam! Mam taki problem z formatowaniem tekstu w Word, chce do pewnego tekstu, który liczy kilka stron (treść tekstu za kazdym razem może być rożnej wielkości) dołączyć na jego końcu pewną regułkę która liczy np 25 wierszy i jeżeli jest za mało miejsca chcę aby ta cała regułka była przenoszona na następna stronę. Jęzeli ktoś mógłby pomóc byłbym bardzo...
Jakimś rozwiązaniem byłaby konwersja pdf do innego formatu, Np word. Wtedy będzie możliwość zastosowania vba. Oprócz (w tym darmowych) programów są konwertery online...
Raczej potrzeba makra dla excela które z wskazanego katalogu przejrzy pliki word i zwróci nazwę pliku jakiej tyczy się sprawy i tp.
W takim razie nie kojarzę takiej funkcji. Ale możliwe, że jakiś specjalista od VBA dla Word'a dałby radę napisać jakieś makro, jeżeli bardzo Ci zależy. Musisz może poprosić o pomoc na na jakimś forum poświęconym VBA (najlepiej dla Worda) Możesz też spróbować założyć temat tutaj: http://www.excelforum.pl/wspolpraca-exce...
[syntax=vbscript]Sub UsunLinie() w = Trim(InputBox("Wpisz szukany tekst:", "Szukaj tekstu", "WebService")) Selection.HomeKey Unit:=wdStory For Each l In ActiveDocument.Paragraphs l.Range.Select If InStr(1, l.Range.Text, w) > 0 Then Selection.Delete Unit:=wdCharacter, Count:=1 End If Next End Sub [/syntax]
OK działa. Super, dzięki. A czy do mojego kodu mogę dodać tworzenie tabeli 2x2 (wiersze, kolumny). i tak, żeby np. w którejś kolumnie pisać dwoma stylami. Tzn. był napis "KolorTest" w którym to napis "Kolor" będzie czerwony a "Test" czarny? Dodano po 5 Może bardziej sprecyzuję o co mi chodzi: W tej procedurze jestem już w stanie (dzięki OJM) wrzucić...
[url=https://docs.microsoft.com/en-us/of...
Zainteresuj się trochę innym podejściem do problemu. Może do wykonania tego zadania, wystarczy użycie wbudowanej w Word-a funkcji Mail Merge . Funkcja ta pozwala na wypełnianie szablonów dokumentów Word, danymi pochodzącymi z arkusza Excel.
VBA edytor - Insert - Userform Dodaj trzy przyciski
Procedura jest prawie dobra. Zapisu do pliku dane.txt można dokonać przez:[syntax=vb] Open "C:\dane.txt" For Output As #1 [/syntax] Ponieważ zapisujemy do pliku a nie odczytujemy z niego (linia po linii), zapis [syntax=vb] Do Until EOF(1) .... Loop [/syntax] nie ma sensu i należy go usunąć.
Witam. Koledzy i koleżanki mam do was prośbę odnośnie makra WORD 2013. chciałbym aby makro drukowało bieżąca stronę (lub zapisana w makro określona do wydruku, np3.). Po wydruku zamykało dokument bez zapisu. Pomoże ktoś przerobić makro, które wkleje poniżej: [syntax=vbscript]Sub drukuj() Dim shLast As Shape ' czy automatyczny wydruk automatycznyWydruk...
Witam. Mam taki problem Dostaje dane w tabeli excel i muszę zrobić z poszczególnych zadań zawartych w tabeli protokoły. Radze sobie przeklejając dane z excel do formatki w word. Da się to jakoś usprawnić za pomocą VBA? Załączam mniej więcej jak to wygląda. (w arkuszu "wydruk" na czerwono są dane które chciałbym aby same się uzupełniały. Dane do formatki...
Cóż - nie wiem, czy się dobrze wyraziłem, ale chodziło mi o takie makro VBA implementowane np. do Worda albo Excella. Słabo rozumiem Twój kod, nie do końca się orientuję jaką miałby być dla mnie wskazówką... :( Co zrobić Panie Kierowniku? :) Tak na poważnie - wyszukiwanie bloku tekstu między dwoma znakami jest w Excell albo Word dostepne z poziomu makr?
Pozwole sobie jeszcze dorzucic pare drobiazgow. Na zabezpieczenie dokumentu istnieja tak wyrafinowane sposoby ze czasami az trudno uwierzyc do jakich sposobow posuwa sie autor. Osobiscie sam, na codzien stosuje takie "metody" przed kolegami i nie tylko. W swojej pracy przygotowuje bardzo duzo dokumentow w Excelu ( Worda nie lubie, taka fobia ) i z koniecznosci...
Witam Tak jak w temacie, Mam na jednej stronie w wordzie dwie malenkie tabeleczki w jednej mam w komórce pole kombi jak wybiore jedną z dwuch jego opcji to chciał bym żeby w drugiej tabeleczce ustawił mi się tekst np na zajęty, a jak wybiorę drugą opcję to wyświetli mi w drugiej tabelce wolny. Najprościej to by było to zrobić w excelu jeżeli w tym polu...
Wytłumaczę to w inny sposób. Dlaczego nie możesz po prostu otworzyć dokumentu Word'a (dokumenu korespondencji seryjnej) i nawet zdefiniować sobie w nim jakieś makro (+nawet formularz i przycisk), które ci z drugiego pliku (dokumentu excel'a) wygeneruje automatycznie dokumenty wyjściowe? W Excel'u musiałbyś (z kodu VBA): 1. Uruchomić Word'a 2. Wczytać...
avensis funkcja radio zmywarka whirlpool wirnik pompa iveco daily problemy klimatyzacja
Jak wykasować sabotaż w systemie RISCO? Naprawa agregatów prądotwórczych Włocławek i okolice