How to make Word NOT ConfirmConversion with VBA

macropod · #2 07-23-2011, 01:46 AM

Hi Joe,

Instead of 'ConfirmCoversions = False' you should have 'ConfirmCoversions:=False'. Your code could also be made more efficient:

Code:

Sub PopulateWord()
Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application")
With Sheets("By Event Name")
  If Range("B2").Value = "" Then
    Range("A1", Range("A1").End(xlToRight)).Copy
  Else
    Range("A1", Range("A1").End(xlToRight).End(xlDown)).Copy
  End If
End With
With appWD
  .DisplayAlerts = False
  .Documents.Open FileName:="U:\TPCentral_Too\Templates\PD_HO_Announcement\PD_ HO_Announcement2.htm", ConfirmCoversions:=False
  With .ActiveDocument
    .Range.Delete
    .Range.Paste
    .Close SaveChanges:=True
  End With
  .DisplayAlerts = True
  .Quit
End With
End Sub

Note: When posting code, please use code tags.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I make a check box in a text box in Word?	VSCD	Word	2	06-15-2011 10:09 AM
Using replace to make a word bold and its proceeding character.	bostonboi	Word	1	01-16-2011 01:54 PM
Make text permanent in Microsoft Word 2010, how?	shaunzo101	Word	0	09-21-2010 08:27 PM
Can I Extract a Page from Word and Make a New DOCX File?	tatihulot	Word	1	06-20-2010 11:38 PM