кто знает как перенести переменную, заданную в экселе в макрос ворда?
в экселе задана переменная n и ссылается она на ячейку с датой, назначение ее чтобы при сохранении файла в скобках отображалась эта самая дата... макрос ворда подтягивает и форматирует текст из экселя и форматирует (разбивает по абзацам, шрифт, центровка и т.д.)... нужно чтобы в вордовский макрос подтягивалась эта же переменная n, для сохранения вордовского файла с этой же датой в скобках...
в экселе задана переменная n и ссылается она на ячейку с датой, назначение ее чтобы при сохранении файла в скобках отображалась эта самая дата... макрос ворда подтягивает и форматирует текст из экселя и форматирует (разбивает по абзацам, шрифт, центровка и т.д.)... нужно чтобы в вордовский макрос подтягивалась эта же переменная n, для сохранения вордовского файла с этой же датой в скобках...
Код |
---|
в экселе: Dim n n = Range("$B$9") ... ChDir "D:\" Workbooks("Книга1.xlsx").SaveAs Filename:="D:\Книга1(" & n & ").xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ... Sheets("txt").Activate ' Range("S2").Select 'Selection.Copy 'Dim objWrdApp As Object, objWrdDoc As Object 'Set objWrdApp = CreateObject("Word.Application") 'objWrdApp.Visible = True 'Set objWrdDoc = objWrdApp.Documents.Open("D:\Документ1.docm") в ворде ChangeFileOpenDirectory "D:\" ActiveDocument.SaveAs FileName:="Документ1.docx", FileFormat:= _ wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _ :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _ :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False |