تبدیل اکسل به Word

[Amin_D]

با سلام

دوستان زحمت کشیدن این کد ها رو :

Private Sub CommandButton1_Click()
    inputfileSaveName = Application.GetSaveAsFilename(Range("f7"), fileFilter:="PDF Files (*.pdf), *.pdf")

MsgBox (inputfileSaveName)
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=inputfileSaveName, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False


End Sub 

برا تبدیل اکسل به PDF ، میخواستم ببینم دستوراتی هست که بشه فایل رو به Word تبدیل کرد؟

البته با در نظر گرفتن اینکه فایل Word ، هیدر و فوتر داره.

[alieddy0]

با سلام
شما ميتونيد از كد زير استفاده كنيد

Private Sub CommandButton1_Click()
Dim WdObj As Object, fname As String
fname = "Word"
Set WdObj = CreateObject("Word.Application")
WdObj.Visible = False
Range("A1:I30").Select
Selection.Copy 'Your Copy Range
WdObj.Documents.Add
WdObj.Selection.PasteSpecial Link:=False, _
    DataType:=wdPasteText, Placement:= _
    wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False
If fname <> "" Then 'make sure fname is not blank
With WdObj
   .ChangeFileOpenDirectory "c:\temp" 'save Dir
    .ActiveDocument.SaveAs Filename:=fname & ".doc"
End With
Else:
MsgBox ("File not saved, naming range was botched, guess again.")
End If
With WdObj
    .ActiveDocument.Close
    .Quit
End With
Set WdObj = Nothing
End Sub

فايل ورد در مسير C:\temp ذخيره ميشه و ميتونيد محدوده اطلاعاتتون رو تغيير بديد

[Amin_D]

با سلام
شما ميتونيد از كد زير استفاده كنيد

Private Sub CommandButton1_Click()
Dim WdObj As Object, fname As String
fname = "Word"
Set WdObj = CreateObject("Word.Application")
WdObj.Visible = False
Range("A1:I30").Select
Selection.Copy 'Your Copy Range
WdObj.Documents.Add
WdObj.Selection.PasteSpecial Link:=False, _
    DataType:=wdPasteText, Placement:= _
    wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False
If fname <> "" Then 'make sure fname is not blank
With WdObj
   .ChangeFileOpenDirectory "c:\temp" 'save Dir
    .ActiveDocument.SaveAs Filename:=fname & ".doc"
End With
Else:
MsgBox ("File not saved, naming range was botched, guess again.")
End If
With WdObj
    .ActiveDocument.Close
    .Quit
End With
Set WdObj = Nothing
End Sub

فايل ورد در مسير C:\temp ذخيره ميشه و ميتونيد محدوده اطلاعاتتون رو تغيير بديد

تشکر از جوابتون ،

چرا به صورت ورد 2003 ذخیره میشه؟

اطلاعات وارد شده به ورد قابل تغییر نیستند مثل حالت Image هستند.

[alieddy0]

با سلام مجدد
شما اگه روي تصوير 2 بار كليك بفرماييد ميتونيد تغييرات رو اعمال بفرماييد
براي ذخيره بصورت فايل ورد با ورژن بالاتر ميتونيد .doc رو به .docx تغيير بدين