Find Jobs
Hire Freelancers

Need about 10 Lines of Word VBA

$10-30 USD

Teljesítve
Kiadva ekkor: több mint 6 évvel ezelőtt

$10-30 USD

Teljesítéskor fizetve
Hi, I need someone who is fast and an expert in Word VBA. I have some code I need to alter to skip printing blank labels in a mail merge process using Microsoft Word. It should be very simply for someone who is an expert. Here's the VBA I'm using. and here's what I'm trying to do: I have a spreadsheet of records which I use with the mail merge function in Word. I'm running 2013 for both. I want to stop wasting blank label sheets when I print a sheet and my data set ends before the last label on a page is used. I'd like to use the remainder labels on the sheet. I have accounting for the empty labels by entering blank records at the beginning of my data set in Excel. So, that part works well. However, because I'm using the headers to print on the label, when I print blank records, the headers print in the used labels section of a labels page. I don't want to do this because printing on the wax backing causes the ink to smudge and my employees end up smudging it on to other labels. How would you recommend that I address this. If you think it is best to use VBA in Word, would you mind providing some code I could cut and paste? It would need to account for the fact that I have employees using this program on different laptops, so, it would need some way for them to enter the file location which varies for each user. Once they have set up the location, I wouldn't want them to be prompted to enter the file location every time they run labels. Here's the Word VBA code I want to revise: If using mailmerge to create the labels and the data source is a Word document, you can use the following macro to set the starting label on a partly used sheet of labels: Macro to set the first label on a part sheet of labels for a label type mailmerge. Dim MMMDoc As Document Dim dsource As Document Dim dtable As Table Dim i As Long, j As Long Set MMMDoc = ActiveDocument With [login to view URL] If .MainDocumentType = wdMailingLabels Then If .State = wdMainAndDataSource Then Set dsource = [login to view URL](.[login to view URL]) Set dtable = [login to view URL](1) i = InputBox("Enter the number of labels that have already been used on the sheet.", "Set Starting Label") If IsNumeric(i) Then With dtable For j = 1 To i .[login to view URL] BeforeRow:=.Rows(2) Next j End With End If .Destination = wdSendToNewDocument .Execute End If End If End With [login to view URL] wdDoNotSaveChanges
Projektazonosító: 15632352

A projektről

3 ajánlat
Távolról teljesíthető projekt
Aktiválva: 6 évvel ezelőtt

Szeretne pénzt keresni?

A Freelancer oldalán történő árajánlatadás előnyei

Határozzon meg költségvetést és időkeretet
Kapja meg fizetését a munkáért
Vázolja ajánlatát
Ingyen regisztrálhat és adhat árajánlatot munkákra
Neki odaítélve:
Felhasználó avatár
I have expertise in vba.. Client's satisfaction is my first priority and believe in long-term relationship with my clients. Thanks Relevant Skills and Experience excel vba Proposed Milestones $30 USD - default
$30 USD 1 napon belül
5,0 (33 értékelés)
5,5
5,5
3 szabadúszó adott átlagosan $72 USD összegű árajánlatot erre a munkára
Felhasználó avatár
Greeting, I have understood your VBA task and can do it with your 100% satisfaction. Please ping me for more discussion. Relevant Skills and Experience I have more than 5 years of experience in Excel, Microsoft Office, Visual Basic, Visual Basic for Apps, Word Proposed Milestones $150 USD - VBA Task
$150 USD 1 napon belül
4,9 (196 értékelés)
7,1
7,1
Felhasználó avatár
I can make this work successful, please contact me to discuss further Relevant Skills and Experience Worked on VB and VBA with various applications like MS Office, PDF, SAP, IE and Databases Proposed Milestones $35 USD - Output
$35 USD 2 napon belül
5,0 (51 értékelés)
4,7
4,7

Az ügyfélről

UNITED STATES zászlója
Charlotte, United States
0,0
0
Fizetési mód hitelesítve
Tagság kezdete: nov. 6, 2016

Ügyfél-hitelesítés

Köszönjük! E-mailben elküldtük a linket, melyen átveheti ajándék egyenlegét.
E-mailje elküldése során valami hiba történt. Kérjük, próbálja újra.
Regisztrált Felhasználók Összes Közzétett Munka
Freelancer ® is a registered Trademark of Freelancer Technology Pty Limited (ACN 142 189 759)
Copyright © 2024 Freelancer Technology Pty Limited (ACN 142 189 759)
Előnézet betöltése
Hozzáférést adott a helymeghatározáshoz.
Belépési munkamenete lejárt, és kijelentkeztettük. Kérjük, lépjen be újra.