怎样使excel中的内容按照word中的对齐方式对齐?
我用代码把word中的内容复制到excel中后,我想把excel中的内容按照word中的对齐方式对齐,比如:在word中标题是居中的,复制到excel后是左对齐的.不知道如何用代码实现,请多指教,谢谢!!!
[解决办法]
Sub macro1()
Dim par As Paragraph, index As Long, n As Long
For Each par In ActiveDocument.Paragraphs
index = par.Range.ParagraphFormat.Alignment
n = n + 1
If index = wdAlignParagraphCenter Then Debug.Print "第 " & n & "短对齐方式：居中 "
If index = wdAlignParagraphLeft Then Debug.Print "第 " & n & "短对齐方式：左对齐 "
If index = wdAlignParagraphRight Then Debug.Print "第 " & n & "短对齐方式：右对齐 "
If index = wdAlignParagraphJustify Then Debug.Print "第 " & n & "短对齐方式：两端对齐 "
Next
End Sub
