写一段vba代码，将单元格A1字体设置仿宋，字号12，颜色红色

以下是将单元格A1字体设置为仿宋，字号12，颜色红色的VBA代码：

Sub SetFont()
    Range("A1").Select
    With Selection.Font
        .Name = "仿宋"
        .Size = 12
        .Color = RGB(255, 0, 0)
    End With
End Sub

请将以上代码复制粘贴到VBA编辑器中，并执行即可。

相关问题

python代码：在word第二段中写入“突出情况"+”单元格A1，A2内容“，用二号字体，仿宋国标，自动换行

以下是使用python-docx模块实现的代码：

import docx
from docx.shared import Pt
from docx.enum.text import WD_PARAGRAPH_ALIGNMENT
from docx.enum.style import WD_STYLE_TYPE
from docx.shared import Cm

# 打开word文档
doc = docx.Document('test.docx')

# 获取第二段
p = doc.paragraphs[1]

# 添加文本
p.add_run('突出情况')
p.add_run('单元格A1，A2内容').font.size = Pt(12)
p.add_run('\n').font.size = Pt(12)

# 设置字体和对齐方式
p.style = doc.styles['仿宋']
p.alignment = WD_PARAGRAPH_ALIGNMENT.LEFT

# 自动换行
p.paragraph_format.word_wrap = True

# 保存文档
doc.save('test.docx')

其中，`docx`模块用于操作Word文档，`Pt`用于设置字体大小，`WD_PARAGRAPH_ALIGNMENT`用于设置对齐方式，`WD_STYLE_TYPE`用于设置样式类型，`Cm`用于设置长度单位。

python代码：打开”1.xlsx“的Sheet3表，在”1.docx“第二段中写入“突出情况"+Sheet3表”单元格A1，A2内容“，用二号字体，仿宋国标，自动换行

请确保已经安装好了 `openpyxl` 和 `python-docx` 库。

以下是实现上述功能的 Python 代码：

import openpyxl
from docx import Document
from docx.shared import Pt
from docx.enum.text import WD_BREAK

# 打开 Excel 文件
wb = openpyxl.load_workbook('1.xlsx')
# 选择 Sheet3 表
ws = wb['Sheet3']

# 获取 A1 和 A2 单元格的值
cell_a1 = ws['A1'].value
cell_a2 = ws['A2'].value

# 打开 Word 文件
doc = Document('1.docx')
# 选择第二段
paragraph = doc.paragraphs[1]

# 设置字体和大小
run = paragraph.add_run('突出情况')
font = run.font
font.name = '仿宋_GB2312'
font.size = Pt(12)

# 添加换行符
paragraph.add_run().add_break(WD_BREAK.LINE)

# 添加单元格内容并设置字体和大小
paragraph.add_run(cell_a1 + cell_a2)
font = paragraph.runs[-1].font
font.name = '仿宋_GB2312'
font.size = Pt(12)

# 自动换行
paragraph.paragraph_format.word_wrap = True

# 保存 Word 文件
doc.save('1.docx')

其中，需要替换的文件名和路径都需要根据实际情况进行修改。