![]() |
#1
|
|||
|
|||
![]()
I have a document created in Word 2016. When I open and run the macro with Word 2019, the macro returns an error for Selection.paste. There is a 'button' that runs this macro on a police duty report. The macro copies and then adds a new entry form for another event if needed. Any help appreciated. The following is the VBA:
Private Sub CommandButton1_Click() If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect End If With ActiveDocument .Tables(2).Range.Copy .Range.Select Selection.Collapse wdCollapseEnd Selection.Paste Dim oRng As Range Dim oFld As FormFields Dim i As Long Set oRng = ActiveDocument.Tables(2).Range Set oFld = oRng.FormFields For i = 1 To oFld.Count oFld(i).Select If oFld(i).Type = wdFieldFormDropDown Then oFld(i).Result = oFld(i).DropDown.ListEntries(1).Name Else oFld(i).Result = "" End If Next End With ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True End Sub Private Sub OptionButton4_Click() End Sub Private Sub OptionButton6_Click() End Sub |
Tags |
macro, macro error |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
What's new in Word 2019, Excel 2019 and Outlook 2019 and Why upgrade to Office 2019 is recommended? | einfomail | Office | 0 | 07-25-2019 11:49 AM |
PgUp/PgDn not working as expected in Word 2019; macro workaround? | AmyJSchneider | Word VBA | 0 | 01-19-2019 03:45 PM |
![]() |
danjoe | Word VBA | 3 | 10-19-2017 05:49 AM |
Macro does not run properly | dherr | Word VBA | 2 | 02-19-2015 08:50 AM |
Word 2000 Macro not working properly | brianlb | Word VBA | 1 | 07-01-2009 07:04 AM |