![]() |
#1
|
|||
|
|||
![]()
Hi,
I'm opening the word doc from Excel. The doc is set to not ask for conversion upon opening but it does anyway when opening with VB code. Here's my code: Code:
Sub PopulateWord() Dim appWD As Word.Application Set appWD = CreateObject("Word.Application") Sheets("By Event Name").Select If Range("B2").Value = "" Then Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Else Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy End If Application.DisplayAlerts = False appWD.Documents.Open "U:\TPCentral_Too\Templates\PD_HO_Announcement\PD_HO_Announcement2.htm", ConfirmCoversions = False appWD.Selection.WholeStory appWD.Selection.Delete Unit:=wdCharacter, Count:=1 appWD.Selection.Paste Application.DisplayAlerts = True appWD.ActiveDocument.Save appWD.ActiveDocument.Close appWD.Quit End Sub Code:
"U:\TPCentral_Too\Templates\PD_HO_Announcement\PD_HO_Announcement2.htm", ConfirmCoversions:=False Last edited by Joe Patrick; 07-23-2011 at 05:39 AM. Reason: Added code tags |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
VSCD | Word | 2 | 06-15-2011 10:09 AM |
![]() |
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 |